saisie plusieurs enreg | Sujet: saisie plusieurs enreg par dmingo sur 8/7/2009 21:34:27
bonsoir pour saisir des données sur une feuille tout marche tres bien mais quand je valide la fenetre se ferme et je dois la rappeler pour faire une autre saisie ! c est pas pratique du tout , existe t il svp un moyen de garder cette fenetre ouverte le long de la saisie ? merci voici le code derriere le bouton valider:
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)
merci pour votre aide
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|