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
| ZoneRépétéeSupprimeTout(ZR_Avis)
//appels d'offres
HLitPremier(e_appel_offres,id_e_ao)
TANTQUE HEnDehors(e_appel_offres) = Faux
prendmo_ac est une chaîne= ""
prendregion est une chaîne= ""
prendtype_procedure est une chaîne= ""
//Recherche de l'autorité contractante
HLitRecherche(mo_ac,pk_mo_ac,e_appel_offres.fk_autorite_contractante)
SI HTrouve(mo_ac) ALORS
prendmo_ac = mo_ac.sigle
FIN
//Recherche de la région
HLitRecherche(param_region,pk_param_region,e_appel_offres.fk_id_region)
SI HTrouve(param_region) ALORS
prendregion = param_region.region
FIN
//Recherche type de procédure
HLitRecherche(param_type_procedure,pk_param_type_procedure,e_appel_offres.fk_id_type_de_procedure)
SI HTrouve(param_type_procedure) ALORS
prendtype_procedure = param_type_procedure.designation
FIN
//
ZoneRépétéeAjouteLigne(ZR_Avis,e_appel_offres.titre,prendmo_ac,prendregion,prendtype_procedure,e_appel_offres.date_de_publication,
DateVersChaîne(e_appel_offres.date_de_cloture),HeureVersChaîne(e_appel_offres.heure_de_cloture))
HLitSuivant(e_appel_offres,id_e_ao)
FIN
//demande de cotation
HLitPremier(e_demande_cotation,id_e_demande_cotation)
TANTQUE HEnDehors(e_demande_cotation) = Faux
prendmo_acDC est une chaîne= ""
prendregionDC est une chaîne= ""
prendtype_procedureDC est une chaîne= ""
//Recherche de l'autorité contractante
HLitRecherche(mo_ac,pk_mo_ac,e_demande_cotation.fk_autorite_contractante)
SI HTrouve(mo_ac) ALORS
prendmo_acDC = mo_ac.sigle
FIN
//Recherche de la région
HLitRecherche(param_region,pk_param_region,e_demande_cotation.fk_id_region)
SI HTrouve(param_region) ALORS
prendregionDC = param_region.region
FIN
//Recherche type de procédure
HLitRecherche(param_type_procedure,pk_param_type_procedure,e_demande_cotation.fk_id_type_de_procedure)
SI HTrouve(param_type_procedure) ALORS
prendtype_procedureDC = param_type_procedure.designation
FIN
//
ZoneRépétéeAjouteLigne(ZR_Avis,e_demande_cotation.titre,prendmo_acDC,prendregionDC,prendtype_procedureDC,e_demande_cotation.date_de_publication,
DateVersChaîne(e_demande_cotation.date_de_cloture),HeureVersChaîne(e_demande_cotation.heure_de_cloture))
HLitSuivant(e_demande_cotation,id_e_demande_cotation)
FIN
ZoneRépétéeTrie("-ATT_Date_Publication") |
Partager