bonjour
depuis ce matin je rame et j'arrive pas à trouve une solution , je suis bloqué
bon voila, je voudrai transfere des données d'une base de données à un autre
j'ai un probleme avec une table (produit) y a 2 cas:
le 1er: quand le produit n'existe pas dans la bdd il l'ajoute , la y a pas de probleme
2eme cas: quand le produit existe deja faudrai faire une MAJ de certain champs ( sur tout stock), mais la j'arrive pas à pointer sur le bon produit, il reste toujour sur le 1er enregistrement
voila mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
//===================produit================
 with Datamodule3.DETAILBLTRANSFERT_t do
     begin
       Datamodule3.DETAILBLTRANSFERT_t.first ;
        while not Datamodule3.DETAILBLTRANSFERT_t.EOF  do
        begin
        datamodule4.code_barre_t.open;
        datamodule4.Produit_T.open;
        Datamodule3.DETAILBLTRANSFERT_t.Open;
        datamodule4.code_barre_t.open;
         //***********  table produit   ***********
          datamodule4.localise.Close;
          datamodule4.localise.SQL.Text:= 'select * from code_barre where code_barre =:mm';
          datamodule4.localise.Params[0].Value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
          datamodule4.localise.Open;
 
          if datamodule4.localise.RecordCount=1 then
           begin
           showmessage('produit 1');
           datamodule4.Produit_T.edit;
           datamodule4.Produit_TQUANTITESTOCK.Value:= datamodule4.Produit_TQUANTITESTOCK.Value + datamodule3.DETAILBLTRANSFERT_tQUANTITE.value;
           datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
           datamodule4.Produit_TQUANTITESTOCK.value:= datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value + datamodule4.Produit_TQUANTITESTOCK.value;
           datamodule4.Produit_T.Post;
           datamodule4.Produit_T.close;
           datamodule4.IBTransaction2.Commit;
           datamodule4.Produit_T.open;
            end
            else
              begin
               showmessage('produit a ajouter');
               datamodule4.Produit_T.open;
               datamodule4.Produit_T.Append;
               datamodule4.Produit_TNOMCOMMERCIAL.value:= datamodule3.DETAILBLTRANSFERT_tNOMCOMMERCIAL.Value;
               datamodule4.Produit_TPRIXVENTE.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXACHAT.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TPRIXVENTEDETAIL.value:= datamodule3.DETAILBLTRANSFERT_tPRIXVENTE.Value;
               datamodule4.Produit_TQUANTITESTOCK.value:= datamodule3.DETAILBLTRANSFERT_tQUANTITE.Value;
              datamodule4.Produit_T.Post;
              datamodule4.IBTransaction2.Commit;
       //==============ajout CodeBarre===================
              datamodule4.Produit_T.open;
              datamodule4.code_barre_t.open;
              datamodule4.code_barre_t.Append;
              datamodule4.code_barre_tCODE_BARRE.value:= datamodule3.DETAILBLTRANSFERT_tCODEBARRE.Value;
              datamodule4.code_barre_tCODE_PRODUIT.Value:=  datamodule4.Produit_TCODEPRODUIT.Value;
              showmessage('code prod '+ datamodule4.code_barre_tCODE_PRODUIT.AsString);
              datamodule4.code_barre_t.Post;
    //=====================================
 
               end;
 
          Datamodule3.DETAILBLTRANSFERT_t.next;
        end;
   end;
   showmessage('c bon produit');
svp aidez moi c'est vraiment urgent