ben taksitli satış modlu yapıyorumda ve o taksitli satış modulunu dbgridde gösteriyorum fakat tutar gibi alanlarım value olarak .ve nokta olduğundan dbgride yazdıramıyorum 1.000,00 gibi
bir çözümü var mı
Kod: Tümünü seç
var
taksit_say,i:integer;
bas_tar:TDate;
taksit:currency;
begin
datamodule1.IBDataSet13.Close;
datamodule1.IBDataSet13.SelectSQL.Clear;
datamodule1.IBDataSet13.SelectSQL.Add('select * from tsat');
datamodule1.IBDataSet13.open;
taksit:=strtocurr(nettutar.Text)/strtocurr(taksitsayisi.Text);
bas_tar:=dateedit1.Date-30;
for i:=1 to taksitsayisi.IntValue do
begin
datamodule1.IBDataSet13.Append;
datamodule1.IBDataSet13SK.AsInteger:=i;
datamodule1.IBDataSet13TARIH.AsString:=datetostr(IncMonth(bas_tar,i));
datamodule1.IBDataSet13BORC.AsFloat:=currtostr(taksit);
datamodule1.IBDataSet13.Post;