diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx
index 686acf803..4002fd32d 100644
--- a/Compras/RepComprasAF.aspx
+++ b/Compras/RepComprasAF.aspx
@@ -131,13 +131,11 @@
                         </div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
                             </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="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1 ">Proveedor:</div>
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index f51525715..c0f2719c9 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -83,9 +83,6 @@ Partial Class Compras_RepComprasAF
         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()
 
@@ -101,44 +98,13 @@ Partial Class Compras_RepComprasAF
             DdlClasificacion2.DataSource = Nothing
         End If
 
-
         ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
 
-
-
-
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
 
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlProyecto.Visible = False
-            'LblSubProyecto.Text = "Sucursal"
-            LblProyecto.Visible = False
-            ' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-            'DdlSubProyecto.DataBind()
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlProyecto.Visible = False
-            'LblSubProyecto.Text = "Proyecto"
-            LblProyecto.Visible = False
-
-            'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.DataBind()
-            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
-            LblProyecto.Text = "Proyecto"
-
-        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
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
 
         CargaPS(-1)
 
@@ -153,18 +119,19 @@ Partial Class Compras_RepComprasAF
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        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()
-
-
-        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-
-        'DdlSubProyecto.Items.Clear()
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        'DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        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"))
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()