move llamados a bd desde clase

RH/Asistencias.aspx.vb

@@ -34,18 +34,14 @@ Partial Class RH_Asistencias
         '    Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
         'End If
         'ObjRH.Dispose()
-
-        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
                 DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
-
+                DdlSupervisorOrganigrama.DataBind()
             End If
         End Using
 
-        If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
-            DdlSupervisorOrganigrama.DataBind()
-        End If
+
     End Sub
 #End Region
     Private Sub CargaClientes()