Limpieza masiva Centros de costo

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

Ventas/AuxiliarClienteVentas.aspx.vb

@@ -39,8 +39,6 @@ Partial Class Ventas_AuxiliarClienteVentas
         End If
     End Sub
 
-
-
     Private Sub CargaFiltros()
 
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -60,10 +58,7 @@ Partial Class Ventas_AuxiliarClienteVentas
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) 'GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing)
 
         txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
         txtFechaF.Text = Now.ToString("dd/MM/yyyy")