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")