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 59 60 61 62 63 64
| //************************************************ Fenêtre principale
// Bouton gauche double clic sur ZR_ABC
Ouvre(FEN_Modification, ATT_ID)
//************************************************ Fenêtre de modification
// Déclaration globale de FEN_Modification
PROCEDURE FEN_Modification(ATT_ID)
//Fin d'initialisation de FEN_Modification
FichierVersEcran()
HLitRecherche(A1, A1.ID_A1, SAI_ID)
SI HTrouve(A1) = Vrai ALORS
SAI_Nom = A1.Nom_A1
SAI_Prénom = A1.Prénom_A1
SAI_CodePostal = A1.CodePostal_A1
FIN
HLitRecherche(B1, B1.ID_B1, SAI_ID)
SI HTrouve(B1) = Vrai ALORS
SAI_Nom = B1.Nom_B1
SAI_Prénom = B1.Prénom_B1
SAI_CodePostal = B1.CodePostal_B1
FIN
HLitRecherche(C1, C1.ID_C1, SAI_ID)
SI HTrouve(C1) = Vrai ALORS
SAI_Nom = C1.Nom_C1
SAI_Prénom = C1.Prénom_C1
SAI_CodePostal = C1.CodePostal_C1
FIN
//************************************************ Bouton de validation
// Clic sur BTN_Modifier
HLitRecherche(A1, A1.ID_A1, SAI_ID)
SI HTrouve(A1) = Vrai ALORS
A1.Nom_A1 = SAI_Nom
A1.Prénom_A1 = SAI_Prénom
A1.CodePostal_A1 = SAI_CodePostal
EcranVersFichier(FEN_Modification, A1)
HModifie(A1)
FIN
HLitRecherche(B1, B1.ID_B1, SAI_ID)
SI HTrouve(B1) = Vrai ALORS
B1.Nom_B1 = SAI_Nom
B1.Prénom_B1 = SAI_Prénom
B1.CodePostal_B1 = SAI_CodePostal
EcranVersFichier(FEN_Modification, B1)
HModifie(B1)
FIN
HLitRecherche(C1, C1.ID_C1, SAI_ID)
SI HTrouve(C1) = Vrai ALORS
C1.Nom_C1 = SAI_Nom
C1.Prénom_C1 = SAI_Prénom
C1.CodePostal_C1 = SAI_CodePostal
EcranVersFichier(FEN_Modification, C1)
HModifie(C1)
FIN
Ferme() |
Partager