ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) (S) |
(B) (S) |
(I/B) (S) |
(B) (S) |
Paragraphe d'utilisation
Tous
Syntaxe
CREER NomVue Paramètre
Paramètre |
→ |
*NON_RG | *RG | Rien |
Description
Cet ordre permet de créer un enregistrement dans le fichier correspondant à la vue NomVue.
Le paramètre *RG permet de générer les règles de gestion implicites de création liées à l'entité correspondant à la vue, même si le programme est généré sans l'option de génération des règles de gestion implicites.
Le paramètre *NON_RG permet de ne pas générer les règles de gestion implicites de création liées à l'entité correspondant à la vue, même si le programme est généré avec l'option de génération des règles de gestion implicites.
Par exemple
* Mise à jour ou création d'un client
*
LIRE CLIENT
SI CLIENT EXISTE
METTRE_A_JOUR CLIENT
SINON
CREER CLIENT
FIN
*
* chargement manuel de sous-fichier
*
LIRE_AVANT LIGNES_CDE
TANT_QUE LIGNES_CDE EXISTE
*
* mouvement des zones fichiers dans zones écrans
*
ZNUM_LIGNE = NUM_LIGNE
ZDATE_CDE = DATE_CDE
ZQTE_CDE = QTE_CDE
*
* incrémentation numéro relatif d'enregistrement du sous-fichier (WRAN01)
*
*DEL01 = *DEL01 + 1
WRAN01 = *DEL01
*
* ajout de l'enregistrement dans le sous-fichier
* Note : la vue SOUS_FIC1 est définie avec *1 comme "Fichier lié à la vue"
*
CREER SOUS_FIC_1
LIRE_AVANT LIGNES_CDE
REFAIRE