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