ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(B) (C/S) |
Paragraphe d'utilisation
Tous
Syntaxe
Pour les règles de classes CA, CT, IP, VP, GU, GS
INSERER_RG ClasseOuRègle IdVarMaquette TransactionOuFormatMaquetteEtat MaquetteEtat
ClasseOuRègle |
→ |
*CA | *CT | *IP | *VP | *GU | *GS | NomRègle |
TransactionOuFormatMaquetteEtat |
→ |
NumTransaction |
| FormatMaquetteEtat |
||
| Rien |
||
MaquetteEtat |
→ |
MaquetteEtat | Rien |
Autre possibilité :
INSERER_RG Classe VueOuEntité TransactionOuFormatMaquetteEtat MaquetteEtat
Classe |
→ |
*CA | *CT | *IP | *VP | *GU | *GS |
TransactionOuFormatMaquetteEtat |
→ |
NumTransaction |
| FormatMaquetteEtat |
||
| Rien |
||
MaquetteEtat |
→ |
MaquetteEtat | Rien |
Remarque : pour ces classes, le but consiste, lors de la vérification, à générer autant d'ordres INSERER_RG élémentaires que nécessaire pour les variables maquettes ayant comme origine logique les propriétés de l'entité associée à la vue.
Attention : dans un programme de type ADELIA, on ne peut pas indiquer le nom d'une entité à la place du nom d'une vue.
Pour les règles de classes IE, VE, LE, SU, SF, MJ, MF, CR, CF, DE et DF
Les règles de gestion de classe SF, MF, CF, DE et DF ne sont disponibles que pour Adélia/400.
INSERER_RG ClasseOuRègle VueOuEntité TransactionOuFormatMaquetteEtat MaquetteEtat
ClasseOuRègle |
→ |
*IE | *VE | *LE | *SU | *SF | *MJ| *MF |
TransactionOuFormatMaquetteEtat |
→ |
NumTransaction |
| FormatMaquetteEtat |
||
| Rien |
||
MaquetteEtat |
→ |
MaquetteEtat | Rien |
Attention : dans un programme de type ADELIA, on ne peut pas indiquer le nom d'une entité à la place du nom d'une vue.
Pour les règles de classe PM
INSERER_RG NomRègle
ou
INSERER_RG NomRègle (SuiteParamètres)
SuiteParamètres |
→ |
SuiteParamètres;Paramètre |
Pour les autres règles
INSERER_RG ClasseOuNomRègle
ClasseOuRègle |
→ |
*DT | *FT | *DI | *FI | *DC |
| *FC | *DV | *FV | *DG |
||
| *FG | *DP | *FP | NomRègle |
Description
L'ordre INSERER_RG permet d'insérer, en début de vérification du modèle Adélia, le contenu détaillé de toutes les règles de gestion de la classe indiquée (ou de la seule règle citée dans l'instruction), en l'appliquant éventuellement à la variable maquette indiquée ou à l'entité associée à la vue indiquée.
Par exemple
* Programme de mise à jour de commandes avant vérification ADÉLIA
RECEVOIR NUM_CDE CODE_RETOUR
INITIALISER 01
TRAITER 01
TRANSACTION 01
INSERER_RG DEBUT_TRS |
: règles de classe DT |
INSERER_RG PAGE_SUIVANTE |
: (début de transaction) |
VALIDER 01
*
INITIALISATION 01
LIRE COMMANDES
INSERER_RG *IP COMMANDES |
: règle de classe IP |
PRESENTER COMMANDES |
: (initialisation propriétés) |
* |
: règle classe PM (paramétrable) |
*
VERIFICATION 01
INSERER_RG *CT ZDATE_CDE |
: règle de classe CT |
INSERER_RG *CT ZCODE_CLIENT |
: (contrôles) |
VALIDATION 01
PLACER COMMANDES
INSERER_RG *VE COMMANDES |
: règle de classe VE |
CLASSER COMMANDES |
: (validation entité) |
Listing de vérification Adélia
RECEVOIR NUM_CDE CODE_RETOUR
INITIALISER 01
TRAITER 01
TRANSACTION 01
* |
DEBUT_TRS règles de classe DT |
CODE_RETOUR = 'FIN'
TERMINER
FIN
* |
PAGE_SUIVANTE |
PAGINER_AVANT
FIN
*
VERIFIER 01
VALIDER 01
*
INITIALISATION 01
LIRE COMMANDES
* |
*IP COMMANDES (règle de classe IP) (2 règles) |
DATE_CDE = *DATE
FIN
*
SI ZREGLEMENT = *BLANK
ZREGLEMENT = 'CH'
FIN
*
PRESENTER COMMANDES
* |
RECUP_LIB (ZLIBELLE; CLIENTS; ZCODE_CLI; NOM_CLI) (classe PM) |
ZLIBELLE = NOM_CLI
*
VERIFICATION 01
* |
*CT ZDATE_CDE (contrôles date) (2 règles) |
SI ZDATE_CDE = 0
ERREUR
FIN
*
PREPARER_MSG 0046 ZDATE_CDE
SI ZDATE_CDE < DATE_DU_JOUR
ANOMALIE
FIN
* |
*CT ZCODE_CLIENT (contrôle client) (1 règle) |
LIRE CLIENTS
SI CLIENTS N_EXISTE_PAS
ANOMALIE
FIN
*
VALIDATION 01
PLACER COMMANDES
* |
*VE COMMANDES (règle de classe VE) |
DATE_MAJ = *DATE
HEURE HEURE_MAJ
CLASSER COMMANDES