move llamados a bd desde clase

RH/ActualizacionMasiva.aspx.vb

@@ -103,11 +103,9 @@ 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
+        Using objbase As New ClsRH()
+            If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then
                 DdlSupervisor.DataSource = objbase.DtResultados
-
             End If
         End Using
         Dim ObjRH As New ClsRH