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