Private Sub dagrid_itembound(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles DgItem.ItemCommand


        Dim A As String = Request.ServerVariables("REMOTE_USER")
        getUser()



        Me.Butexcel.Visible = False
        Me.Butclose2.Visible = True
        Me.butInserimento.Visible = False
        Me.ButPul.Visible = False
        Me.Butclose.Visible = False
        Me.lblNoItem.Visible = False
        Me.lblNoItem.Visible = False
        Me.Calendar1.Visible = False
        Me.Lstcampi.Visible = False
        Me.Butricerca.Visible = False
        Me.Lblcerca.Visible = False
        Me.txtcerca.Visible = False
        Me.Lblselect.Visible = False
        Me.Lblinserimento.Text = "Selected Order"
        Me.Lblinserimento.Visible = True

        ' abilitazione a modifica e cancellazione
        Dim s As String = ruolo()

        If e.Item.Cells(6).Text.Trim = String.Empty Then


            If s = "admin" Then

                Me.txtitemsel.Text = e.Item.Cells(1).Text
                Me.Txtordspa.Text = e.Item.Cells(2).Text
                Me.Txtordsud.Text = e.Item.Cells(3).Text
                Me.Txtnrpl.Text = e.Item.Cells(4).Text

                'Label1.Visible = True
                Me.butdel.Visible = True
                Me.txtitemsel.Visible = True
                Me.Txtordsud.Visible = True
                Me.Txtordspa.Visible = True
                Me.Txtnrpl.Visible = True

                'Me.LblSel.Visible = True
                Me.Label1.Visible = True
                Me.lblspa.Visible = True
                Me.lblsud.Visible = True

                Me.lblnrpl.Visible = True
                Me.ButModifica.Visible = True
             

                ' abilitazione solo a modifica
            ElseIf s = "puser" Then

                Me.txtitemsel.Text = e.Item.Cells(1).Text
                Me.Txtordspa.Text = e.Item.Cells(2).Text
                Me.Txtordsud.Text = e.Item.Cells(3).Text
                Me.Txtnrpl.Text = e.Item.Cells(4).Text

                'Label1.Visible = True
                Me.butdel.Visible = False
                Me.txtitemsel.Visible = True
                Me.Txtordsud.Visible = True
                Me.Txtordspa.Visible = True
                Me.Txtnrpl.Visible = True
                'Me.LblSel.Visible = True
                Me.Label1.Visible = True
                Me.lblspa.Visible = True
                Me.lblsud.Visible = True
                Me.lblnrpl.Visible = True
                Me.ButModifica.Visible = True

            End If

        Else

            Me.lblWarn.Text = "No expected action"
            Me.Lblinserimento.Visible = False
            Me.Butclose2.Visible = False
            Me.lblWarn.Visible = True
            Me.butcancel.Visible = True
            Me.DgItem.Visible = False
            Me.Lblitem.Visible = False


        End If


    End Sub