diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 628732b57..85cb7f1a4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1320,11 +1320,10 @@ Public Class ClsPaginas
                 If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
                 ObjSubProyectos.Dispose()
             End If
-            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEstatus <> -1 Then
                 Dim StrSQL As New StringBuilder
                 If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
                 If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
                 If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                 If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
                 Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -1347,10 +1346,9 @@ Public Class ClsPaginas
                 If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
                 ObjSubProyectos.Dispose()
             End If
-            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEstatus <> -1 Then
                 Dim StrSQL As New StringBuilder
                 If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
                 If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                 If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
                 Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -4260,7 +4258,7 @@ Public Class ClsPaginas
         ObjUsuario.Dispose()
         Return Retorno
     End Function
-    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListBox = Nothing)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
             Case 1
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
@@ -4292,9 +4290,20 @@ Public Class ClsPaginas
             If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
         If DdlSubProyecto IsNot Nothing Then
-            DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-            DdlSubProyecto.DataBind()
-            If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
+            CargarSubProyecto(DdlSubProyecto, "-1", AplicaTodos)
+        End If
+    End Sub
+    Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione")
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.ClearSelection()
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataBind()
+        If AplicaTodos <> "" Then
+            If DdlSubProyecto.GetType() Is GetType(ListBox) Then
+                'DdlSubProyecto.Text = "Seleccione"
+            Else
+                DdlSubProyecto.Items.Insert(0, New ListItem(If(CveProyecto <> "-1", AplicaTodos, "Todos"), "-1"))
+            End If
         End If
     End Sub
     Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False)
@@ -8058,7 +8067,7 @@ Public Class ClsPaginas
     End Class
 #End Region
 
-#Region "GlobalSIGAppPaginas"
+#Region "Diccionario de páginas"
     Private Function Obt_ClavePagina(Pagina As String) As Integer
         Dim Retorno As Integer
         Dim PaginaDict As System.Collections.Hashtable
diff --git a/CGame/CatEstatus.aspx.VB b/CGame/CatEstatus.aspx.VB
index 4dbf3cd54..710c68a21 100644
--- a/CGame/CatEstatus.aspx.VB
+++ b/CGame/CatEstatus.aspx.VB
@@ -1,7 +1,6 @@
 Option Strict On
Imports System.Data
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI.WebControls
Imports Extensiones

Partial Class CATEstatus
    Inherits ClsPaginas
 
 
-
 #Region "Propiedades"
        Property CveEstatus As Integer
         Get
             If Not ViewState("CveEstatus") Is Nothing Then
@@ -19,7 +18,9 @@
 
 #End Region
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargaEstatus()
        End If
    End Sub
    Protected Sub CargaEstatus()
        Dim ObjEsta As New ClsCGame()
        If ObjEsta.GetEstatus(UsuarioActual.CveEmpresa) Then
+            CargaEstatus()
+            'CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        End If
    End Sub
    Protected Sub CargaEstatus()
        Dim ObjEsta As New ClsCGame()
        If ObjEsta.GetEstatus(UsuarioActual.CveEmpresa) Then
             GVEstatus.DataSource = ObjEsta.DtResultados
             GVEstatus.DataBind()
         End If
diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx
index f094031ad..2b3afe529 100644
--- a/Compras/RepCompras.aspx
+++ b/Compras/RepCompras.aspx
@@ -162,9 +162,7 @@
                             <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb
index d8d4d8561..192b4ee23 100644
--- a/Compras/RepCompras.aspx.vb
+++ b/Compras/RepCompras.aspx.vb
@@ -63,65 +63,13 @@ Partial Class Compras_RepCompras
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("3")
     End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-        End If
-        DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
-        DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
-    End Sub
 
     Private Sub CargaCombos()
-        txtFechaI.Text = $"01/01/{Now.Year}"
+        txtFechaI.Text = $"01/01/{Now.Year}"
+
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         'CargaProveedores
         DdlProveedores.setEsWebService(True)
         DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -144,38 +92,22 @@ Partial Class Compras_RepCompras
         DdlMonedas.DataSource = GlobalDTMonedas()
         DdlMonedas.DataBind()
 
-        'CargaProyecto
-        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
-        DdlProyecto.DataBind()
-
         'Carga Grupo
         CargaGrupo()
-
-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
     End Sub
 
-
-
     Private Sub ConfiguraEmpresa()
         ChkIVA.Checked = True
         If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
-    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.ToEntero))
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "SELECTED INDEX CHANGE"
-
+
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index 82331aa84..de5fb0b0a 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/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()
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 7b8a4c1d0..2a49b588f 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -149,21 +149,6 @@ Partial Class Compras_RepComprasAFDetalle
                 Dim asd As Integer = 1
             End Try
 
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-
-                LblSubProyecto.Text = "Proyecto:"
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                DdlSubProyecto.SelectedValue = "-1"
-                DdlSubProyecto.DataBind()
-                'DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-                LblProyecto.Visible = False
-
-            End If
-
             If UsuarioActual.CveEmpresa = 72 Then
                 GvDatos.FBColumn("NoSerie").Visible = True
             End If
@@ -175,6 +160,8 @@ Partial Class Compras_RepComprasAFDetalle
 
     Private Sub CargaCombos()
 
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
 
@@ -182,13 +169,9 @@ Partial Class Compras_RepComprasAFDetalle
             DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
         End If
 
-
         DdlMonedas.DataSource = GlobalDTMonedas()
         DdlMonedas.DataBind()
 
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
         DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
         DdlTipoActivoFijo.DataBind()
 
