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 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
| procedure TFOR_Mouvement.MiseajourExecute(Sender: TObject);
begin
with SQLt.MiseAjour do
if (pointer = 0) Then
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO Mouvement');
SQL.Add('( Typ_Mouv, Num_bon, Dat_Bon, Num_b_cmd, ArticleID, FournisseurID, ClientID, BureauID, Qt_entr_Mouv, Qt_Sorti_mouv, Dat_Mouv, Mat_Articl_mouv, Mark_articl, Etat_articl_Mouv, Lieu_stock, Valid, Garanti, Num_serie_Article, Ref_inventID, Obs_Mouv, Bar_code)');
SQL.Add(' Values');
SQL.Add('(:P0,:P1,:P2,:P3,:P4,:P5,:P6,:P7,:P8,:P9,:P10,:P11,:P12,:P13,:P14,:P15,:P16,:P17,:P18,:P19,:P20)');
Parameters.ParamByName('P0').Value := ED01.Text;
Parameters.ParamByName('P1').Value := ED02.Text;
Parameters.ParamByName('P2').Value := ED03.Date;
Parameters.ParamByName('P3').Value := ED04.Text;
Parameters.ParamByName('P4').Value := ED05.Text;
Parameters.ParamByName('P5').Value := ED06.Text;
Parameters.ParamByName('P6').Value := ED07.Text;
Parameters.ParamByName('P7').Value := ED08.Text;
Parameters.ParamByName('P8').Value := ED09.Text;
Parameters.ParamByName('P9').Value := ED10.Date;
Parameters.ParamByName('P10').Value := ED11.Text;
Parameters.ParamByName('P11').Value := ED12.Text;
Parameters.ParamByName('P12').Value := ED13.Text;
Parameters.ParamByName('P13').Value := ED14.Text;
Parameters.ParamByName('P14').Value := ED15.Date;
Parameters.ParamByName('P15').Value := ED16.Text;
Parameters.ParamByName('P16').Value := ED17.Text;
Parameters.ParamByName('P17').Value := ED18.Text;
Parameters.ParamByName('P18').Value := ED19.Text;
Parameters.ParamByName('P19').Value := ED20.Text;
Parameters.ParamByName('P20').Value := ED21.Text;
ExecSQL ;
SQLt.SH_Mouvement.Active := false;
SQLt.SH_Mouvement.Active := true;
SQLt.SH_Mouvement.Last;
end
else
begin
SQL.Clear;
SQL.Add('UPDATE Mouvement SET');
SQL.Add('Typ_Mouv=:P0,Num_bon=:P1,Dat_Bon=:P2,Num_b_cmd=:P3,ArticleID=:P4,FournisseurID=:P5,ClientID=:P6,BureauID=:P7,Qt_entr_Mouv=:P8, Qt_Sorti_mouv=:P9, Date_Mouv=:P10,Mat_Articl_mouv=:P11,Mark_articl=:P12,Etat_articl_Mouv=:P13,Lieu_stock=:P14,Valid=:P15,Garanti=:P16,Num_serie_Article=:P17, Ref_InventID=:P18, Obs_articl=:P19,Bar_code=:P20');
SQL.Add('WHERE Mouvement.MouvementID=:P19');
Parameters.ParamByName('P0').Value := ED01.Text;
Parameters.ParamByName('P1').Value := ED02.Text;
Parameters.ParamByName('P2').Value := ED03.Text;
Parameters.ParamByName('P3').Value := ED04.Text;
Parameters.ParamByName('P4').Value := ED05.Text;
Parameters.ParamByName('P5').Value := ED06.Text;
Parameters.ParamByName('P6').Value := ED07.Text;
Parameters.ParamByName('P7').Value := ED08.Text;
Parameters.ParamByName('P8').Value := ED09.Text;
Parameters.ParamByName('P9').Value := ED10.Text;
Parameters.ParamByName('P10').Value := ED11.Text;
Parameters.ParamByName('P11').Value := ED12.Text;
Parameters.ParamByName('P12').Value := ED13.Text;
Parameters.ParamByName('P13').Value := ED14.Text;
Parameters.ParamByName('P14').Value := ED15.Text;
Parameters.ParamByName('P15').Value := ED16.Text;
Parameters.ParamByName('P16').Value := ED17.Text;
Parameters.ParamByName('P17').Value := ED18.Text;
Parameters.ParamByName('P18').Value := ED19.Text;
Parameters.ParamByName('P19').Value := ED20.Text;
Parameters.ParamByName('P20').Value := ED21.Text;
Parameters[21].Value := pointer;
ExecSQL ;
SQLt.SH_Mouvement.Active := false;
SQLt.SH_Mouvement.Active := true;
SQLt.SH_Mouvement.Last;
SQLt.SH_Mouvement.Locate('MouvementID', pointer, []);
end;
end; |
Partager