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
|
TMP1 est une chaîne
TMP2 est une Date
TMP3 est un numérique
REQ_FicheActionListeModule.Param1=SAI_NumAction
HExécuteRequête(REQ_FicheActionListeModule)
HLitPremier(REQ_FicheActionListeModule)
TANTQUE PAS HEnDehors(REQ_FicheActionListeModule)
TMP1=REQ_FicheActionListeModule.LibelleModule
TMP2=REQ_FicheActionListeModule.DateDeroulement
TMP3=REQ_FicheActionListeModule.n_module
ZoneRépétéeAjouteLigne(MoiMême,TMP1,TMP2,TMP3)
ZR_ZoneRépétée1.SAI_NomModule=TMP1
ZR_ZoneRépétée1.SAI_DATEM=TMP2
ZR_ZoneRépétée1.SAI_NumModule=TMP3
//REQ_FicheActionListePart.Param1=TMP3
//Info(REQ_FicheActionListePart.Param1)
HExécuteRequête(REQ_FicheActionListePart,hRequêteInterruptible,TMP3)
Info(TMP3)
HLitPremier(REQ_FicheActionListePart)
POUR TOUT REQ_FicheActionListePart
ConstruitTableFichier(TABLE_REQ_FicheActionListePart,REQ_FicheActionListePart)
TableAjouteLigne(TABLE_REQ_FicheActionListePart,REQ_FicheActionListePart.NomPart,REQ_FicheActionListePart.PrenomPart,REQ_FicheActionListePart.NomOrga,REQ_FicheActionListePart.DateInscriptionP,REQ_FicheActionListePart.StatutP)
FIN
HSuivant(REQ_FicheActionListeModule)
FIN |
Partager