RH/ActualizacionMasiva.aspx.vb

@@ -102,11 +102,17 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaSuperioresOrganigrama()
+        Using objbase As New ClsClaseBase
+            Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM  RH_Organigrama )", UsuarioActual.CveEmpresa)
+            If (objbase.runQuerystr(strquery)) Then
+                DdlSupervisor.DataSource = objbase.DtResultados
+
+            End If
+        End Using
         Dim ObjRH As New ClsRH
 
         If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
             ViewState("dtSupervisores") = ObjRH.DtResultados
-            DdlSupervisor.DataSource = ObjRH.DtResultados
         Else
             DdlSupervisor.DataSource = Nothing
             Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")