örneğin 50.80 ni 51 e yuvarlıyor. oysa kayıt işleminde 50.80 olarak kaydetmesini istiyorum.
Kod: Tümünü seç
procedure TFFatura.IKaydetClick(Sender: TObject);
var
adet,i:Integer;
toplam:Double;
1-begin
if not assigned(FIrsaliye) then
2-begin
FIrsaliye:=TFIrsaliye.Create(self);
end
else
FIrsaliye.BringToFront;
if FIrsaliye.TIrsaliyeDurum.AsString=IRE.Text Then
FIrsaliye.TIrsaliye.Filter:=''
else
FIrsaliye.TIrsaliye.Filter:='[IrNo]='+#39+IRE.text+'*'+#39;
FIrsaliye.TIrsaliye.Filtered:=True;
FIrsaliye.TIrsaliye.Edit;
FIrsaliye.TIrsaliyeDurum.AsString:=E10.Text;
FIrsaliye.TIrsaliye.Post;
3-begin
TBagIrs.Refresh;
TBagIrs.Append;
if (TBagIrs.State <> dsEdit) and (TBagIrs.State <> dsInsert) then Exit;
TBagIrsTarih.AsString:=E2.Text;
TBagIrsVTarihi.AsString:=E3.Text;
TBagIrsHTipi.AsString:=E7.Text;
TBagIrsHTanim.AsString:=E4.Text;
TBagIrsBSantiye.AsString:=E5.Text;
TBagIrsHKod.AsString:=E8.Text;
TBagIrsHarTip.AsString:=E9.Text;
TBagIrsIrNo.AsString:=IRE.Text;
TBagIrsMalNo.AsString:=E11.Text;
TBagIrsMalzeme.AsString:=E12.Text;
TBagIrsBirim.AsString:=E13.Text;
TBagIrsMik.AsString:=E14.Text;
TBagIrsBFiyat.AsString:=E15.Text;
TBagIrsKDV.AsString:=E16.Text;
TBagIrsKDVsizToplam.AsFloat:=strtofloat(E14.Text)*strtofloat(E15.Text);
TBagIrsSToplam.AsFloat:=(strtofloat(E14.Text)*strtofloat(E15.Text)*strtofloat(E16.Text)/100)+(strtofloat(E14.Text)*strtofloat(E15.Text));
TBagIrsKDVBFiyat.AsFloat:=(strtofloat(E14.Text)*strtofloat(E15.Text)*strtofloat(E16.Text)/100)/(strtofloat(E14.Text))+(strtofloat(E15.Text));
TBagIrsKDVT.AsFloat:=strtofloat(E14.Text)*strtofloat(E15.Text)*strtofloat(E16.Text)/100;
TBagIrs.Post;
TBagIrs.Refresh;
QFatura.Refresh;
4-begin
QFatura.Close;
QFatura.Open;
if E19.Text='' then
QFatura.Filter:=''
else
QFatura.Filter:='[HTanim]='+#39+E19.text+'*'+#39;
QFatura.Filtered:=True;
5-begin
QFatura.Open;
toplam:=0;
adet:=StrToInt(Format('%2d',[yenigrid(DBGrid1).RowCount-1]));//satır sayısı
QFatura.First;//ilk kayıda git
for i:=1 to adet do
6-begin
toplam:=toplam+DBGrid1.Fields[7].AsFloat;
QFatura.Next;
end;
Lab.Text:=FloatToStrF(toplam,ffNumber,50,0);
end;
end;
if DMSProj.TSHareketHarTip.AsString=E1.Text then
DMSProj.TSHareket.Filter:=''
else
DMSProj.TSHareket.Filter:='[Evrak]='+#39+E1.text+'*'+#39;
DMSProj.TSHareket.Filtered:=True;
DMSProj.TSHareket.Edit;
DMSProj.TSHareketTutar.AsString:=Lab.Text;
DMSProj.TSHareket.Post;
end;
end;