ADELIA |
|
|
|
|
(I/B) |
|
|
|
|
Attention : cet ordre doit être utilisé dans la définition d'une macro-instruction, d'un type de dialogue ou d'une règle de gestion. Il est accepté dans Visual Adélia ou Adélia Web s'il est placé dans une règle de gestion dont le type de source est compatible ADELIA.
Paragraphe d'utilisation
Tous
Syntaxe
IDENTIFIER NomVue Fichier AccèsFichier OptInfoDS OptOpen OptInfSr OptCommit OptBlock
AccèsFichier |
→ |
CLE SuiteZoneAccès |
|
|
| DIRECT VarNum |
|
|
| SEQ |
SuiteZoneAccès |
→ |
SuiteZoneAccès ;MotDirVar |
|
|
| SuiteZoneAccès NomDDSVar |
|
|
| SuiteZoneAccès | NomDDSVar;MotDirVar |
|
|
|
VarNum |
→ |
;MotDirVarNum |
|
|
| NomDDSVarNum |
|
|
| NomDDSVarNum;MotDirVarNum |
OptInfoDS |
→ |
INFODS | Rien |
OptOpen |
→ |
OPEN | Rien |
OptInfsr |
→ |
INFSR;NomProcédure | Rien |
OptCommit |
→ |
COMMIT | Rien |
OptBlock |
→ |
BLOCK_YES | BLOCK_NO | Rien |
Description
Cet ordre permet de déclarer une vue à partir d'une macro-instruction, d'un type de dialogue ou d'une règle de gestion.
Il faut préciser :
le mot directeur de la vue NomVue,
le nom du fichier base de données Fichier,
le type d'accès au fichier AccèsFichier,
les zones constituant la clé de la vue.
Les valeurs possibles pour AccèsFichier sont :
CLE pour accès par clé,
DIRECT pour accès direct,
SEQ pour accès séquentiel.
Paramètres facultatifs :
INFODS pour utiliser l'Info DS du fichier.
OPEN pour ouvrir explicitement le fichier.
INFSR suivi du nom d'une procédure dans le cas où l'INFSR est utilisée sur ce fichier.
COMMIT pour que le fichier soit ouvert en mode contrôle de validation.
BLOCK_YES ou BLOCK_NO pour contrôler la gestion par bloc des enregistrements associés à un fichier.
Par exemple
* Règle de gestion CONTROLE_ARTICLE
DECLARER WCDART;W_CODE_ART 7
IDENTIFIER VUE_ARTICLE ARTICL1 CLE ;W_CODE_ART
W_CODE_ART = $$CODE
LIRE VUE_ARTICLE
SI VUE_ARTICLE N_EXISTE_PAS
PREPARER_MSG CTL0024 $$CODE
INIT_MSG $$CODE
ANOMALIE
FIN
Autres possibilités :
IDENTIFIER CLIENTS CLIENTL1 CLE ;ZCODE_CLI
IDENTIFIER CLIENTS CLIENTL1 CLE ;ZCODE_CLI INFODS OPEN
IDENTIFIER VUE_COMMANDES COMMANDP SEQ INFODS INFSR;HSTERR