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
| Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
If Not IsNothing(Session("step")) Then
ftPMO.Visible = True
ftAn.Visible = True
lstAnnee.Visible = True
lstPMO.Visible = True
BindAnnee()
BindPMO()
If ViewState("bp") = 1 Then
lstAnnee.SelectedValue = Now.Year
hdPMO.Value = lstPMO.SelectedValue
hdAnnee.Value = lstAnnee.SelectedValue
BindData()
Select Case Session("role")
Case 7
dgSproduits.Columns(4).Visible = False
dgSproduits.Columns(5).Visible = False
dgSproduits.ShowFooter = False
Case Else
dgSproduits.Columns(4).Visible = True
dgSproduits.Columns(5).Visible = True
dgSproduits.ShowFooter = True
End Select
btnModif.Visible = True
btnCancel.Visible = False
btnSave.Visible = False
txtCommAn.Enabled = False
lblCommAn.Text = "Commentaires de l'année : " & lstAnnee.SelectedValue.ToString()
'* Variable de session permettant de determiner si le commentaire en cours
'* d'affichage a ete modifie ou pas. Si elle n'existe pas on la cree et initialise
If IsNothing(Session("CommAnModif")) Then
Session("CommAnModif") = False
End If
End If
Else
ftPMO.Visible = False
ftAn.Visible = False
lstAnnee.Visible = False
lstPMO.Visible = False
End If
End If
End Sub |