trigger post komutunda neden çalışmıyor

[selman]

s.a

Kod: Tümünü seç

procedure Talisfaturasi.RzDBGrid1ColEnter(Sender: TObject);
 var
a,b,c,d,e,f,say,kdv:double;
begin

if rzdbgrid1.Columns[rzdbgrid1.SelectedIndex].FieldName='GMIKTAR' then
sec.Visible:=False;
if rzdbgrid1.Columns[rzdbgrid1.SelectedIndex].FieldName='GMIKTAR' then
sec1.Visible:=False;

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;





anamenu.IBQuery4.Close;
anamenu.IBQuery4.Open;
anamenu.IBQuery5.Close;
anamenu.IBQuery5.Open;
anamenu.IBQuery6.Close;
anamenu.IBQuery6.Open;


CurrencyEdit1.Value:=anamenu.IBQuery6SUM.AsFloat+CurrencyEdit6.Value;
CurrencyEdit3.Value:=anamenu.IBQuery5SUM.AsFloat-(anamenu.IBQuery5SUM.AsFloat*CurrencyEdit5.Value/100);
CurrencyEdit8.Value:=anamenu.IBQuery4SUM.AsFloat-CurrencyEdit1.Value;
//CurrencyEdit4.Value:=CurrencyEdit8.Value+CurrencyEdit3.Value;
CurrencyEdit4.Value:=CurrencyEdit8.Value+CurrencyEdit3.Value;


end;

end.

nu komut dbgridin colenter oalyına yazdım.sonra kaydet butonyla kaydediyorum.triggerim güsel çalışıyor.
fakat

Kod: Tümünü seç

bu koda anamenu.alisfatura.post;
komutunu eklediğimde s_kartlarında görülmesi gereken miktar bölümüne null değerini atıyor.acaba neden olabilir.