Windev Imprimer un état

Appel de l'état dans une fenêtre

		iDestination(iMiniAperçu,ETAT_SansNom1)
		iImprimeEtat(ETAT_SansNom1)

Dans l'état

Ouvrir le code de l'état et modifier les évènements suivant:

Ouverture de l'état

Dans l'ouverture

PROCÉDURE MonEtat()

SI SQLConnecte(DBHost, DBUser,DBPass,DBName,DBType) ALORS
	MaRequete est une chaîne = [
		select * from MYDATABASE
		]
	SQLExec(MaRequete, "REQ1")
	SQLPremier("REQ1")
	
SINON
	Info("erreur")
FIN

Dans la lecture des données

Cette logique sert à arrêter la génération du document quand plus aucun enregistrement n'est trouvé.

SI SQL.EnDehors = Vrai ALORS
	
	// Arrêt de l'impression du bloc Corps 
	RENVOYER Faux
SINON
	// Impression du bloc Corps et exécution de ses événements
	RENVOYER Vrai
FIN

Avant l'impression dans le corps du document

Affecter le résultat aux champs et passer à l'enregistrement suivant

LIB_SansNom4 = SQLLitCol("REQ1", 1)

SQLSuivant("REQ1")