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
| procedure TForm8.SpeedButton3Click(Sender: TObject);
var rech1: string;
begin
if(strtoint(edit2.Text)>strtoint(dbgrid1.Fields[4].Text))then begin
messagedlg(' Stock insuffisant pour cette commande!' +#10#13+ ' Demande d''approvisionnement',mterror,[mbOk],0);
edit3.Enabled:=false;
exit;
end
else begin
rech1:= dbgrid1.Fields[0].Text;
dm1.FicheStocks.Active;
dm1.FicheStocks.First;
while not(dm1.FicheStocks.Eof)do begin
if (dm1.FicheStocks.FieldValues['CodPrd']=rech1 )then begin
break;
end else
dm1.FicheStocks.Next;
end;
dm1.FicheStocks.FindNearest([rech1]);
if(strtoint(dbgrid1.Fields[4].text)- strtoint(edit2.Text)<=dm1.FicheStocks.FieldValues['Stksec'])then begin
if messagedlg ('Si vous etes acceptés cette commande votre stock atteind son niveau bas, !'+#10#13+ ' Voulez vous continuer?', mtinformation,[mbyes,mbno],0)= mryes then
edit3.Enabled:=true
else form8.Close;
end
else
showmessage('opération autorisée ');
edit3.Enabled:=true;
end;
end; |
Partager