<%
IDV = Request.QueryString("idV")
PrixVente = DLookUp("Ventes_club", "PrixVente", "id=" & IDV)
NomVente = DLookUp("Ventes_club", "Description", "id=" & IDV)
Response.Write("Vente " & NomVente & " (" & PrixVente & " €/pce)")
Response.Write("Télécharger le document de commande
")
Set rsCkhJV = Server.CreateObject("ADODB.Recordset")
sqlChkJV = "SELECT * FROM RelVenteJoueur_club WHERE idV=" & IDV
openrs rsCkhJV, sqlChkJV
If rsCkhJV.eof then
Response.Write("Pas de vente")
else
Response.Write("| Nom | Nbre | Total | ")
Response.Write("Payé | A payer | | | ")
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club ORDER BY Nom, Prenom"
openrs rsJoueurs, sqlJoueurs
TotalGlobal = 0
TotalNbr = 0
While not rsJoueurs.eof
IDJ = rsJoueurs("id")
JVCompte = 0
JVCompteToPay = 0
Set rsRelJVCompte = Server.CreateObject("ADODB.Recordset")
sqlRelJVCompte = "SELECT * FROM RelVenteJoueurCompte_club WHERE idJ=" & IDJ & " AND idV=" & IDV
openrs rsRelJVCompte, sqlRelJVCompte
If not rsRelJVCompte.eof then
While not rsRelJVCompte.eof
JVCompte = JVCompte + rsRelJVCompte("montantPaye")
rsRelJVCompte.movenext
Wend
end if
rsRelJVCompte.close
set rsRelJVCompte = nothing
Set rsRelJV = Server.CreateObject("ADODB.Recordset")
sqlRelJV = "SELECT * FROM RelVenteJoueur_club WHERE idJ=" & IDJ & " AND idV=" & IDV & " ORDER BY Client"
openrs rsRelJV, sqlRelJV
If not rsRelJV.eof then
Response.Write("| " & rsJoueurs("Nom") & " " & rsJoueurs("Prenom") & " | ")
TotalVente = 0
NbrePces = 0
TotalRecu = 0
While not rsRelJV.eof
Nbre = rsRelJV("NbPces")
NbrePces = NbrePces + Nbre
TotalVente = TotalVente + (PrixVente * Nbre)
TotalGlobal = TotalGlobal + (PrixVente * Nbre)
TotalNbr = TotalNbr + Nbre
If rsRelJV("PayeJoueur") = "oui" then
TotalRecu = TotalRecu + (PrixVente * Nbre)
end if
rsRelJV.movenext
Wend
JVCompteToPay = TotalVente - JVCompte
Response.Write("" & NbrePces & " | ")
Response.Write("" & TotalVente & " € | ")
Response.Write("" & JVCompte & " € | ")
Response.Write("" & JVCompteToPay & " € | ")
Response.Write("Détails | ")
Response.Write("Paiement | ")
end if
rsRelJV.close
set rsRelJV = nothing
rsJoueurs.movenext
Wend
rsJoueurs.close
set rsJoueurs = nothing
TotalApayer = 0
TotalPaye = 0
Set rsComptes = Server.CreateObject("ADODB.Recordset")
sqlComptes = "SELECT * FROM RelVenteJoueurCompte_club WHERE idV=" & IDV
openrs rsComptes, sqlComptes
While not rsComptes.eof
TotalPaye = TotalPaye + rsComptes("montantPaye")
rsComptes.movenext
wend
rsComptes.close
set rsComptes = nothing
TotalApayer = TotalGlobal - TotalPaye
Response.Write("| Total Global : " & TotalNbr & " pces - " & TotalGlobal & " € (" & TotalPaye & " € payé - " & TotalApayer & " € à payer) | ")
Response.Write("
")
end if
Response.Write("Joueurs inactifs sur cette vente")
Response.Write("| Nom | Equipe | | ")
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club WHERE desactive=0 ORDER BY Nom, Prenom"
openrs rsJoueurs, sqlJoueurs
While not rsJoueurs.eof
IDJ = rsJoueurs("id")
Set rsRelJV = Server.CreateObject("ADODB.Recordset")
sqlRelJV = "SELECT * FROM RelVenteJoueur_club WHERE idJ=" & IDJ & " AND idV=" & IDV & " ORDER BY Client"
openrs rsRelJV, sqlRelJV
If rsRelJV.eof then
Response.Write("| " & rsJoueurs("Nom") & " " & rsJoueurs("Prenom") & " | ")
NomCat = DLookUp("categorie", "NomCat", "id=" & rsJoueurs("idCat"))
Response.Write("" & NomCat & " | ")
Response.Write("Ajouter vente | ")
rsJoueurs.movenext
else
rsJoueurs.movenext
end if
Wend
rsJoueurs.close
set rsJoueurs = nothing
Response.Write("
")
%>
|