@@ -206,14 +189,12 @@ Partial Class Compras_RepComprasAFDetalle
             DdlClasificacion2.DataSource = Nothing
         End If
 
-
         ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
         DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1"))
         DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
         DdlClasificacion2.SelectedValueExist(-1)
 
-
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
         DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -230,33 +211,17 @@ Partial Class Compras_RepComprasAFDetalle
             DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
         End If
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
-
     End Sub
 
     Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
-
         DdlSubTipoActivoFijo.Items.Clear()
-        DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo")
+        DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}", "SubTipoActivoFijo")
         DdlSubTipoActivoFijo.DataBind()
         DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSubTipoActivoFijo.SelectedIndex = 0
-
     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()
diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx
index 7810abe27..58be7e6ed 100644
--- a/Compras/RepComprasDetalle.aspx
+++ b/Compras/RepComprasDetalle.aspx
@@ -201,9 +201,7 @@
                             <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb
index 0e99ed183..9cc0a6ffd 100644
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -134,7 +134,6 @@ Partial Class Compras_RepComprasDetalle
         End If
 
         DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
 
         'CARGA LISTBOXs
         DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
@@ -177,62 +176,11 @@ Partial Class Compras_RepComprasDetalle
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("3")
     End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-        End If
-        DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
-        DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
-    End Sub
     Private Sub CargaCombos()
 
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         'Carga Tipo de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -252,23 +200,11 @@ Partial Class Compras_RepComprasDetalle
         DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         DDlUsuarioCaptura.DataBind()
 
-        'CargaProyecto
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
         'Carga Grupos
         CargaGrupo()
 
-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
-
     End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-    End Sub
 
     Private Sub CargaDatos()
         Dim ObjCompras As New ClsCompras()
@@ -321,7 +257,7 @@ Partial Class Compras_RepComprasDetalle
 #Region "SELECTED INDEX CHANGE"
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
diff --git a/Compras/RepComprasPeriodo.aspx b/Compras/RepComprasPeriodo.aspx
index 2dc04cc9f..62b480594 100644
--- a/Compras/RepComprasPeriodo.aspx
+++ b/Compras/RepComprasPeriodo.aspx
@@ -100,15 +100,11 @@
                             <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <div class="col-md-1">Fecha I. Captura</div>
                         <div class="col-md-1">
diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb
index 6a1d06779..813fc67d0 100644
--- a/Compras/RepComprasPeriodo.aspx.vb
+++ b/Compras/RepComprasPeriodo.aspx.vb
@@ -48,60 +48,11 @@ Partial Class Compras_RepComprasPeriodo
         DdlGrupo.SelectedValueExist("3")
     End Sub
 
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
     Private Sub CargaCombos()
 
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         'Carga Proveedores
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
@@ -122,15 +73,9 @@ Partial Class Compras_RepComprasPeriodo
         DdlMonedas.DataSource = GlobalDTMonedas()
         DdlMonedas.DataBind()
 
-        'CargaProyecto
-        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
-        DdlProyecto.DataBind()
-
         'Carga Grupo
         CargaGrupo()
 
-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
     End Sub
 
     Private Sub CargaDatos()
@@ -167,18 +112,12 @@ Partial Class Compras_RepComprasPeriodo
     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.ToEntero))
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 #End Region
 
 #Region "SELECTED INDEX CHANGE"
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
diff --git a/Compras/RepPagado.aspx b/Compras/RepPagado.aspx
index 621d4d3ec..71c5c4018 100644
--- a/Compras/RepPagado.aspx
+++ b/Compras/RepPagado.aspx
@@ -98,12 +98,12 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs
index 038581fe6..6758ae234 100644
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -36,6 +36,8 @@ public partial class Compras_RepPagado : ClsPaginas
 
     private void InicializaValores()
     {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
+
         //Carga Moneda
         DdlMoneda.DataSource = GlobalDTMonedas;
         DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -69,60 +71,6 @@ public partial class Compras_RepPagado : ClsPaginas
 
         TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{DateTime.Now.Year}";
         TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
-
-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario,-1,UsuarioActual.Empresa.CveEmpresa,1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
     }
 
     private void CargaCuentasBancarias()
@@ -153,7 +101,7 @@ public partial class Compras_RepPagado : ClsPaginas
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
diff --git a/Compras/RepPagadoDetalle.aspx b/Compras/RepPagadoDetalle.aspx
index 261f6c69b..4de5580de 100644
--- a/Compras/RepPagadoDetalle.aspx
+++ b/Compras/RepPagadoDetalle.aspx
@@ -85,12 +85,12 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs
index 8c40c9360..796c57137 100644
--- a/Compras/RepPagadoDetalle.aspx.cs
+++ b/Compras/RepPagadoDetalle.aspx.cs
@@ -41,6 +41,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
 
     private void InicializaValores()
     {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
+
         //Carga Moneda
         DdlMoneda.DataSource = GlobalDTMonedas;
         DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -71,16 +73,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
 
         txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
         txtFechaF.Text = DateTime.Now.ToShortDateString();
-
-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
-
         txtFechaI.Text = Request["FechaI"] == null ? "" : Request["FechaI"].ToString();
         txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString();
         TxtFechaICompra.Text = Request["FechaICompra"] == null ? "" : Request["FechaICompra"].ToString();
@@ -89,23 +81,17 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
         DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
         
-        
         if (Request["CveProveedor"] != null  && Request["CveProveedor"].ToString().ToEntero() > 0)
         {
-
             DataRow DrowProveedor;
             int CveProveedor = Request["CveProveedor"].ToString().ToEntero();
 
             DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];
 
-
             DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
             DdlProveedores.txtValue.Value = CveProveedor.ToString();
         }
 
