HRAZ()
SI SC_Fiche.SAI_Nb_j=0 OU SC_Fiche.SAI_Saisie3="" ALORS
Erreur("attention veuillez revoir votre saisie")
RETOUR
FIN
// Lecture des informations saisies
//ecranversfichier()
x est un numérique
y est un entier=0
y=SC_Fiche.SAI_Nb_j
x=SC_Fiche.doti
// S'il s'agit d'un nouvel enregistrement
SI Absence..NouvelEnregistrement = Vrai ALORS
// On l'ajoute
Absence.date1=SC_Fiche.SAI_Saisie3
Absence.date2=SC_Fiche.SAI_Saisie4
Absence.nb_j=SC_Fiche.SAI_Nb_j
Absence.NUMEDOTI=SC_Fiche.ledoti
Absence.date_certif=SC_Fiche.SAI_Saisie8
HAjoute(Absence)
Info("absence enregistrée")
//******************************
//******************************
SI PAS HExécuteRequêteSQL(...
"requete1",...
"UPDATE attestation SET cumul =cumul +"+y+" where attestation.numedoti ="+x)
DélaiAvantFermeture(1000)
Erreur(HErreurInfo())
SINON
HExécuteRequête(req_tab,hModifieFichier,SC_Fiche.doti)
TableAffiche(SC_Fiche.TABLE_Req_tab,taCourantPremier)
FIN
//
TableAffiche(SC_Fiche.TABLE_Req_tab,taCourantPremier)
SINON
// On le modifie
// hmodifie(Absence)
//absence.IDAbsence=(absence.IDAbsence+1)
//hmodifie(Absence)
FIN
// Valeur de retour de la fenêtre
MaFenêtre..ValeurRenvoyée = Vrai
Info("cette absence a été enregistrée")
HRAZ(Absence)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6239&post_id=24814