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