Firebird Sütun Toplamak ve Para Birimi Değeri

[ilker1525]

Kod: Tümünü seç

var
adet,satir,i:Integer;
toplam:Double;
begin
form7.IBTable2.Open;
toplam:=0;
adet:=StrToInt(Format('%2d',[yenigrid(DBGrid1).RowCount-1]));  //satır sayısı
form7.IBTable2.First;//ilk kayıda git
for i:=1 to adet do
begin
toplam:=toplam+DBGrid1.Fields[3].AsCurrency;  // Asinteger olarakta denedim olmadı VARCHAR olarakta olmadı sonuca ekle
form7.IBTable2.Next;//sonraki kayda geç
end;
label7.Caption:=FloatToStrF(toplam,ffCurrency,14,0);
end;

bu kullandığım kod aynı acces vt de kullandığım komutu kullandım ama 'AsCurrency' kısmını firebirdde bulamadım parabirimi değerini bulamıyorum 12,00 TL diye yazamıyorum.

para değeri olarak integer yaptım 12,00 TL yazısını kabul etmedi ve hata verdi
VARCHAR olarak yaptım bu seferde 12,00 TL toplama yapmadı yanlış değer hatası verdi

bu sorunlardan dolayı firebird te toplama yapamıyorum ama TL olarak kesin yazmam lazım
sayısal değeri yukardaki kod zaten topluyor

Yardımlarınızı bekliyorum

Saygılarımla ilker1525

[Lost Soul]

Numeric tipi kullanacaksın.

mesela Numeric size 15 decimal 4 ; virgülden sonra 4 basamak olur.

[ilker1525]

Numeric tipi kullanacaksın.

mesela Numeric size 15 decimal 4 ; virgülden sonra 4 basamak olur.

slm
numeric yaptığım zaman vt TL yazısını kabul etmiyor decimal tl yi kabul eder mi o zaman bunlar sayısal veri fieldleri değil mi?

yani bunlar tabloya uyum göstermiyor TŞK

[emin_as]

Neden değer girerken TL yazmaya gerek duyuldugunu anlamadım. Genelde bu tür programlarda sadece para kısmının girilmesine izin vermek yeterlidir. Eğer müşteri TL görünsün istiyorsa, edit kutucugundan sonra bir labella TL yazılabilir veya mask kullanılabilir.

Firebirdden bu rakamı okumak içinde AsFloat yeterli olacaktır.

[ilker1525]

Neden değer girerken TL yazmaya gerek duyuldugunu anlamadım. Genelde bu tür programlarda sadece para kısmının girilmesine izin vermek yeterlidir. Eğer müşteri TL görünsün istiyorsa, edit kutucugundan sonra bir labella TL yazılabilir veya mask kullanılabilir.

Firebirdden bu rakamı okumak içinde AsFloat yeterli olacaktır.

SLM TL yazısına gerek duyduğum için yazdırmak istemiyorum tüm sistem TL bazlı kayıt yapıyor 25-30 form üzerinde TL kayıt etmasi için editler var dbgride öyle kayıt ediyordum ancak firebird uymadı bu kritere access sorunsuz halletti ama firebird olmdı

[aslangeri]

acces rdbms olmadığı için programcının yapması gereken işleri kendisi yapıyor.
FB ise rdbms olduğu için bu işlerle ilgilenmiyor. programcılar halletsin diyor.
kolay gelsin.

[ilker1525]

öncelikle cevap yazıp yardım etmek isteyen arkadaşlara çok tşk ederim

sorunu çözdüm sorun kola çözmek yerine DevArt IBDAC Adlı bir comp paketiş ile sorunu çözdüm aynı table ve adotabledeki gibi current fieldine izin veriyor ben böyle cözüme ulaşabildim ve belki bazı arkadaşlerın da bu gibi sorunları olur diyerekten DevArt IBDAC comp. belirtmek istedim aşağıda comp sitesi mevcut isteyen bakabilir



Önemli olan çözüme ulaşmak ve doğru yolu bulmak ve bunu yapabildim...


http://www.devart.com/ibdac/

Saygılarımla ilker1525

[veliadiguzel]

bu bileşen ücretlimi sitesinde göremedimde.

[ilker1525]

http://www.devart.com/ibdac/ordering.html

Evet malesef ücretli bir bileşen ama gerçekten süper denerseniz farkını göreceksiniz. Üst tarafta fiyatlandırması varmış incelemek istersiniz diye ekledim.

Saygılarımla ilker1525

[veliadiguzel]

teşekkürler.. ben görememişim.