Comment faire pour annuler des ajouts en cas de problème ?
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:
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 |
