WDForge.org - Forums

resultat du code incomprhéensible !

Sujet: resultat du code incomprhéensible !
par zineb sur 18/5/2009 17:33:18

bonsoir , svp voici mon probleme :
table1: personne(cod_pers,....)
table2: absence(id_absence,...cod_pers)

normalement une personne peut avoir zero à plusieurs absences , pour enregistrer une nouvelle absence j execute le code ci-dessous , pour certaines personnes dont le cod_pers<6000 je peux ajouter autant d absence que je veux sans problemes , mais si j essai de le faire pour une personne dont l identifiant est > 6000 l'ancien enregistrement est remplacé par le nouveau et je n obtiens enfin de compte qu'un seul enregistrament , je comprends pas pourquoi , aidez moi svp

--------------------------------------------------------
//sc_fiche est la fenetre qui affiche les
//resultats et permet la saisie

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
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)
//*****************