Téléchargement des produits


Version anglaise


 

 

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
| *CR | *CF | *DE | *DF | NomRègle

 

 

 

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
| 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

 

 

↑ Haut de page


  • Aucune étiquette