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 |
Partager