Pour construire le JavaBean exécutant les opérations d'affichage, de création, de modification et de suppression :
Construisez un nouveau programme Visual Adélia Batch. Ce programme devra gérer l'ensemble des options d'affichage, de création, de suppression et de modification.
- Déclarez dans un premier temps l'ensemble des variables nécessaires aux opérations sus-mentionnées. Elles doivent être placées dans la partie [DECL PGM] du programme.
DECL PGM |
|
|
BOOL |
OK |
|
ALPHA(8) |
CODACTION |
|
REF(CL_COD_CLIENT) |
PCOD_CLI |
|
LISTE |
LST_CLIENT |
*REF_MLD(CLIENT)
|
PARAM OK CODACTION PCOD_CLI LST_CLIENT
|
- Saisissez ensuite dans la partie [INIT PGM] le code permettant d'effectuer toutes les opérations prévues.
OK=*FAUX
* AFFICHAGE DU DETAIL DES CLIENTS SI CODACTION = 'DETAIL' CHARGER_SQL_LST LST_CLIENT CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI) SI *SQLCODE=*NORMAL OK=*VRAI FIN SINON
|
Code permettant de rapatrier le détail d'un enregistrement.
* CREATION D'UN CLIENT SI CODACTION = 'CREATION' LIRE_SQL CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI) SI *SQLCODE=*NORMAL OK=*FAUX SINON LECTURE_LST LST_CLIENT CREER_SQL CLIENT SI *SQLCODE=*NORMAL OK=*VRAI SINON OK=*FAUX FIN FIN_LECTURE_LST FIN SINON
|
Code permettant de créer un nouvel enregistrement
* SUPPRESSION D'UN CLIENT SI CODACTION = 'SUPPR' SUPPRIMER_SQL CLIENT *COND(CL_COD_CLIENT=:PCOD_CLI) SI *SQLCODE=*NORMAL OK=*VRAI FIN SINON
|
Code permettant de supprimer un enregistrement
* MODIFICATION D'UN CLIENT SI CODACTION = 'MAJ' LECTURE_LST LST_CLIENT MAJ_SQL CLIENT CL_NOM_CLIENT=:CL_NOM_CLIENT, - CL_COD_POS_CLI=:CL_COD_POS_CLI, - CL_LIB_VIL_CLI=:CL_LIB_VIL_CLI, - CL_LIB_AD1_CLI=:CL_LIB_AD1_CLI, - CL_NUM_CPT_CLI=:CL_NUM_CPT_CLI, - CL_COD_MATRICUL=:CL_COD_MATRICUL, - CL_COD_BAN_CLI=:CL_COD_BAN_CLI, - CL_COD_GUI_CLI=:CL_COD_GUI_CLI, - CL_CLE_RIB_CLI=:CL_CLE_RIB_CLI - *COND(CL_COD_CLIENT=:CL_COD_CLIENT) SI *SQLCODE=*NORMAL OK=*VRAI FIN FIN_LECTURE_LST FIN
|
Code permettant de modifier un enregistrement
↑ Haut de page Copyrights Ι ©Hardis Group 2025 - Toute représentation ou reproduction intégrale ou partielle faite sans le consentement écrit d'Hardis Group est illicite.