-
-        
-
         DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
         DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
         DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());
@@ -138,51 +124,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         CargaDatos();
     }
 
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
-    }
-
     private void CargaCuentasBancarias()
     {
         DdlCuentaBancaria.Items.Clear();
@@ -211,7 +152,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
diff --git a/Compras/RepPagadoPeriodo.aspx b/Compras/RepPagadoPeriodo.aspx
index 1b9988cdc..b102d4fb4 100644
--- a/Compras/RepPagadoPeriodo.aspx
+++ b/Compras/RepPagadoPeriodo.aspx
@@ -104,12 +104,12 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                             </asp:DropDownList>
diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs
index 37c485810..47708e604 100644
--- a/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -78,61 +78,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
         TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
 
-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
     }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
-    }
-
     private void CargaCuentasBancarias()
     {
         DdlCuentaBancaria.Items.Clear();
@@ -352,7 +299,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
diff --git a/Compras/RepProductosServicios.aspx b/Compras/RepProductosServicios.aspx
index e9a1bf7d1..27118873a 100644
--- a/Compras/RepProductosServicios.aspx
+++ b/Compras/RepProductosServicios.aspx
@@ -177,17 +177,13 @@
                         </div>
                     </div>
                     <div class="row">
-                        <label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
                         <div id="DivProyecto" runat="server" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
                         </div>
-                        <label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
                         <div class="col-md-2">
-                           <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
+                           <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
                             <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" AutoPostBack="true"></asp:ListBox>
                         </div>
 
diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb
index 26754b5f3..4bbc68d9d 100644
--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -62,11 +62,7 @@ Partial Class Compras_RepProductosServicios
 
     Private Sub SetValues()
 
-        'Cargo Proyectos 
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
-        'CAarga Tipos de Gasto
+        'Carga Tipos de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
 
@@ -118,7 +114,7 @@ Partial Class Compras_RepProductosServicios
         CargaGrupo()
 
         'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
         If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
             lblCultivo.Visible = True
@@ -159,7 +155,6 @@ Partial Class Compras_RepProductosServicios
 
         RowActivoFijo.Visible = True
 
-
         'Carga Fechas
         txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
@@ -186,63 +181,9 @@ Partial Class Compras_RepProductosServicios
             DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
         End If
 
-
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub
-    Private Sub CargaTipoCentroCosto()
-
-
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Centro de costo"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 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()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.DataBind()
-            LblSubProyecto.InnerText = "Proyecto"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Proyecto<br/>:"
-            LblSubProyecto.InnerText = "Subproyecto:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
 
     Private Sub CargaDatos()
         Dim ObjCompras As New ClsCompras()
@@ -389,12 +330,7 @@ Partial Class Compras_RepProductosServicios
 #Region " SELECTED INDEX CHANGED"
 
     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)
-            DdlSubProyecto.DataBind()
-        End If
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
@@ -406,7 +342,6 @@ Partial Class Compras_RepProductosServicios
             DdlCultivo.DataSource = Nothing
             DdlCultivo.DataBind()
         End If
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged
diff --git a/Compras/RepProductosServiciosDetalle.aspx b/Compras/RepProductosServiciosDetalle.aspx
index 4e4c5b193..f2d43125c 100644
--- a/Compras/RepProductosServiciosDetalle.aspx
+++ b/Compras/RepProductosServiciosDetalle.aspx
@@ -169,17 +169,13 @@
                         </div>
                     </div>
                     <div class="row">
-                        <label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
                         <div id="DivProyecto" runat="server" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
                         </div>
-                        <label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
                         <div class="col-md-2">
-                     <%--       <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
+                     <%--       <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
                             <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
                         <label class="col-md-1 truncate">Estatus</label>
diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb
index f9a587cc6..a060621e3 100644
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -130,7 +130,6 @@ Partial Class Compras_RepProductosServiciosDetalle
             End If
         End If
         DdlProyecto.SelectedValueExist(Proyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
         'CARGA LISTBOXs
         DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
         DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
@@ -181,12 +180,10 @@ Partial Class Compras_RepProductosServiciosDetalle
 
     Private Sub SetValues()
 
-        'Cargo Proyectos 
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
-
-        'CAarga Tipos de Gasto
+        'Carga Tipos de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
 
@@ -237,10 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         'Carga Grupos
         CargaGrupo()
 
-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
-
-
         'CARGA COSTOS
         If UsuarioActual.CveEmpresa = 66 Then
 
@@ -269,7 +262,6 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         RowActivoFijo.Visible = True
 
-
         'Carga Fechas
         txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
@@ -298,103 +290,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
     End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Centro de costo"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 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()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.DataBind()
-            LblSubProyecto.InnerText = "Proyecto"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Proyecto<br/>:"
-            LblSubProyecto.InnerText = "Subproyecto:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-        End If
-        '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()
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-        '    DdlGrupo.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()
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-        '    LblProyecto.InnerText = "Sucursal:"
-        '    LblSubProyecto.InnerText = "Proyecto:"
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-        '    LblProyecto.InnerText = "Proyecto:"
-        '    LblSubProyecto.InnerText = "Sucursal:"
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-        '    DdlGrupo.DataBind()
-        'End If
-    End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
@@ -455,14 +350,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         Agrupador = DdlGrupo.SelectedItem.Text
     End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-            DdlSubProyecto.DataBind()
-        End If
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
     Private Sub CargaCultivo()
         DdlCultivo.Items.Clear()
         If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
@@ -472,18 +359,16 @@ Partial Class Compras_RepProductosServiciosDetalle
             DdlCultivo.DataSource = Nothing
             DdlCultivo.DataBind()
         End If
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 #End Region
 
 #Region "SELECT INDEX CHANGED"
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
         CargaCultivo()
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
diff --git a/Compras/RepProductosServiciosPeriodo.aspx b/Compras/RepProductosServiciosPeriodo.aspx
index f25cc05fe..f5c0792c3 100644
--- a/Compras/RepProductosServiciosPeriodo.aspx
+++ b/Compras/RepProductosServiciosPeriodo.aspx
@@ -102,15 +102,11 @@
                             <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
                         </div>
                         <div class="col-md-1">Fecha I. Captura</div>
                         <div class="col-md-1">
diff --git a/Compras/RepProductosServiciosPeriodo.aspx.cs b/Compras/RepProductosServiciosPeriodo.aspx.cs
index c14c5b578..76dad7b6c 100644
--- a/Compras/RepProductosServiciosPeriodo.aspx.cs
+++ b/Compras/RepProductosServiciosPeriodo.aspx.cs
@@ -58,68 +58,11 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
         DdlGrupo.SelectedValueExist("8");
     }
 
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            DivLblProyecto.Visible = false;
-            LblSubProyecto.Text = "Sucursal:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            DivLblProyecto.Visible = false;
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 3)
-        {
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.Text = "Sucursal:";
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("Proyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.Text = "Proyecto:";
-            LblSubProyecto.Text = "Sucursal:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("Sucursal", "2"));
-            DdlGrupo.DataBind();
-        }
-    }
-
     private void CargaCombos()
     {
+        //Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
+
         //Carga Proveedores
         DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
         DdlProveedores.DataBind();
@@ -193,20 +136,8 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
 
         RowActivoFijo.Visible = true;
 
-
-        //CargaProyecto
-        string[] ColumnasDistintaProyecto = new string[2];
-        ColumnasDistintaProyecto[0] = "CveProyecto";
-        ColumnasDistintaProyecto[1] = "Proyecto";
-        if (UsuarioActual.Empresa.Funcionalidad(102) == "1" && !UsuarioActual.TienePermisoProceso(110)) { DdlProyecto.DataSource=get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); } else { DdlProyecto.DataSource= get_GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); }
-        DdlProyecto.DataBind();
-
         //Carga Grupo
         CargaGrupo();
-
-        //Carga Tipo Centro de Costo
-        CargaTipoCentroCosto();
-
     }
 
     private void CargaDatos()
@@ -247,22 +178,13 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
         GvDatos.DataBind();
         UPDatos.Update();
     }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero()));
-        DdlSubProyecto.DataBind();
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-    }
-
     #endregion
 
     #region SELECTED INDEX CHANGE
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void RblTipoCambio_SelectedIndexChanged(object sender, EventArgs e)
diff --git a/Contabilidad/AuxiliarPrePolizas.aspx.cs b/Contabilidad/AuxiliarPrePolizas.aspx.cs
index f1847d4ec..32f47b7a4 100644
--- a/Contabilidad/AuxiliarPrePolizas.aspx.cs
+++ b/Contabilidad/AuxiliarPrePolizas.aspx.cs
@@ -28,69 +28,14 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas
 
     private void InicializaValores()
     {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
         txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
         txtFechaF.Text = DateTime.Now.ToShortDateString();
         DdlPlantillaPoliza.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa);
         DdlPlantillaPoliza.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlPlantillaPoliza.DataBind();
         CargaConceptosContables();
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-        CargaTipoCentroCosto();
-        if (DivProyecto.Visible)
-        {
-            CargaSubProyectos();
-        }
     }
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1);
-            DdlSubProyecto.DataBind();
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        UpSubProyecto.Update();
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.Text = "Sucursal:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.Text = "Sucursal:";
-            LblSubProyecto.Text = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.Text = "Proyecto:";
-            LblSubProyecto.Text = "Sucursal:";
-        }
-    }
-
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
         GenerarPDF("EXCEL");
@@ -158,7 +103,7 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
diff --git a/Inventarios/Remanufactura.aspx.vb b/Inventarios/Remanufactura.aspx.vb
index cba83d23a..4678ec2b7 100644
--- a/Inventarios/Remanufactura.aspx.vb
+++ b/Inventarios/Remanufactura.aspx.vb
@@ -87,6 +87,8 @@ Partial Class Inventarios_Remanufactura
 
     Public Sub InicializaValores()
 
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         TxtFecha.Text = Now.ToShortDateString
 
         'Carga Clientes
@@ -106,15 +108,7 @@ Partial Class Inventarios_Remanufactura
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlAlmacen.DataBind()
 
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProyecto.DataBind()
-
         CargaFolio()
-
-        CargaTipoCentroCosto()
-
         CreaDTVentas()
 
     End Sub
@@ -133,37 +127,6 @@ Partial Class Inventarios_Remanufactura
         UpDatosRemanufactura.Update()
     End Sub
 
-
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlSubProyecto.Items.Clear()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-        End If
-    End Sub
-
 #End Region
 
 #Region "GUARDAR"
