<% if Session("RapportA") = false then Response.Redirect (""&path&"/index.asp") end if %>
 
Rapport des paiements
     Paramètres de recherche :


<% if NbrGroupe <> "" then%> <%end if%> <% if sCodeA <> "" then if sGroupe <> "" then strSql1 = "SELECT * FROM Horaire where CodeA = "& sCodeA &" and GroupeA = '"&sGroupe&"'" Set rsQueryH = Conn.Execute(strSql1) else strSql1 = "SELECT * FROM Horaire where CodeA = "& sCodeA Set rsQueryH = Conn.Execute(strSql1) end if if not rsQueryH.EOF then TypeHoraire = rsQueryH("TypeHoraire") NbreSemaines = rsQueryH("NbreSemaines") end if if TypeHoraire = "Semaine" then%> <%end if%> <%end if%>
Activité
Nom de l'activité : <% if Request.QueryString("CodeA") <> "" then sCodeA = int (Request.QueryString("CodeA")) strSql1 = "SELECT * FROM Activites where CodeA = " & sCodeA Set rsQuery1 = Conn.Execute(strSql1) if rsQuery1("Groupe") <> "" then NbrGroupe = int (rsQuery1("Groupe")) end if if Request.QueryString("Groupe") = "" then sGroupe = int(1) else sGroupe = int (Request.QueryString("Groupe")) end if end if %>
Groupe :
Semaines :
<% if NbreSemaines <> "" then For S = 1 to NbreSemaines Step 1 If S = 1 or S = 12 or S = 23 Then%> <%end if%> <%If S = 11 or S = 22 or S = 33 Then%> <%end if %> <% Next %> <%end if%>
<%=S%>
 
Type d'activité :
Date de paiement :
 
Reçu 

Numéro entre :

 

et :

Reçu Annuler :

Remboursement :
 
Admin
Code :
 
     Format :


Format :

Web

Excel