Dbgridde klavyeden aşağı ve yukarı yön tuşlarını kullanarak.işlem yaptırmtam istiyorum.fakat her nedese yapmıyor
Kod: Tümünü seç
var
a,b,c,d,e,f:double;
begin
if key=vk_up then begin
anamenu.alisfatura.edit;
a:=anamenu.alisfaturaIND.AsFloat;
b:=anamenu.alisfaturaKDV.AsFloat;
c:=anamenu.alisfaturaGMIKTAR.AsFloat*anamenu.alisfaturaBFIYAT.Value;
e:=anamenu.alisfaturaTIND.AsFloat;
f:=anamenu.alisfaturaK1.AsFloat;
d:=c-a;
anamenu.alisfaturaTUTAR.Value:=c;
anamenu.alisfaturaTIND.AsFloat:=c*a/100;
f:=c-e;
anamenu.alisfaturaTKDV.AsFloat:=f*b/100;
if anamenu.alisfaturaGMIKTAR.AsFloat>0 then begin
anamenu.alisfatura.Edit;
anamenu.alisfatura.Post;
end;
anamenu.IBQuery4.Close;
anamenu.IBQuery4.Open;
anamenu.IBQuery5.Close;
anamenu.IBQuery5.Open;
anamenu.IBQuery6.Close;
anamenu.IBQuery6.Open;
CurrencyEdit5Change(sender);
CurrencyEdit1.Value:=anamenu.IBQuery6SUM.AsFloat+tindt.Value;
CurrencyEdit3.Value:=anamenu.IBQuery5SUM.AsFloat-(anamenu.IBQuery5SUM.AsFloat*tind.Value/100);
CurrencyEdit8.Value:=anamenu.IBQuery4SUM.AsFloat-CurrencyEdit1.Value;
//CurrencyEdit4.Value:=CurrencyEdit8.Value+CurrencyEdit3.Value;
CurrencyEdit4.Value:=CurrencyEdit8.Value+CurrencyEdit3.Value;