@@ -976,12 +939,7 @@ Partial Class Inventarios_Remanufactura
 
 #Region "SELECTED INDEX CHANGE"
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue.ToEntero > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSubProyecto.DataBind()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
 #End Region
diff --git a/Inventarios/RepMovimientosSalida.aspx b/Inventarios/RepMovimientosSalida.aspx
index 5a5fe95da..e81ef6d34 100644
--- a/Inventarios/RepMovimientosSalida.aspx
+++ b/Inventarios/RepMovimientosSalida.aspx
@@ -63,12 +63,10 @@
                                 <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                             <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                             <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                              <div runat="server" id="DivSubProyecto" class="col-md-2">
                            
-                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList> 
+                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList> 
                         </div>
                             <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
                              <div runat="server" id="Div1" class="col-md-1">                           
diff --git a/Inventarios/RepReciclaje.aspx b/Inventarios/RepReciclaje.aspx
index 43082149f..da2ce8292 100644
--- a/Inventarios/RepReciclaje.aspx
+++ b/Inventarios/RepReciclaje.aspx
@@ -78,12 +78,12 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlAlmacen" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" AppendDataBoundItems="true"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                             </asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                             </asp:DropDownList>
diff --git a/Inventarios/RepReciclaje.aspx.vb b/Inventarios/RepReciclaje.aspx.vb
index fb6f17ed3..f7bc68a00 100644
--- a/Inventarios/RepReciclaje.aspx.vb
+++ b/Inventarios/RepReciclaje.aspx.vb
@@ -19,6 +19,9 @@ Partial Class Inventarios_RepReciclaje
     End Sub
 
     Public Sub InicializaValores()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
         txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
@@ -39,53 +42,11 @@ Partial Class Inventarios_RepReciclaje
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlAlmacen.DataBind()
 
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlProyecto.DataBind()
-
-        CargaTipoCentroCosto()
-
-    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 = 3 Then
-            DdlSubProyecto.Items.Clear()
-            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
 
 #Region "SELECTED INDEX CHANGE"
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue.ToEntero > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.DataBind()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
 #End Region
diff --git a/OC/CatEstatus.aspx b/OC/CatEstatus.aspx
index c9809c663..4ecfbac81 100644
--- a/OC/CatEstatus.aspx
+++ b/OC/CatEstatus.aspx
@@ -86,12 +86,12 @@
                                     <div class="row">
                                         <label class="col-md-1">Proyecto: </label>
                                         <div class="col-md-2" id="DivProyecto" runat="server">
-                                            <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                         </div>
 
-                                        <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                        <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
                                         <div class="col-md-2" id="DivSubProyecto" runat="server">
-                                            <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                         </div>
                                     </div>
                                 </div>
diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 5c739aaa7..7a5600c37 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -68,7 +68,7 @@ Partial Class OC_CatEstatus
             ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
             CargaDatos()
             CargaEstatus()
-            CargaProyectos()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
             CargaUsuarios()
 
             'SOLO MUESTRA SUBPROYECTO
@@ -76,23 +76,17 @@ Partial Class OC_CatEstatus
             'TdProyecto.Visible = False
             'TdSubProyectoTitulo.Visible = False
 
-            DivProyecto.Visible = False
-                LblSubproyecto.Visible = False
-
-
-                CboSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                CboSubProyecto.DataBind()
-                CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
+            'DivProyecto.Visible = False
+            'LblSubProyecto.Visible = False
 
+            DdlSubProyecto_SelectedIndexChanged(DdlSubProyecto, EventArgs.Empty)
 
             chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();")
             MaintainScrollPositionOnPostBack = True
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "C A T A L O G O "
     Public Sub CargaDatos()
 
@@ -203,8 +197,8 @@ Partial Class OC_CatEstatus
             'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "O R D E N A M I E N T O"
     Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim Orden As String = ""
