ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) (C/S) |
(B) (S) |
(I/B) (C/S) |
(I) (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) |
VERIFIER 01
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) |
INSERER_RG RECUP_LIB (ZLIBELLE; CLIENTS; ZCODE_CLI; NOM_CLI)
*
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 |
SI *F03
CODE_RETOUR = 'FIN'
TERMINER
FIN
* |
PAGE_SUIVANTE |
SI *PAGAV
PAGINER_AVANT
FIN
*
VERIFIER 01
VALIDER 01
*
INITIALISATION 01
LIRE COMMANDES
* |
*IP COMMANDES (règle de classe IP) (2 règles) |
SI DATE_CDE = 0
DATE_CDE = *DATE
FIN
*
SI ZREGLEMENT = *BLANK
ZREGLEMENT = 'CH'
FIN
*
PRESENTER COMMANDES
* |
RECUP_LIB (ZLIBELLE; CLIENTS; ZCODE_CLI; NOM_CLI) (classe PM) |
LIRE CLIENTS
ZLIBELLE = NOM_CLI
*
VERIFICATION 01
* |
*CT ZDATE_CDE (contrôles date) (2 règles) |
PREPARER_MSG 0035 ZDATE_CDE
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) |
PREPARER_MSG 0057 ZCODE_CLI
LIRE CLIENTS
SI CLIENTS N_EXISTE_PAS
ANOMALIE
FIN
*
VALIDATION 01
PLACER COMMANDES
* |
*VE COMMANDES (règle de classe VE) |
UTIL_MAJ = *USER
DATE_MAJ = *DATE
HEURE HEURE_MAJ
CLASSER COMMANDES