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 codesvp aidez moi c'est vraiment urgent
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');
Partager