Re: Aide urgente:Impression des bulletins scolaires par Classe

Posté par Anonyme le 23/4/2006 18:52:11

Salut

Voici la requete qui va chercher les bulletins créés pour le trimestre et la classe:

SELECT Bulletin.Nbulletin AS Nbulletin,
Bulletin.Neleve AS Neleve,
Bulletin.Nom AS Nom,
Bulletin.Prenoms AS Prenoms,
Bulletin.DateNaiss AS DateNaiss,
Bulletin.Lieunaiss AS Lieunaiss,
Bulletin.IDClasseE AS IDClasseE,
Bulletin.ClasseEc AS ClasseEc,
Bulletin.Anneescolaire AS Anneescolaire,
Bulletin.TrimestreNo AS TrimestreNo,
Bulletin.Total AS Total,
Bulletin.TotGen AS TotGen,
Bulletin.MoyTrim AS MoyTrim,
Bulletin.MoyGen AS MoyGen,
Bulletin.Nomenseignant AS Nomenseignant,
Bulletin.Directeur AS Directeur,
Bulletin.Passage AS Passage,
Bulletin.Redouble AS Redouble,
Bulletin.Expulse AS Expulse,
Bulletin.Rang AS Rang
FROM Bulletin
WHERE Bulletin.ClasseEc = {Pclasse}
AND Bulletin.Anneescolaire = {Pannscolaire}
AND Bulletin.TrimestreNo = {Ptrimester}
ORDER BY Rang ASC

//////////////Code du bouton Generer et impresion des bulletin/////////////////////////////

HExécuteRequête(Reqbullclasse, hRequêteDéfaut,Pclasse, pannee,Ptrimester)
HLitPremier(Reqbullclasse)
j,m sont des entiers
TANTQUE PAS HEnDehors()

j++
HLitSuivant(Reqbullclasse)
FIN
FichierVersTableMemoire(Tblbullclasse,Reqbullclasse)

// Impression
si ouinon("Veuillez patienter pout l'impression de tous les bulletins pour ce trimestre de votre classe") alors
Pour m=1 a TableOccurrence(Tblbullclasse)
iapercu()

iImprimeEtat(Etat_Bulletinscolaire,Bulletin.Nbulletin)

fin
FIN
---------------------------------------------------------
Les resultats s'affiche mais notre probleme c'est le parcours de la table et la recupération des donnees Detailbulletin et l'impression dans une boucle de chaque bulletin affiché

Merci bcp