Ventas Medicas Cambios OS

2023-11-14 16:13:12 -07:00
parent 685a11abcf
commit 87ed685bbd
5 changed files with 55 additions and 34 deletions
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -310,8 +310,16 @@ Partial Class OS_RepServicioDomicilio
        DTTecnicos = New DataTable

        Dim ObjUsuarios As New ClsSisUsuarios
+
+
+
        If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
+            If UsuarioActual.CveRol = 1 Then
+                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
+            Else
+                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
+            End If
+
        End If
        ObjUsuarios.Dispose()