1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| procedure TGestionForm.SpeedButton1Click(Sender: TObject);
var i:integer;
dDate:variant;
begin
i:=1;
dDate:=DatePicker.Date;
while i<5 do
begin
DM.tbDetail.Insert;
DM.tbDetailDATERECETTE.Value:=dDate;//DatePicker.Date;
DM.tbDetailIDRECETTE.Value:=i;
{DM.tbDetail.MasterSource.DataSet:=DM.dsCaisse.DataSet;
DM.tbDetail.MasterFields:=DM.tbCaisseIDCAISSE;}
DM.tbCaisse.Insert;
DM.tbCaisseDATECAISSE.Value:=Date;
DM.tbCaisseIDCAISSE.Value:=DM.tbDetailRecCaisIDCAISSE.Value;
DM.tbCaisseDATECAISSE.Value:=DM.tbDetailDATERECETTE.Value;
DM.tbCaisseORIGINE.Value:='RECETTE';
if i=1 then
begin
DM.tbDetailSOMRECETTE.Value:=StrToFloat(Edit_Recet1.Text);
DM.tbDetailSOMHTVA.Value:=StrToFloat(Edit_Recet1.Text)/1.21;
DM.tbDetailSOMTVA.Value:=(DM.tbDetailSOMRECETTE.Value) -(DM.tbDetailSOMHTVA.Value);
DM.tbCaisseMONTANTCAISSE.Value:=DM.tbDetailSOMRECETTE.Value;
end;
if i=2 then
begin
DM.tbDetailSOMRECETTE.Value:=StrToFloat(Edit_Recet2.Text);
DM.tbDetailSOMHTVA.Value:=StrToFloat(Edit_Recet2.Text)/1.21;
DM.tbDetailSOMTVA.Value:=(DM.tbDetailSOMRECETTE.Value) -(DM.tbDetailSOMHTVA.Value);
DM.tbCaisseMONTANTCAISSE.Value:=DM.tbDetailSOMRECETTE.Value;
end;
if i=3 then
begin
DM.tbDetailSOMRECETTE.Value:=StrToFloat(Edit_Recet3.Text);
DM.tbDetailSOMHTVA.Value:=StrToFloat(Edit_Recet3.Text)/1.06;
DM.tbDetailSOMTVA.Value:=(DM.tbDetailSOMRECETTE.Value) -(DM.tbDetailSOMHTVA.Value);
DM.tbCaisseMONTANTCAISSE.Value:=DM.tbDetailSOMRECETTE.Value;
end;
if i=4 then
begin
DM.tbDetailSOMRECETTE.Value:=StrToFloat(Edit_Recet4.Text);
DM.tbDetailSOMHTVA.Value:=StrToFloat(Edit_Recet4.Text);
DM.tbDetailSOMTVA.Value:=(DM.tbDetailSOMRECETTE.Value) -(DM.tbDetailSOMHTVA.Value);
DM.tbCaisseMONTANTCAISSE.Value:=DM.tbDetailSOMRECETTE.Value;
end;
DM.tbDetail.Post;
DM.tbCaisse.Post;
i:=i+1;
end;// end while i<5
DM.tbDetail.Refresh;
DM.tbCaisse.Refresh;
DM.tbDetail.First;
DM.tbCaisse.First;
end; |
Partager