1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| PROCEDURE PRG_TachePlanifiee2()
QUAND EXCEPTION DANS
sUtilisateur est une chaîne = "Uinit"
ncpt est un entier
sSQL est une chaîne
sdSql est une Source de Données
ssql = "SELECT Utilisateur.Utilisateur AS Utilisateur, Utilisateur.Nom AS Nom, Utilisateur.Prenom AS Prenom, Utilisateur.MotDePasse AS MotDePasse, Utilisateur.CompteActif AS CompteActif, " + ...
"Utilisateur.Administrateur AS Administrateur " + ...
"FROM Utilisateur "
HExécuteRequêteSQL(sdsql, ssql)
HLitPremier(sdSql)
TANTQUE HEnDehors(sdSql) = Faux
nCpt++
sUtilisateur = sUtilisateur + "-" + sdsql.Utilisateur
HLitSuivant(sdSql)
FIN
sJournal2 est une chaîne
sJournal2 = ChaîneConstruit("%1Abonnement_Activite_PRG_TachePlanifiee2_%2_%3.txt",ComplèteRep(fRepWeb()) ,DateSys(),HeureSys())
nJournal2 est un entier
nJournal2 = fCrée(sJournal2)
sJournal2 = fOuvre(nJournal2,foEcriture)
fEcrit(nJournal2, "res = " + ncpt + " - " + sutilisateur )
fFerme(nJournal2)
FAIRE
sJournal est une chaîne
sJournal = ChaîneConstruit("%1Abonnement_EXCEPTION_PRG_TachePlanifiee2_%2_%3.txt",ComplèteRep(fRepWeb()) ,DateSys(),HeureSys())
nJournal est un entier
nJournal = fCrée(sJournal)
sJournal = fOuvre(nJournal,foEcriture)
fEcrit(nJournal, ExceptionInfo(errComplet) )
fFerme(nJournal)
FIN |
Partager