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