1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| HExécuteRequête(ReqTousNouveauxCN, hRequêteDéfaut, ID_EntiteChoisie)
HLitPremier(ReqTousNouveauxCN,DESIGNATION)
ListeAjoute(ComboEtat,"indéterminé")
ListeAjoute(ComboEtat,"programmé")
ListeAjoute(ComboEtat,"en cours")
ListeAjoute(ComboEtat,"soldé")
TANTQUE HTrouve(ReqTousNouveauxCN)
ID_CNAH = ReqTousNouveauxCN.IDCN_APPLI_HISTORIQUE
HExécuteRequête(ReqEtatCN,hRequêteDéfaut,ID_CNAH)
HLitPremier(ReqEtatCN)
ListeSelectPlus(ComboEtat,ReqEtatCN.CN_ETAT)
ZoneRépétéeAjouteLigne(ZR_CN, ReqTousNouveauxCN.DESIGNATION, formateDate(ReqTousNouveauxCN.DATEHEUREOPEN), formateDate(ReqTousNouveauxCN.DATEHEURECLOSE), ReqTousNouveauxCN.REF_OPEN, ReqTousNouveauxCN.REF_CLOSE, ReqTousNouveauxCN.COMMENTAIRES)
HLitSuivant(ReqTousNouveauxCN,DESIGNATION)
FIN |
Partager