Bonjour
Faisant des ajouts et modifs dans plusieurs tables, qui dépendent du 1er ajout, comment faire pour annuler tout si une ne s'est pas bien passée ?
Voici ce que je fais actuellement
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 PROCEDURE doInsereDansTable() bAjout est un booléen niIdAttrib est un entier // -- On enregistre les données dans la table Attribution ---------------------- Attribution_DDP.ADP_Dossier_Complet = False Attribution_DDP.ADP_Date_Demande = SAI_DateDemande Attribution_DDP.ADP_Date_Creation = DateDuJour() Attribution_DDP.IDDomaines_publics = COMBO_Domaines_publics.IDDomaines_publics Attribution_DDP.IDUtilisateurs = nIdUser Attribution_DDP.ADP_Num_Place = COMBO_Emplacements.IDEmplacements Attribution_DDP.ADP_Date_Creation = DateDuJour() Attribution_DDP.ADP_Taxe = COMBO_Domaines_publics.DP_taxe bAjout = HAjoute(Attribution_DDP) SI bAjout ALORS // -- On change l'état de l emplacement sélectionné ----------------------------- HLitRecherchePremier(Emplacements,IDEmplacements,COMBO_Emplacements.IDEmplacements) Emplacements.EMP_Etat = 1 HModifie(Emplacements) // -- on récupère la clef de l'enregistrement maitre ---------------------------- niIdAttrib = Attribution_DDP.IDAttribution_DDP LIB_Dossier = niIdAttrib LIB_Num..Visible = Vrai // -- On enregistre les données dans la table Attribution piece ---------------- POUR TOUTE LIGNE DE TABLE_Pieces Pieces_Attribution.IDAttribution_DDP = niIdAttrib Pieces_Attribution.IDPiece = TABLE_Pieces.COL_ID Pieces_Attribution.LADP_Validite = TABLE_Pieces.COL_DATE HAjoute(Pieces_Attribution) FIN // ----------------------------------------------------------------------------- FIN
Partager