parasal alan sorunu

[dirilis]

s.a
ilk mesajımı yazmak için arama yaptım ama bir türlü bulamadım benim istediğim yok

firebird 1,5 kullanıyorum
para alanlarımı double presicion ben kasa tablomun after open olayına bunu yazarak bakiyeyi hesaplatıyorum

Kod: Tümünü seç

kasa_form.kasa.first;
 toplam.Edit;  

toplamTOPLAM_GIREN.AsCurrency:=0;  toplamTOPLAM_CIKAN.AsCurrency:=0;  toplamKASA_BAKIYE.AsCurrency:=0;  

while not kasa_form.kasa.eof do
begin toplamTOPLAM_GIREN.AsCurrency:=toplamTOPLAM_GIREN.AsCurrency+kasa_form.kasaGIREN.AsCurrency;      toplamTOPLAM_CIKAN.AsCurrency:=toplamTOPLAM_CIKAN.AsCurrency+kasa_form.kasaCIKAN.AsCurrency; 
kasa_form.kasa.next;    

end;    
toplamKASA_BAKIYE.AsCurrency:=(toplamTOPLAM_GIREN.AsCurrency-toplamTOPLAM_CIKAN.AsCurrency);

Parasal Alanaları "double presicion" tanımladım ve hata vermemesi için;
IBDataSet'in Field editor'den DisplayFormat'ını ;

Kod: Tümünü seç

###0.00

yaptım

toplamgirende hata vermiyor
toplam cikandada hata vermiyor
ama sen gel bakiyede hata veriyor mesela değer 10,25 ise (10,25 not integer value)yani integer deil diyor ama toplam giren 10,25 olunca hata vermiyor

ha bide Ascurrency yazan yerleri Value olarakta denedim

[hbahadir]

KASA_BAKIYE alanını muhtemelen integer tipinde tanımlamışsındır.

[dirilis]

yok hocam kontrol ettim alanlar başta decimaldi
double precisiona cevirdim amaformdaki bütün ibx bileşenleri sildim yeniden bağladım