cambio a globaldtRHPersonal

Sistemas/UsuarioDetalle.aspx.vb

@@ -716,14 +716,17 @@ Partial Class Sistemas_UsuarioDetalle
         'DdlSubProyectos.SelectedValueExist(CveSubProyecto)
     End Sub
     Private Sub CargaPersonal()
-        Dim dt As DataTable = Nothing
-
-        Dim RH As New ClsRH
-        If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
-            dt = RH.DtResultados
-        End If
-        RH.Dispose()
-
+        Dim dt As DataTable = Nothing
+
+        'Dim RH As New ClsRH
+        'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
+        '    dt = RH.DtResultados
+        'End If
+        'RH.Dispose()
+        If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then
+            dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero)
+        End If
+
         DdlPersonal.Items.Clear()
         DdlPersonal.DataSource = dt
         DdlPersonal.DataBind()