1 2 3 4 5 6 7 8 9 10 11 12
|
//Récupération des noms de ville pour lesquelles il y a eu des transports
SI HExécuteRequêteSQL(sdVilleDest,gcnxConnectSQL,hRequêteSansCorrection,"select distinct v.nomVille from livraison l,transport t,ville v where t.noTransport=l.noTransport and t.codeTypeEstDe=2 and t.noVilleArriver=v.noVille" and year(l.date)="+FEN_NouvelleComparaison.COMBO_AnneeSujet+" order by v.nomVille")=vrai alors
HLitPremier(sdVilleDest)
//Parcourt des villes et ajout dans la liste déroulante
TANTQUE PAS HEnDehors(sdVilleDest)
ListeAjoute(COMBO_VilleDest,HRécupèreEnregistrement(sdVilleDest))
HLitSuivant(sdVilleDest)
FIN
SINON
Erreur("Impossible d'accèder aux villes")
FIN |
Partager