@@ -240,9 +234,9 @@ Partial Class OC_CatEstatus
 
         GvDatos.DataBind()
         UpCatalogo.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G V  D A T O S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -264,10 +258,10 @@ Partial Class OC_CatEstatus
             Alert("Ocurrió un error al eliminar el estatus. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
         End If
 
-    End Sub
+    End Sub
 #End Region
 #End Region
-
+
 #Region "C O N F I G U R A C I O N "
     Public Sub CargaUsuarios()
         ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -280,7 +274,7 @@ Partial Class OC_CatEstatus
         Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
 
         If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
-            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
+            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
                 RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
 
             End If
@@ -312,8 +306,6 @@ Partial Class OC_CatEstatus
                     Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
                     Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
 
-
-
                     ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
 
                     Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -396,7 +388,6 @@ Partial Class OC_CatEstatus
                     Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
                     Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
 
-
                     ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
 
                     Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -489,19 +480,9 @@ Partial Class OC_CatEstatus
         UPSuperior.Update()
         UPPEmp.Update()
         RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior');   chkMostrarLimitesCambio();")
-    End Sub
-
+    End Sub
+
 #Region "E S T A T U S  U S U A R I O S"
-    Private Sub CargaProyectos()
-        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        CboProyecto.DataBind()
-        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-    End Sub
-    Private Sub CargaSubProyectos()
-        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
-        CboSubProyecto.DataBind()
-        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
-    End Sub
     Private Sub CreaGrid(Tipo As String)
         Dim i As Integer = 1
 
@@ -526,10 +507,10 @@ Partial Class OC_CatEstatus
         End While
     End Sub
     Protected Sub CargaGridEstatusUsuarios(Tipo As String)
-        If CboSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or CboSubProyecto.SelectedValue.ToEntero = -2 Then
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or DdlSubProyecto.SelectedValue.ToEntero = -2 Then
             'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear()
 
-            Dim CveSubProyecto = If(CboSubProyecto.SelectedValue.ToEntero = -2, -1, CboSubProyecto.SelectedValue.ToEntero)
+            Dim CveSubProyecto = If(DdlSubProyecto.SelectedValue.ToEntero = -2, -1, DdlSubProyecto.SelectedValue.ToEntero)
             Dim objEstatusOC As New ClsOC
 
             If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then
@@ -557,17 +538,10 @@ Partial Class OC_CatEstatus
             GvEstatusUsuariosREQ.DataBind()
         End If
     End Sub
-    Protected Sub CboProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
-        If CboProyecto.SelectedValue.ToEntero > 0 Then
-            GvEstatusUsuariosOC.Enabled = False
-            GvEstatusUsuariosREQ.Enabled = False
-            btnGuardarEstatusUsuariosOC.Visible = False
-            btnGuardarEstatusUsuariosREQ.Visible = False
-
-            CargaSubProyectos()
-        End If
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
-    Protected Sub CboSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
         GvEstatusUsuariosOC.Enabled = True
         GvEstatusUsuariosREQ.Enabled = True
         btnGuardarEstatusUsuariosOC.Visible = True
@@ -580,7 +554,7 @@ Partial Class OC_CatEstatus
         Dim objEstatusOC As New ClsOC
         objEstatusOC.IniciaTransacSQL()
         Dim HuboErrores As Boolean = False
-        Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
 
 
         For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
@@ -646,7 +620,7 @@ Partial Class OC_CatEstatus
         Dim objEstatusOC As New ClsOC
         objEstatusOC.IniciaTransacSQL()
         Dim HuboErrores As Boolean = False
-        Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
 
 
         For Each Row As GridViewRow In GvEstatusUsuariosOC.Rows
diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx
index f08ec053f..a70926a4b 100644
--- a/OS/CatEstatusOrdenServicio.aspx
+++ b/OS/CatEstatusOrdenServicio.aspx
@@ -136,11 +136,11 @@
                             <div class="row">
                                 <label class="col-md-1">Proyecto: </label>
                                 <div class="col-md-2" id="DivProyecto" runat="server">
-                                    <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                 </div>
-                                <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
                                 <div class="col-md-2" id="DivSubProyecto" runat="server">
-                                    <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                 </div>
                             </div>
                         </div>
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index f9df82782..a197bd468 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -63,19 +63,13 @@ Partial Class OS_CatEstatusOrdenServicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
-            'CargaDatos()
-            'AsociarEstatusUsuarios()
-            'CargarUsuarioConEstatus()
-            'CargarSubProyectos()
-            CargarProyectos()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
             CargarTodosLosDatos()
             CveEstatuOS = -1
         End If
     End Sub
 
     Private Sub CargarTodosLosDatos()
-        'CargarSubProyectos()
         CargaDatos()
         AsociarEstatusUsuarios()
         CargarUsuarioConEstatus()
@@ -85,18 +79,14 @@ Partial Class OS_CatEstatusOrdenServicio
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
-
                 DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
                 GvDatos.DataSource = DtEstatusOS
-
                 GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
-
             End If
 
-            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=CboSubProyecto.SelectedValue.ToEntero) Then
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
                 DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
             End If
-
         End Using
         GvDatos.DataBind()
         OrdenaDatos()
@@ -252,11 +242,11 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click
-        If CboSubProyecto.SelectedValue.ToEntero > 0 Then
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
             Dim objEstatusOC As New ClsOS
             objEstatusOC.IniciaTransacSQL()
             Dim HuboErrores As Boolean = False
-            Dim CveSubProyecto As Integer = CboSubProyecto.SelectedValue.ToEntero
+            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
 
             For Each Row As GridViewRow In GvUsuariosEstatus.Rows
                 Dim controles As Integer = Row.Controls.Count
@@ -301,26 +291,15 @@ Partial Class OS_CatEstatusOrdenServicio
         Next
     End Sub
 
-    Private Sub CargarProyectos()
-        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        CboProyecto.DataBind()
-        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-    End Sub
-    Private Sub CargaSubProyectos()
-        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
-        CboSubProyecto.DataBind()
-        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-2"))
-    End Sub
-
-    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
-        CargaSubProyectos()
+    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
         'CargaDatos()
         EstatusUsuariosGridActualizar()
         CargarTodosLosDatos()
         UpGvUsuariosEstatus.Update()
     End Sub
 
-    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
         EstatusUsuariosGridActualizar()
         CargarTodosLosDatos()
     End Sub
diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index d1922cd9e..e5ff1a56f 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -2623,36 +2623,6 @@ Partial Class Ventas_PortalCliente
         End If
     End Sub
 
-    'Private Sub CargaTipoCentroCosto()
-    '    If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Sucursal"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Proyecto"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    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 CreaDTVentas()
         TmpDT = New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))
diff --git a/Ventas/AuxiliarClienteVentas.aspx b/Ventas/AuxiliarClienteVentas.aspx
index 8b9174def..ba674259c 100644
--- a/Ventas/AuxiliarClienteVentas.aspx
+++ b/Ventas/AuxiliarClienteVentas.aspx
@@ -119,7 +119,7 @@
                             <asp:ListBox ID="DdlVendedor"  AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                             
                         </div>
