KDV Hesaplatma

[McVeLeT]

Arkadaşlar merhaba aşağıdaki kodları yazdığımda program bazen saıtıyor, genel toplama kdv yi atıyor v.s acaba hata nerede

HusoEdit1 = Birim fiyatı
MaskEdit1 = Miktarı
HusoEdit3 = Tutar
ComboBox = KDV oranları
HusoEdit2 = KDV Tutrı
HusoEdit4 = Genel Toplam

Kod: Tümünü seç

HusoEdit3.Text:= floattostr(StrTofloatDef(HusoEdit1.text,0) * StrToIntDef(MaskEdit1.text,0)  );
HusoEdit2.Text:= floattostr(StrTofloatDef(HusoEdit3.text,0) * StrToIntDef(ComboBox1.Text,0) / 100 );
HusoEdit4.Text:= floattostr(StrTofloatDef(HusoEdit2.text,0) + StrToIntDef(HusoEdit3.Text,0) );

[csunguray]

Sapıtmak ne demek? Bilgisayardan duman mı çıkıyor? Hata mesajını veya oluşan sonucu daha açık yazarsanız eminim daha kolay cevap bulursunuz.

[McVeLeT]

sapıtıyor derken yani genel toplama KDV tutarını yada Normal KDVsiz tutarı atıyor... Acaba işlem sırasını kafasına göre mi alıyor. Anlamadım gtti

[McVeLeT]

Sorunu şu şekilde hallettim, ama şimdi şöyle bir sorun çıktı. Birim fiyatına (HusoEdit1) 123,44 şeklinde girdiğimde sorun olmuyor, ama 1.234,44 şeklinde nokta olduğunda " ..... is not a valid floating point value" şeklinde hata veriyor. bunu nasıl atlatabilirim?

Kod: Tümünü seç

var
// KDV HESAPLAMA BAŞLANGIÇ

 birimfiyati,
 adeti,
 kdvorani : extended;

 iskontotutari,
 kdvtutari,
 normalfiyat,
 toplamtutar    : real;
 // KDV VE  HESAPLAMA BİTİŞ

// KDV HESAPLAMA BAŞLANGIÇ
birimfiyati        := StrToFloat(HusoEdit1.Text);
adeti              := StrToFloat(RzMaskEdit1.Text);
kdvorani           := StrToFloat(RzComboBox1.Text);

normalfiyat        := birimfiyati * adeti;  // Normal fiyatı hesaplama
HusoEdit3.Text     := FloatToStr(normalfiyat); // Normal fiyatın aktarılması huysoya

kdvtutari          := normalfiyat / 100 * kdvorani;  // KDV Hesaplama
HusoEdit2.Text     := FloatToStr(kdvtutari);

toplamtutar        := normalfiyat + kdvtutari;    // Genel Toplam
HusoEdit4.Text     := FloatToStr(toplamtutar);

 // KDV  HESAPLAMA BİTİŞ

[McVeLeT]

Yokmu sorunumua çare olacak arkadaş

[aslangeri]

s.a.
stringi floata çevirirken sıkıntı oluyor. bindelik ayracını tanımıyor. strtocurr deneyin.
veya daha iyisi husoeditin "textasfloat" isminde bir özelliği olması lazım. onu kullanın
kolay gelsin.