1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
Imports System.Data.SqlClient
Imports TEST.Utils.Connexion
Public Class listeStagiaires
Inherits System.Web.UI.Page
Dim unTypeVehicule As Integer
Dim unStage As Integer
Dim unLieu As Integer
Dim uneDate As Integer
Dim unStatut As Integer
Dim unModePaiement As String
Protected WithEvents dtlCommandeInscrit As System.Web.UI.WebControls.DataList
Protected WithEvents chkValider As System.Web.UI.WebControls.CheckBox
Protected WithEvents txtObservation As System.Web.UI.WebControls.TextBox
Protected WithEvents lnkBtnRetour As System.Web.UI.WebControls.LinkButton
Protected WithEvents lblMoniteur As System.Web.UI.WebControls.Label
Protected WithEvents lblCentre As System.Web.UI.WebControls.Label
Protected WithEvents lblUser As System.Web.UI.WebControls.Label
Protected WithEvents lblDate As System.Web.UI.WebControls.Label
Protected WithEvents litDate As System.Web.UI.WebControls.Literal
Protected WithEvents litStatut As System.Web.UI.WebControls.Literal
Protected WithEvents litModePaiement As System.Web.UI.WebControls.Literal
Dim unMoniteur As String
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
'Ne pas supprimer ou déplacer.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim laConnexion As New SqlConnection(Application("chaineConnexion"))
Dim lAdaptateur As New SqlDataAdapter
Dim leDts As New DataSet
Dim laReqString As String
Dim laCommande As SqlCommand
Dim leReader As SqlDataReader
Dim laConnexionUser As Utils.Connexion = New Utils.Connexion
laConnexionUser.checkDroit(Session("UtilisateurId"))
laConnexion.Open()
If Not IsPostBack Then
unTypeVehicule = CType(context.Handler, listeStagiairesCriteres).leTypeVehicule
unStage = CType(context.Handler, listeStagiairesCriteres).leStage
unLieu = CType(context.Handler, listeStagiairesCriteres).leLieu
litDate.Text = CType(context.Handler, listeStagiairesCriteres).laDateReservation
litStatut.Text = CType(context.Handler, listeStagiairesCriteres).leStatut
litModePaiement.Text = CType(context.Handler, listeStagiairesCriteres).leModePaiement
unMoniteur = CType(context.Handler, listeStagiairesCriteres).leMoniteur
laReqString = "SELECT CALENDRIER_DATE " _
& "FROM STOCK " _
& "WHERE STOCK_ID = " & litDate.Text & " "
laCommande = New SqlCommand(laReqString, laConnexion)
leReader = laCommande.ExecuteReader
If leReader.Read Then
lblDate.Text = Format(leReader("CALENDRIER_DATE"), "d")
End If
leReader.Close()
laCommande.Dispose()
lblMoniteur.Text = unMoniteur
laReqString = "SELECT LIEU_LIBELLE " _
& "FROM LIEU " _
& "WHERE LIEU_ID = " & unLieu & " "
laCommande = New SqlCommand(laReqString, laConnexion)
leReader = laCommande.ExecuteReader
If leReader.Read Then
lblCentre.Text = leReader("LIEU_LIBELLE")
End If
leReader.Close()
laCommande.Dispose()
laReqString = "SELECT ACCES_PRENOM + ' ' + ACCES_NOM AS ACCES_NOM " _
& "FROM ACCES " _
& "WHERE ACCES_ID = " & Session("UtilisateurId")
laCommande = New SqlCommand(laReqString, laConnexion)
leReader = laCommande.ExecuteReader
If leReader.Read Then
lblUser.Text = leReader("ACCES_NOM")
End If
leReader.Close()
laCommande.Dispose()
End If
laReqString = "SELECT COMMANDE.COMMANDE_ID, COMMANDE_DATE, INSCRIT_NOM + ' ' + INSCRIT_PRENOM + '<br>' + INSCRIT_EMAIL AS INSCRIT_NOM, INSCRIT_ADRESSE_1 + '<br>' + INSCRIT_ADRESSE_2 + '<br>' + INSCRIT_CODE_POSTAL + ' ' + INSCRIT_VILLE AS INSCRIT_ADRESSE, INSCRIT_PERMIS_NO +'<br>'+INSCRIT_PERMIS_LIEU AS INSCRIT_PERMIS_NO, INSCRIT_PERMIS_DATE, MODE_PAIEMENT_ID, COMMANDE_PRIX_PRODUIT, " _
& "CASE STATUT_ID WHEN " & Application("statutConfirmeId") & " THEN 1 ELSE 0 END AS COMMANDE_OK, INSCRIT_TELEPHONE " _
& "FROM COMMANDE, LIGNE_COMMANDE, INSCRIT, STOCK " _
& "WHERE COMMANDE.INSCRIT_ID = INSCRIT.INSCRIT_ID " _
& "AND COMMANDE.COMMANDE_ID = LIGNE_COMMANDE.COMMANDE_ID " _
& "AND LIGNE_COMMANDE.STOCK_ID = STOCK.STOCK_ID " _
& "AND STOCK.STOCK_ID = " & litDate.Text & " "
If litModePaiement.Text <> "" Then
laReqString = laReqString & "AND MODE_PAIEMENT_ID = '" & litModePaiement.Text & "' "
End If
If litStatut.Text <> 0 Then
laReqString = laReqString & "AND STATUT_ID = " & litStatut.Text & " "
End If
laReqString = laReqString & "ORDER BY COMMANDE_DATE, INSCRIT_NOM"
lAdaptateur.Dispose()
dtlCommandeInscrit.Dispose()
leDts.Clear()
lAdaptateur.SelectCommand = New SqlCommand(laReqString, laConnexion)
lAdaptateur.Fill(leDts, "Inscrit")
dtlCommandeInscrit.DataSource = leDts
dtlCommandeInscrit.DataBind()
laConnexion.Close()
End Sub
Private Sub lnkBtnRetour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkBtnRetour.Click
Server.Transfer("listeStagiairesCriteres.aspx")
End Sub
Private Sub dtlCommandeInscrit_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles dtlCommandeInscrit.ItemCommand
Dim laConnexion As New SqlConnection(Application("chaineConnexion"))
Dim laReqString As String
Dim laCommande As SqlCommand
Dim leTest As Integer
Dim lIdCommande As Double = dtlCommandeInscrit.DataKeys(e.Item.ItemIndex)
laConnexion.Open()
laReqString = "UPDATE COMMANDE " _
& "SET STATUT_ID = " & Application("statutConfirmeId") & ", " _
& "WHERE COMMANDE_ID = " & lIdCommande & " "
laCommande = New SqlCommand(laReqString, laConnexion)
leTest = laCommande.ExecuteNonQuery
laCommande.Dispose()
laConnexion.Close()
End Sub
Private Sub dtlCommandeInscrit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtlCommandeInscrit.SelectedIndexChanged
End Sub
End Class |
