- mejoras

OS/RepOSMedicas.aspx.vb

@@ -29,24 +29,26 @@ Partial Class OS_RepOSMedicas
         DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
         DdlEstatusOS.DataBind()
         DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))
-        Dim DTTecnicos As New DataTable
-        Dim ObjUsuarios As New ClsSisUsuarios
-
-        If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
-            If UsuarioActual.CveRol = 1 Then
-                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
-            Else
-                DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0 and CveUsuario <>  100")
-            End If
+        Dim DTTecnicos As DataTable = Nothing
 
+        Dim ObjOS As New ClsOS
+        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+            DTTecnicos = ObjOS.DtResultados
         End If
-        ObjUsuarios.Dispose()
+        ObjOS.Dispose()
 
-        DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
+        DdlTecnico.DataSource = DTTecnicos
         DdlTecnico.DataBind()
         DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
 
+
+        If IfNull(Request("CveUsuarioTecnico"), 0).ToString.ToEntero > 0 Then
+            DdlTecnico.SelectedValueExist(Request("CveUsuarioTecnico").ToString)
+        Else
+            ViewState("CveUsuarioTecnico") = -1
+        End If
+
         'CargaClientes
         Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then