Limpieza masiva Centros de costo

-Se unificó todo el comporatmiento de centros de costo en ClsPaginas
-Se unificó la carga de subproyectos en ClsPaginas

Compras/RepComprasAF.aspx.vb

@@ -50,16 +50,6 @@ Partial Class Compras_RepComprasAF
         If Not IsPostBack Then
             CargaCombos()
             'DdlPS.ddl.Visible = False
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                LblSubProyecto.Text = "Proyecto:"
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-                LblProyecto.Visible = False
-            End If
         End If
     End Sub
 
@@ -110,19 +100,7 @@ Partial Class Compras_RepComprasAF
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        If DdlProyecto.SelectedValue = "-1" Then
-            DdlProyecto.Items.Clear()
-            DdlSubProyecto.Items.Clear()
-            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
-        Else
-            CargaSubProyecto()
-        End If
-    End Sub
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()