-                              <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">Sucursal:</label>
+                              <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                            
diff --git a/Ventas/AuxiliarClienteVentas.aspx.vb b/Ventas/AuxiliarClienteVentas.aspx.vb
index 8b6b46224..c7fe00419 100644
--- a/Ventas/AuxiliarClienteVentas.aspx.vb
+++ b/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")
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 042f67418..26a2963a6 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4276,13 +4276,13 @@
                                                         <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                 </div>
-                                                <label runat="server" id="LblProyecto" class="col-md-1 truncate" style="width: 120px">Proyecto:</label>
+                                                <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate" style="width: 120px">Proyecto:</asp:Label>
                                                 <div runat="server" id="DivProyecto" class="col-md-2" style="width: 120px">
                                                     <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                         <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                 </div>
-                                                <label runat="server" id="LblSubProyecto" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</label>
+                                                <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</asp:Label>
                                                 <div runat="server" id="DivSubProyecto" class="col-md-2" style="width: 120px">
                                                     <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                         <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index ea4ab93ab..bd06ab0dd 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1154,14 +1154,6 @@ Partial Class Clientes
     End Sub
 
 
-    Private Sub CargaSubProyectosSuscursales()
-
-
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
-
-
-
-    End Sub
 
 
     Private Sub CargaCuentasEquipos()
@@ -1329,15 +1321,6 @@ Partial Class Clientes
 
         CargaCombosComercioExterior()
 
-    End Sub
-    Private Sub CargaSubProyectoss()
-
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-
-        DdlSubProyecto.DataBind()
-
-
     End Sub
     Private Sub CargaMetodosPago()
         'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -8443,72 +8426,15 @@ Partial Class Clientes
         DdlGrupo.SelectedValueExist("8")
     End Sub
 
-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyectoFiltro.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoFiltro.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyectoFiltro.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoFiltro.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
-    Private Sub CargaFiltros()
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
+    Private Sub CargaFiltros()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
         'Cargo Clasificaciones
         DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacionFilto.DataBind()
 
-        'CargaSubProyectos
-        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoFiltro.DataBind()
-
+        'Cargo Sucursal
         DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSucursalVendedor.DataBind()
         DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8536,21 +8462,11 @@ Partial Class Clientes
         'End If
 
         CargaGrupo()
-        CargaTipoCentroCosto()
 
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
-    End Sub
-
-    Private Sub CargaSubProyecto()
-        DdlSubProyectoFiltro.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.DataBind()
-        End If
-        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
diff --git a/Ventas/RepAuxiliarFacturas.aspx b/Ventas/RepAuxiliarFacturas.aspx
index 4bc26339a..b178e798a 100644
--- a/Ventas/RepAuxiliarFacturas.aspx
+++ b/Ventas/RepAuxiliarFacturas.aspx
@@ -82,17 +82,13 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb
index 48c1a70bd..d67fb28c3 100644
--- a/Ventas/RepAuxiliarFacturas.aspx.vb
+++ b/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
diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx
index 450c95c44..05a9045a4 100644
--- a/Ventas/RepPS.aspx
+++ b/Ventas/RepPS.aspx
@@ -86,11 +86,9 @@
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row">
-                            <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                            <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                             <div runat="server" id="DivSubProyecto" class="col-md-2">
-                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:
diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb
index 12f7fcf4f..495a4d7d0 100644
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -54,7 +54,7 @@ Partial Class Ventas_RepPS
     End Sub
 
     Private Sub CargaCombos()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
 
@@ -90,46 +90,6 @@ Partial Class Ventas_RepPS
         'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
     End Sub
 
-    Private Sub CargaTipoCentroCosto()
-        Dim index As Integer = 17
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            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()
-
-            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 = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            If DdlGrupo.Items.Count < 17 Then
-                index = DdlGrupo.Items.Count
-            End If
-            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            If DdlGrupo.Items.Count < 17 Then
-                index = DdlGrupo.Items.Count
-            End If
-            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblSubProyecto.InnerText = "Sucursal:"
-        End If
-    End Sub
-
     Private Sub CargaDatos()
 
         Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM)
diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index 690c163f3..e372cf0b1 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -194,17 +194,13 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" >
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" ></asp:DropDownList>
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 6b4bb49fc..b61522066 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -56,11 +56,11 @@ Partial Class Ventas_RepProductosServicios
 
 
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  CARGA DATOS INICIALES  "
-
+
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
         DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
@@ -90,70 +90,7 @@ Partial Class Ventas_RepProductosServicios
 
 
     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()
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.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()
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
     Private Sub SetValues()
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
         'Cargo Categorias
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
@@ -183,14 +120,6 @@ Partial Class Ventas_RepProductosServicios
 
         End If
 
-
-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoEjecucion.DataBind()
-
         'Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
         DdlVendedor.DataBind()
@@ -229,7 +158,8 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         CargaGrupo()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
 
         TipoCambio = 1
         TCEspecifico = 0
@@ -272,10 +202,10 @@ Partial Class Ventas_RepProductosServicios
             GvDatos.Columns(5).Visible = False
         End If
 
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
@@ -458,12 +388,7 @@ Partial Class Ventas_RepProductosServicios
     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 DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx
index 04f1c7e1c..ee33c53cb 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -195,17 +195,13 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"  Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"  Style="width: 100%"></asp:DropDownList>
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 10980426e..96710610b 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -113,81 +113,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlGrupo.SelectedValueExist("8")
     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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
     Private Sub SetValues()
         txtFechaI.Text = Now.ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
         'Cargo Categorias
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
@@ -206,13 +135,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         'ObjClientes.Dispose()
         'DdlClientes.DataBind()
 
