Alan Toplama, İskonto, Kdv, HusoEdit

[loxka]

S.A
Tablo işlemi Master Detail. Detail Tablomda (Table2) Adet ve Fiyat alalarımı hesaplatıp Tutar alanına yazdırıyorum.

Kod: Tümünü seç

procedure TForm3.DBEdit28Exit(Sender: TObject);
begin
Table2Tutar.Value := Table2Adet.Value * Table2Fiyat.Value;
Table2.Post;
Table2.Close;
Table2.Open;
end;

Tutar alanının tüm toplamınıda aşağıdaki gibi alıyorum.

Kod: Tümünü seç

procedure TForm3.Table2AfterOpen(DataSet: TDataSet);
var
topla:real;
begin
Table2.first;
topla:=0;
while not table2.eof do
begin
topla:=topla +Table2tutar.AsFloat ;
Table2.next;
HusoDBEdit1.Text:=floattostr(topla);
end;
end;

Sorularım;
1. Şimdi Bütün bunlardan sonra İskonto ve Yüzde hesaplamam gerekiyor, nasıl devam edeceğimi bilemedim.
2.HüsoDBEdit te YTL CurrencySymbol 'ü YTL olarak belirlememe rağmen YTL yi göremiyorum.
3.İşin erbabları acizane fikirlerini verirse çok memnun olacağım

Teşekkür ederim

[selimr]

while not table2.eof do
begin
topla:=topla +Table2tutar.AsFloat ;
Table2.next;
HusoDBEdit1.Text:=floattostr(topla);
end;

1) burda döngüden çıktıktan sonra toplam değeri atamalısın; çünkü yukardaki kodda atamayı her yayıttan sonra yapıyor..

2) atayacağın bileşende bir dbedit değil normal edit olmalı.. yani husodbedit i değil husoedit i kullan.. veya başka bir şey..

[selimr]

Kod: Tümünü seç

procedure TForm3.Table2AfterOpen(DataSet: TDataSet); 
var 
topla,iskonto,kdv:real; 
begin 
Table2.first; 
topla:=0; 
while not table2.eof do 
begin 
topla:=topla +Table2tutar.AsFloat ; 
Table2.next; 
end;

Edit1.Text:=floattostr(topla); 
iskonto := topla * 0.15 // gibi
kdv     := (topla-iskonto) * 0.18;

end;

[loxka]

Cevabınız için teşekkür ederim hocam,
Çok kısa sorularım var ;
Kullanıcı her mala iskonto uygulamıyor Yani bir edit içine kendi yazacak ve hesaplanması gerekiyor.
Şu anki bilgisayarımda Delphi yüklü olmadığından deneyemiyorum kodları.
Birde benim mantığını çözemediğim şey master detail demiştim tablolarım için, master table içinde gezinildiğinde bu sonuçlarda aktif olarak değişecek mi?

[selimr]

master tablonun bağlı olduğu datasourcenin ondatachange olayında bu ilşemleri yaparsan; tabi her seferinde değişecektir..