ADELIA |
|
|
|
|
(I) |
|
|
|
|
Paragraphe d'utilisation
INITIALISATION, VERIFICATION, VALIDATION
Syntaxe
FIN_GESTION_SFL
Description
Cet ordre marque la fin du pavé de traitement d'un sous-fichier.
Il doit être précédé par l'instruction "GESTION_SFL n".
A chaque ordre GESTION_SFL doit correspondre un ordre FIN_GESTION_SFL et inversement.
Il n'y a pas de numéro de sous-fichier à préciser.
Remarque : dans le paragraphe VERIFICATION, cet ordre effectue une mise à jour de chaque enregistrement relu du sous-fichier.
Par exemple
***********************
INITIALISATION 02
***********************
GESTION_SFL 2
* chargement de toutes les lignes de commande dans le sous-fichier n° 2
* et lecture de la dénomination article
PRESENTER LIGNES_CDE
ZDATE_CDE = &FORMAT_DATE6('YMD';'DMY';ZDATE_CDE)
LIRE ARTICLES
PRESENTER ARTICLES
DERNIER_NUMERO = ZNUM_LIGNE
MAJ_SFL
FIN_GESTION_SFL
**********************
VERIFICATION 02
**********************
GESTION_SFL 2
* vérifie le code article pour chaque ligne de sous-fichier
LIRE ARTICLES
SI ARTICLES N_EXISTE_PAS
PREPARER_MSG 0029 ZCODE_ART
ANOMALIE
FIN
FIN_GESTION_SFL
*******************
VALIDATION 02
******************
GESTION_SFL 2
* mise à jour ou création des lignes de commande depuis le sous-fichier
ZDATE_CDE = &FORMAT_DATE6('DMY';'YMD';ZDATE_CDE)
SI ZNUM_LIGNE = 0
DERNIER_NUMERO = DERNIER_NUMERO + 1
ZNUM_LIGNE = DERNIER_NUMERO
FIN
RANGER LIGNES_CDE
FIN_GESTION_SFL
Voir aussi la liste des ordres L4G par thème