1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| procedure Tfiche_livration.Button1Click(Sender: TObject);
var Numpr,qte:String;
begin
Numpr:=InputBox('saisie du produit','entrer le code produit','');
if (numpr='')or(not (rech(strtoint(numpr)))) then
showmessage('se numero produit n"existe pas..')
else
begin
datas.Table12.Insert;
datas.Table12.FieldByName('ref_prod').AsString:=numpr;
datas.Table12.FieldByName('reper').AsString:=datas.Table14.fieldbyname('reper').AsString;
datas.Table12.FieldByName('nn').AsString:=datas.Table14.fieldbyname('nn').AsString;
datas.Table12.FieldByName('designation').AsString:=datas.Table14.fieldbyname('designation').AsString;
datas.Table12.FieldByName('qte_a_livr').AsString:=datas.Table14.fieldbyname('qte_a_alivr').AsString;
datas.Table12.FieldByName('poid_a_livr').AsString:=datas.Table14.fieldbyname('poid_a_livr').AsString;
qte:=inputbox('saisie la quantite du produit','entree la quantite','');
while qte='' do qte:=inputbox('saisie la quantite du produit','entree la quantite','');
datas.Table12.FieldByName('qte_livr').AsString:=qte;
datas.Table12.FieldByName('qte_rest').AsInteger:= Calcul1(datas.table14,datas.table12);
datas.Table12.FieldByName('poid_livr').AsInteger:= Calcul2(datas.table14,datas.table12);
datas.Table12.FieldByName('poid_rest').AsInteger:= Calcul3(datas.table14,datas.table12);
end;
Button1.SetFocus; |