Si vous avez créer un projet WebDev en Hyper File et que vous souhaitez le transformer en projet AS/400, deux points importants sont nécessaires.
En WinDev, l’implémentation de cette procédure n’est pas obligatoire.
1. Il faut créer une connexion AS/400.
En début de projet, ouvrir la connexion AS/400 par la fonction : HOuvreConnexion : HOuvreConnexion(MaConnexion)
2. Implémenter une procédure pour la modification d'enregistrement
Exemple :
Countline est un entier
HOuvreConnexion(MaConnexion)
HLitPremier(Sp_cust,Cust_id)
TANTQUE PAS HEnDehors(Sp_cust)
Countline++
Sp_cust.Firstname = Countline
HSurErreur(Sp_cust,hErrTout,proc_erreur)
HModifie(Sp_cust)
HLitSuivant(Sp_cust,Cust_id)
FIN
//Procédure globale
PROCEDURE proc_erreur()
SELON HErreurEtatModification(Sp_cust,hEnrFichier)
CAS hEtatActif
//Forcer la modification
RENVOYER opRéessayer
CAS hEtatSup
//On ajoute l'enregistrement et on annule la modification
RENVOYER opAnnuler
AUTRE CAS
//On annule
RENVOYER opAnnuler
FIN