par Ullé » Ven Jan 07, 2011 12:23 pm
BTN_Enregister
//Controle des champs de saisie
Si Champ1 = "" Alors
Info("Merci de renseigner le champ1)
RepriseSaisie(Champ1)
FIN
//Envoie des données dans le buffer
EcranVersFichier(TaFenetre,TonFichier)
// Pas de gestion automatique des erreurs (doublons, intégrité, ...)
HSurErreur("*",hErrDoublon,"")
SI PAS HAjoute(TonFichier) ALORS
SI HErreurDoublon() ALORS
Erreur("Vous tentez d'enregistrez doublement une modalité d'un caractère")
RETOUR
FIN
SI HErreurIntégrité() ALORS
Erreur(HErreurInfo())
RETOUR
FIN
FIN
// Si on veut afficher dans la table
TableAffiche(TaTable, taInit)