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/RepAuxiliarFacturas.aspx.vb

@@ -75,12 +75,7 @@ Partial Class Ventas_RepAuxiliarFacturas
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
@@ -93,56 +88,16 @@ Partial Class Ventas_RepAuxiliarFacturas
             DdlPS.SelectedText = "Todos"
             DdlPS.SelectedValue = "-1"
         End If
-    End Sub
-
-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-        End If
     End Sub
 
     Private Sub CargaCombos()
         'Cargo Clientes
         'CargaClientes()
 
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
         'Cargo Clasificaciones
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
 
-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-
         'Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
@@ -172,7 +127,7 @@ Partial Class Ventas_RepAuxiliarFacturas
             DdlEstatus.SelectedIndex = 1
         End If
 
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
         TipoCambio = 1
         TCEspecifico = 0