|
VADELIA |
|
WADELIA |
|
(I/B) (C/S) |
(I/B) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
PRESENTER VueOuEntitéOuIndex FenêtreOuPage Option
FenêtreOuPage |
→ |
NomFenêtreOuPage | Rien |
Option |
→ |
*FORCER | Rien |
Description
Cet ordre charge les zones du fichier ou de la table SQL dans les zones maquette correspondantes. C'est l'ordre inverse de l'ordre RAPATRIER.
Dans le cas où le nom d'une vue est identique au nom d'une entité, la priorité est donnée au nom d'une vue.
Les zones maquette concernées sont celles de la fenêtre (contexte Visual) ou de la page (contexte Adélia Web) courante si le nom de la fenêtre ou de la page NomFenêtreOuPage n'est pas indiqué. Sinon, ce sont celles de la fenêtre ou de la page indiquée.
Dans le cas d'une instruction "PRESENTER Vue", si l'option *FORCER n'est pas indiquée et que la lecture précédente sur la vue n'a pas abouti, les zones maquette sont remises à blanc ou à zéro.
Dans le cas d'une instruction "PRESENTER Entité", si l'option *FORCER n'est pas indiquée et que la lecture SQL sur l'entité n'a pas abouti (*SQLCODE<>0), les zones maquette sont remises à blanc ou à zéro.
"PRESENTER Index" s'applique lorsque l'index est utilisé pour le chargement d'une liste graphique.
Pour les programmes interactifs, seuls les objets actifs pour la cinématique sont concernés.
Pour les programmes batch, toutes les zones ayant une origine logique sont concernées.
Remarque : cette instruction ne faisant aucun accès base de données, elle peut être placée dans une partie client ou serveur d'un programme.
Par exemple
LIRE VUE_CLIENT
PRESENTER VUE_CLIENT FEN_MODIF
* Dans le paragraphe INITIALISATION d'une fenêtre, lecture d'un enregistrement
LIRE_SQL CONTRAT *COND(CCOD_COM = :ZCCOD_COM ET CNUM_CON = :ZCNUM_CON ET CNUM_AVE_CON = 0)
PRESENTER CONTRAT
Autre exemple d'utilisation
* boucle de lecture sur une liste pour prendre toutes les lignes sélectionnées pour modification
LECTURE_LST LST_PERSO:LISTE *SELECT
*
P_COD_ACTION = 'MO'
P_COD_MATRICUL = *BLANK
P_COD_MATRICUL = ZZ_COD_MATRICUL
*
APPELER CMJ_PERSONNEL P_COD_MATRICUL P_COD_ACTION
SI P_COD_ACTION = 'OK'
LIRE_SQL PERSONNEL *COND(PE_COD_MATRICUL = :P_COD_MATRICUL)
PRESENTER PERSONNEL
MODIFIER_ELT LST_PERSO:LISTE *DESELECT
FIN
*
FIN_LECTURE_LST