Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Merci j'ai pu générer le script mais PCSOFT ne montre rien à ce sujet quand je me rappelle que j'avais regardé cette vidéo jusqu'à hier et c'est alors que je me décide de poser mon problème et j'ai reçu une réponse sur mesure.
Une fois encore merci
Mais j'ai un autre soucis je ne sais si c'est moi qui écrit mal le code je continue avec le même billet pour éviter d'en créer un autre
NB : permettez de m'excuser pour ce long post il en vaut la peine pour mieux présenter mon problème
Le coup de pouce deBonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
m'a permis d'évoluer de façon considérable.
Mon problème est sur le parcours de mon tableau afin de remplir mon tableau
Pour faire simple je veux générer un fichier PDF contenant la liste les notes de mes étudiants
Le code de génération du script modifié est en Pj dans un fichier texte
//////////////////////////////////// La méthode Globale qui me permet de remplir mes données /////////////////////////////////////////////////////////
[code = windev]PROCÉDURE PUBLIQUE GLOBALE Generer_PDF(gsAnnée_Sco,gnIDclasse,gnIDMatièreEnseignée,gsRoupe,MaClasseEtu,MatDispensée,Semestre) <métier>
clUneNoteFinale est un MNoteFinale
Note est un réel
////////////////////////////////////////////////////////////////////////
rLastLevel est un réel
nCpt est un entier = 0
sLastRang, sMonrang sont des chaînes
bFirst est un booléen = Vrai
tabFix est un tableau de chaînes = ["er","e"]
gclInfosNotes:m_sAnnéeAcad = "Année Académique:[%gsAnnée_Sco%]"
gclInfosNotes:m_sRub_Classe = "CLASSE:[%MaClasseEtu%]-[%Semestre%]"
gclInfosNotes:m_sRub_Groupe = gsRoupe
gclInfosNotes:m_sRub_TitreUE = "Relevé des notes des séances de Travaux Pratiques de l'[%MatDispensée%]"
gclInfosNotes:m_tabListeNotes.SupprimeTout()
// Charger les données à imprimer
REQ_NoteFinaleEtu.ParamAcad_Year = gsAnnée_Sco
REQ_NoteFinaleEtu.ParamIDClasse_Etu = gnIDclasse
REQ_NoteFinaleEtu.ParamIDMatière_Dispensées = gnIDMatièreEnseignée
REQ_NoteFinaleEtu.ParamLibGroupe = gsRoupe
HExécuteRequête(REQ_NoteFinaleEtu,hRequêteDéfaut)
POUR TOUT REQ_NoteFinaleEtu
SI REQ_NoteFinaleEtu.SumNote <20 ALORS
Note = REQ_NoteFinaleEtu.SumNote
SINON
Note = REQ_NoteFinaleEtu.SumNote/2
FIN
//////////////////////////////////////////////////////
// Afficher le rang
nCpt++
SI bFirst ALORS
sMonrang = nCpt+ tabFix[1]
bFirst = Faux
sLastRang = nCpt+ tabFix[1]
SINON SI rLastLevel = Note
sMonrang = sLastRang
//nCpt--
SINON
sMonrang = nCpt+ tabFix[2]
sLastRang = nCpt+ tabFix[2]
FIN
rLastLevel = Note
//////////////////////////////////////////////////////////////////////////////////////
clUneNoteFinale:m_sRang = sMonrang
clUneNoteFinale:m_sMatricule = Affich_Matricules(REQ_NoteFinaleEtu.IDEtudiants)
clUneNoteFinale:m_sNomComplet = NomPersonnel(REQ_NoteFinaleEtu.IDEtudiants)
clUneNoteFinale:m_rMoy = Note
clUneNoteFinale:m_rGpa = Attrib_Gpa(Note)
clUneNoteFinale:m_sGrade = Attrib_Grade(Note)
clUneNoteFinale:m_sMention = Appréciations(Note)
gclInfosNotes:m_tabListeNotes.Ajoute(clUneNoteFinale)
FIN
gclInfosNotes:m_sPowerBy = "Généré par "+ProjetInfo(piNomProjet)+" le "+...
DateVersChaîne(Date_Serveur(),"JJ/MM/AAAA")+" à "+HeureVersChaîne(Heure_Serveur(),"HH:MM:SS")
gclInfosNotes:m_sCBCode = "Généré par "+ProjetInfo(piNomProjet)+" le "+...
DateVersChaîne(Date_Serveur(),"JJ/MM/AAAA")+" à "+HeureVersChaîne(Heure_Serveur(),"HH:MM:SS")[/code]
////////////////////// L'appel des méthodes //////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////Code (Windev):MNoteFinale.Generer_PDF(gsAnnée_Sco,gnIDclasse,gnIDMatièreEnseignée,gsNom_groupe,gsMaClasse,gsMatière,gsSmestres)
sContenuPDF est une chaîne = gsMaClasse+"_"+gsSmestres+"_"+gsNom_groupe+"_"+gsMatière+"_"+Date_Serveur()+".pdf"
sContenuPDF =Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(sContenuPDF,":","_")
ImprimeEtat()
Je mets aussi à votre disposition quelques captures d'écrans
Je vous serai gré
