-- ocultar columna según rol

Ventas/RepComisionesSMS.aspx.vb

@@ -34,6 +34,7 @@ Partial Class Ventas_RepComisionesSMS
 
     Private Sub CargaCombos()
 
+        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente
 
         'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
         '    DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
@@ -45,6 +46,7 @@ Partial Class Ventas_RepComisionesSMS
         If UsuarioActual.CveVendedor > 0 Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
             DdlVendedor.Enabled = False
+            GvDatos.Columns(15).Visible = False 'gerente
         End If
 
         DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
@@ -57,9 +59,10 @@ Partial Class Ventas_RepComisionesSMS
         If UsuarioActual.TienePermisoProceso(376) Then
             DdlUsuarioAtendio.Enabled = False
             DdlUsuarioAtendio.SelectedValueExist(UsuarioActual.CveUsuario)
+            GvDatos.Columns(15).Visible = False 'gerente
+            GvDatos.Columns(16).Visible = False 'ed.medica
+            GvDatos.Columns(17).Visible = False 'fecha pago
         End If
-
-
     End Sub
 
     Public Sub CargaDatos()
@@ -82,9 +85,6 @@ Partial Class Ventas_RepComisionesSMS
 
         ObjVentas.Dispose()
         GvDatos.DataBind()
-
-        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente
-
         UpDatos.Update()
 
     End Sub