PROCEDURE afficheCategories(nNumPage est un entier, nNbParPage est un entier)

sReq est une chaîne
sNomReq est une chaîne = "requeteCategories"
sNomReq2 est une chaîne = "requeteApplicationsDansCategorie"
bRes est un booléen
nNbNews est un entier
nNbPages est un entier
i est un entier = 0

initBarreNav("SELECT COUNT(*) FROM categorie", nNumPage)

SI connecteBdd()  ALORS
	sReq = "SELECT * FROM categorie ORDER BY libCat LIMIT " + ((nNumPage-1)*ListeSelect(cmb_nbParPage)) + "," + nNbParPage
	bRes = SQLExec(sReq, sNomReq)
	SI  PAS bRes ALORS
		SQLInfoGene()
		Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.MesErreur)
	SINON
		MaFenêtre..Plan = 3
		grp_controles..Visible = Vrai
		ZoneRépétéeSupprimeTout(zr_categ)
		i=0
		TANTQUE SQLAvance(sNomReq) = 0
			i++
			
			ZoneRépétéeAjouteLigne(zr_categ)
			zr_categ[i].sai_idCat = SQLLitCol(sNomReq,1)
			zr_categ[i].sai_libCat = SQLLitCol(sNomReq,2)
			
			sReq = "SELECT idApp, nom FROM application WHERE idCat=" + zr_categ[i].sai_idCat
			bRes = SQLExec(sReq, sNomReq2)
			SI  PAS bRes ALORS
				SQLInfoGene()
				Erreur("Erreur lors de l'exécution de la requête.","Détail de l'erreur : ", " ", SQL.Erreur)
			SINON
				Info(zr_categ[i].lis_applis..Type, typListe)

				TANTQUE SQLAvance(sNomReq2) = 0
					// Le problème se situe ici...
					ListeAjoute(zr_categ[i].lis_appli, SQLLitCol(sNomReq2,2) + gLien(SQLLitCol(sNomReq2, 1))) 
				FIN
				
			FIN
			SQLFerme(sNomReq2)
		FIN
	FIN
	SQLFerme(sNomReq)
FIN
grp_appli..Etat = Inactif
SQLDéconnecte()