1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
HExécuteRequête(REQ_ContactAncienCandidat,hRequêteDéfaut,CELL_ContactSociete.ZR_REQ_RecupereSocieteContact.ATT_Modifier..Valeur)
HLitPremier(REQ_ContactAncienCandidat)
monIdCandidat est un entier= HRécupèreRubrique(REQ_ContactAncienCandidat,1)
SI monIdCandidat<> 0 ALORS
CELL_ContactSociete.ZR_REQ_RecupereSocieteContact.LIB_ContactCandidat..Visible=Vrai
CELL_ContactSociete.ZR_REQ_RecupereSocieteContact.ATT_AncienCandidat2..Valeur= "Ce contact est un ancien candidat"
SINON
CELL_ContactSociete.ZR_REQ_RecupereSocieteContact.LIB_ContactCandidat..Visible=Faux
FIN |
Partager