From be58d923161be134f02feab4204a5c3747e15cdc Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 8 Jun 2024 10:45:51 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20para=20vendedores=20y=20?= =?UTF-8?q?t=C3=A9cnicos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepComisionesSMS.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb index 2ed9fb216..94940d4c8 100644 --- a/Ventas/RepComisionesSMS.aspx.vb +++ b/Ventas/RepComisionesSMS.aspx.vb @@ -34,14 +34,11 @@ Partial Class Ventas_RepComisionesSMS Private Sub CargaCombos() - 'If UsuarioActual.TienePermisoProceso(376) Then - ' DdlTecnico.Enabled = False - ' DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario) - 'End If + '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)) 'Else - DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso 'End If DdlVendedor.DataBind() DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) @@ -57,7 +54,10 @@ Partial Class Ventas_RepComisionesSMS DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioAtendio.DataBind() DdlUsuarioAtendio.Items.Insert(0, New ListItem("Todos", "-1")) - + If UsuarioActual.TienePermisoProceso(376) Then + DdlUsuarioAtendio.Enabled = False + DdlUsuarioAtendio.SelectedValueExist(UsuarioActual.CveUsuario) + End If End Sub