-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoEjecucion.DataBind()
-
         'Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
         DdlVendedor.DataBind()
@@ -267,7 +189,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlTipoPSDes.DataBind()
 
         CargaGrupo()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
 
         TCEspecifico = 0
         TipoCambio = 1
@@ -696,17 +619,9 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 
     'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
     '    DdlClasificacion.Items.Clear()
diff --git a/Ventas/RepProductosServiciosPeriodo.aspx b/Ventas/RepProductosServiciosPeriodo.aspx
index e0dc58e92..6e0a00d44 100644
--- a/Ventas/RepProductosServiciosPeriodo.aspx
+++ b/Ventas/RepProductosServiciosPeriodo.aspx
@@ -105,17 +105,13 @@
                 </div>
                 <div class="portlet-body">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
                         <label class="col-md-1 truncate">F.I.:</label>
                         <div class="col-md-2">
diff --git a/Ventas/RepProductosServiciosPeriodo.aspx.cs b/Ventas/RepProductosServiciosPeriodo.aspx.cs
index 142d634b7..e298f18ef 100644
--- a/Ventas/RepProductosServiciosPeriodo.aspx.cs
+++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs
@@ -109,11 +109,6 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
             DdlEstatus.SelectedIndex = 1;
         }
 
-        //CargaProyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa);
-        DdlProyecto.DataBind();
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-
         //Cargo Categorias
         DdlCategoria.DataSource = get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa);
         DdlCategoria.DataBind();
@@ -147,93 +142,10 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         CargaGrupo();
 
         //Carga Tipo Centro de Costo
-        CargaTipoCentroCosto();
-
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
     }
 
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-        DdlSubProyecto.DataBind();
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-    }
 
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlSubProyectoEjecucion.Items.Clear();
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
-            DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyectoEjecucion.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "2"));
-            DdlGrupo.Items.Insert(16, new ListItem("Sucursal Ejec.", "19"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlSubProyectoEjecucion.Items.Clear();
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
-            DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyectoEjecucion.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "2"));
-            DdlGrupo.Items.Insert(16, new ListItem("Proyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 3)
-        {
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-    }
 
     private void CargaGrupo()
     {
@@ -287,7 +199,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
 
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
     }
 
     protected void RblTipoCambio_SelectedIndexChanged(object sender, EventArgs e)
diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index 8888e4407..303c51bf1 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -200,13 +200,11 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                             <%--     <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index bcac7487d..9ee1483a7 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -287,81 +287,8 @@ Partial Class RepVentaDetalle
         DdlGrupo.DataBind()
     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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Sucursal", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Sucursal Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Sucursal", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Sucursal", "18"))
-            DdlGrupo.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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Proyecto", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Proyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Proyecto", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Proyecto", "18"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-    Private Sub CargaCombos()
-
+    Private Sub CargaCombos()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
         CargaClientes()
         'DdlClientes.setEsWebService(False)
 
@@ -376,11 +303,6 @@ Partial Class RepVentaDetalle
 
         'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        'CargaProyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
         'Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
@@ -406,8 +328,6 @@ Partial Class RepVentaDetalle
         DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         CargaGrupo()
-        CargaTipoCentroCosto()
-
     End Sub
 
     Private Sub CargaEstatus()
@@ -421,12 +341,6 @@ Partial Class RepVentaDetalle
         DdlEstatus.DataBind()
     End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 #End Region
 
 #Region "SELECTED INDEX CHANGE"
@@ -435,7 +349,7 @@ Partial Class RepVentaDetalle
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index 013dd566b..b9eee6313 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -205,13 +205,11 @@
                 </div>
                 <div class="portlet-body" style="display: none">
                     <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                         <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                         </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                         <div runat="server" id="DivSubProyecto" class="col-md-2">
                             <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                             <%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 701224f45..6817935ac 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -73,10 +73,10 @@ Partial Class Ventas_RepVentas
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
+            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             TipoCambio = 1
             TCEspecifico = -1
-            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             CargaCombos()
 
             'MODALIDADES
@@ -104,7 +104,6 @@ Partial Class Ventas_RepVentas
             End If
 
             CargaGrupo()
-            CargaTipoCentroCosto()
 
             If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
                 DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString())
@@ -116,9 +115,7 @@ Partial Class Ventas_RepVentas
                 LnkDescargaCartaPorte.Visible = True
             End If
 
-
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
                 DivLblDistr.Visible = True
@@ -154,88 +151,16 @@ Partial Class Ventas_RepVentas
         DdlGrupo.SelectedValueExist("3")
     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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Sucursal", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Sucursal Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Sucursal", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Sucursal", "18"))
-            DdlGrupo.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()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Proyecto", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Proyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Proyecto", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Proyecto", "18"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
     Private Sub ConfiguraEmpresa()
         '  If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
     End Sub
 
     Private Sub CargaCombos()
-        'CargaClientes
 
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        'CargaClientes
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         If EsWS Then
             DdlClientes.setEsWebService(True)
@@ -266,11 +191,6 @@ Partial Class Ventas_RepVentas
             DdlEstatus.SelectedIndex = 0
         End If
 
-        'CargaProyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
         'Carga Clasificacion Cliente
         DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
         DdlClienteClasificacion.DataBind()
@@ -283,15 +203,8 @@ Partial Class Ventas_RepVentas
         txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
-
     End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 
 #End Region
 
@@ -360,7 +273,7 @@ Partial Class Ventas_RepVentas
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
     End Sub
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)