From e0f545f24802f2bfa44f9c3a373db19eeb3c2aa4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 11 Sep 2024 05:44:30 -0700
Subject: [PATCH] =?UTF-8?q?--=20ocultar=20columna=20seg=C3=BAn=20rol?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepComisionesSMS.aspx.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index c7d758c1b..4601e4e35 100644
--- a/Ventas/RepComisionesSMS.aspx.vb
+++ b/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