LIB_Libellé1+="passage charge_zr  serveur ok"+RC ZoneRépétéeSupprimeTout(ZR_ZoneRépétée1) sTxtsql est une chaîne="" sTxtsql="SELECT "+RC+... "Netcahier.Idens AS Idens,	"+RC+...//1 "Netcahier.IDNetMatiere AS IDNetMatiere,	"+RC+...//2 "Netcahier.Idclas AS Idclas,	"+RC+...//3 "Netcahier.IDNetGroupe AS IDNetGroupe,	"+RC+...//4 "Netcahier.pourle AS pourle,	"+RC+...//5 "Netcahier.travail AS travail,	"+RC+...//6 "Netenseig.nom AS nom,	"+RC+...//7 "Netenseig.prenom AS prenom,	"+RC+...//8 "NetMatiere.libelle AS libelle"+RC+...//9 "FROM "+RC+... "NetMatiere,	"+RC+... "Netcahier,	"+RC+... "Netenseig"+RC+... "WHERE "+RC+... "Netcahier.IDNetMatiere=NetMatiere.IDNetMatiere"+RC+... "AND Netcahier.Idens=Netenseig.idens"+RC+... //"AND"+RC+... //"("+RC+... " AND Netcahier.Idclas = "+gxIdclas+RC+... "AND Netcahier.pourle = "+CAL_Calendrier1+RC+... //"AND	Netcahier.IDNetGroupe IN ({Plstgr}) "+RC+... //"AND	Netcahier.IDNetMatiere = {Pmat}"+RC+... //")"+RC+... "ORDER BY "+RC+... "pourle ASC,	"+RC+... "libelle ASC" LIB_Libellé1+="passage requetesql serveur ok"+RC SI SQLExec(sTxtsql,"REQ1") ALORS 	SQLPremier("REQ1" ) 	TANTQUE PAS SQL.EnDehors 	LIB_Libellé1+="passage boucle cahier de texte serveur ok"+RC 	//	ZoneRépétéeAjouteLigne(ZR_ZoneRépétée1,DateVersChaîne(ChaîneVersDate(SQLCol("REQ1",5),"AAAA-MM-JJ")),SQLCol("REQ1",9),SQLCol("REQ1",7)+" "+SQLCol("REQ1",8),SQLCol("REQ1",6),"","",vrai,vrai,vrai,vrai) 		ZoneRépétéeAjouteLigne(ZR_ZoneRépétée1,ChaîneVersDate(SQLCol("REQ1",5),"JJ/MM/AAAA"),SQLCol("REQ1",9),SQLCol("REQ1",7),SQLCol("REQ1",6),"","",Vrai,Vrai,Vrai,Vrai) 			SQLSuivant("REQ1") 	FIN 	SQLFerme("REQ1") SINON 	SQLInfoGene("REQ1") 	Info("erreur"+RC+SQL.MesErreur) FIN LIB_Libellé1+="passage sortie de boucle serveur ok"+RC