-- activación para vendedores y técnicos

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