// Création de la vue
SD est une Source de Données

HExécuteRequête(Rq_Liste_Campagne_Dossier)

HCréeVue(SD, Rq_Liste_Campagne_Dossier, "Campagne", "", "Campagne > 2006", hVueDéfaut)

HLitPremier(SD)
TANTQUE PAS HEnDehors()
	Info(SD.Campagne)
	HLitSuivant(SD)
FIN
HDétruitVue(SD)

// Requete
SI HExécuteRequêteSQL(SD,"SELECT Campagne FROM Rq_Liste_Campagne_Dossier") ALORS	
	HLitPremier(SD)
	TANTQUE PAS HEnDehors()
		Info(SD.Campagne)
		HLitSuivant(SD)
	FIN
	HDétruitVue(SD)	
SINON
	Erreur(HErreurInfo())	
	
FIN
HAnnuleDeclaration(SD)