-- mejora visual para colores

-- limitar visibilidad de vendedores  y técnicos

OS/RepServiciosMedicos.aspx.vb

@@ -259,7 +259,9 @@ Partial Class OS_RepServiciosMedicos
             CargaUsuariosTecnicos()
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
             LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
-            ' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
+            If UsuarioActual.CveVendedor > 0 Then
+                HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString
+            End If
             CargaTecnicos()
             ConsultaOrdenesServiciosNoAsignadas()
             CargaOrdenesServiciosNoAsignadas()
@@ -273,7 +275,7 @@ Partial Class OS_RepServiciosMedicos
 
     Private Sub CargaUsuariosTecnicos()
 
-        If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
+        ' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
 
         Dim DTTecnicosresultado As DataTable = Nothing
         DTTecnicos = New DataTable
@@ -295,6 +297,8 @@ Partial Class OS_RepServiciosMedicos
         End If
         ObjOS.Dispose()
 
+        DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
+
         DdlTecnicoAsignar.DataSource = DTTecnicos
         DdlTecnicoAsignar.DataBind()
         DdlTecnicoAsignar.Visible = True
@@ -345,6 +349,10 @@ Partial Class OS_RepServiciosMedicos
         DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
+        If UsuarioActual.TienePermisoProceso(376) Then
+            DdlTecnico.Enabled = False
+            DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
+        End If
     End Sub
 
     Private Sub CargaTecnicosAsignar()