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