diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index e0a31b773..9531d6855 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3770,7 +3770,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
+    Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoGet")
@@ -3781,6 +3781,7 @@ Public Class ClsContabilidad
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
             .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = SAT
@@ -3797,7 +3798,7 @@ Public Class ClsContabilidad
     End Function
 
 
-    Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveSubProyecto As String, CveEmpresa As Integer, TipoReporte As String) As Boolean
+    Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet")
@@ -3806,6 +3807,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = TipoReporte
@@ -3841,7 +3843,7 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
-    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
+    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_EstadoActividadesGet")
@@ -3850,6 +3852,7 @@ Public Class ClsContabilidad
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = SAT
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx b/Contabilidad2/RepAnexoCatalogo.aspx
index ed892e682..5710390e5 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -49,7 +49,7 @@
                                 <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            
+
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:  
                             </div>
@@ -90,17 +90,17 @@
                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                     <div class="row">
                         <div class="col-md-1 truncate">
-                                Tipo Movto
-                            </div>
-                            <div class="col-md-2 truncate">
-                                <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
-                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
+                            Tipo Movto
+                        </div>
+                        <div class="col-md-2 truncate">
+                            <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                         <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
                             Tipo
                         </div>
@@ -111,12 +111,16 @@
                                 <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1 truncate">
-                            SubProyecto
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                         </div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </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:DropDownList>
                         </div>
                         <div class="col-md-2">
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 5529ff8d8..f54ca1f99 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -52,6 +52,14 @@ Partial Class AC2_RepAnexoCatalogo
     '        ViewState("DTCuentas") = value
     '    End Set
     'End Property
+    Private Property CveProyecto As String
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
     Private Property CveSubProyecto As String
         Get
             CveSubProyecto = ViewState("CveSubProyecto").ToString
@@ -121,6 +129,12 @@ Partial Class AC2_RepAnexoCatalogo
                         DdlCuenta.SelectedValueExist(Request("CM").ToString)
                     End If
 
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        CveProyecto = Request("CveProyecto").ToString
+                        DdlProyecto.SelectedValueExist(CveProyecto)
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
+                    End If
+
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
                         CveSubProyecto = Request("CveSubProyecto").ToString
                         DdlSubproyecto.SelectedValueExist(CveSubProyecto)
@@ -187,9 +201,14 @@ Partial Class AC2_RepAnexoCatalogo
 
         DdlCuentas.DataBind()
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
     End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
     Private Sub CargaDatos()
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
@@ -206,7 +225,13 @@ Partial Class AC2_RepAnexoCatalogo
             CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
         End If
 
-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        If Request("CveProyecto") IsNot Nothing Then
+            CveProyecto = Request("CveProyecto").ToString
+        Else
+            CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
+        End If
+
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
@@ -270,7 +295,7 @@ Partial Class AC2_RepAnexoCatalogo
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}&TP={5}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto, TipoReporte)
         End If
     End Sub
 
diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx
index 4e6ff6bdf..ed4a8de04 100644
--- a/Contabilidad2/RepEstadoActividades.aspx
+++ b/Contabilidad2/RepEstadoActividades.aspx
@@ -20,7 +20,7 @@
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-     
+
     <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
@@ -52,20 +52,27 @@
                                     <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
-                                <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                                <div class="col-md-2 ">
-                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
-                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
 
-                                <li runat="server" id="liTipoReporte" visible="false">Tipo:
-                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px" >
+                            <div class="col-md-1">
+                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                            </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: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:DropDownList>
+                            </div>
+
+                            <li runat="server" id="liTipoReporte" visible="false">Tipo:
+                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
                                         <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
                                     </asp:DropDownList>
-                                </li>                                
+                            </li>
                             </ul>
                         </div>
                     </div>
@@ -169,8 +176,7 @@
                     <td width="30%" align="right">
                         <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
                     </td>
-                    <td width="12%" align="right">
-                    </td>
+                    <td width="12%" align="right"></td>
                 </tr>
             </table>
         </ContentTemplate>
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index 207b4d58c..9fd2fe7a7 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -117,22 +117,26 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlSubproyecto.databind
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
 
     End Sub
 
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
     Private Sub CargaDatos()
 
 
         FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
         FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
         Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
@@ -254,8 +258,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
             End If
 
 
@@ -283,8 +287,8 @@ Partial Class AC_RepEstadoActividades
             End If
 
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
             End If
 
             If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
index 848671d12..78feef96d 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -109,10 +109,16 @@
                             <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" Width="100%">
                             </asp:DropDownList>
                         </div>
-                        <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                        <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                        </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: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:DropDownList>
                         </div>
                         <div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
@@ -243,6 +249,6 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
 
-    </script>
+</script>
 
 </asp:Content>
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
index eeba1fdb8..395451537 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -135,12 +135,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
                         TxtFechaF.Text = FechaInicio.ToShortDateString
                     End If
 
-                    If Request("CveSubProyecto") IsNot Nothing Then
-                        If IsNumeric(Request("CveSubProyecto")) Then
-                            DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString)
-                        End If
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        DdlProyecto.SelectedValueExist(Request("CveProyecto"))
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
                     End If
 
+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
+                    End If
 
                     ErrorParametros = False
 
@@ -207,9 +209,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
         Dim strGlobal As String = ""
 
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
-
         If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then
             Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
             If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
@@ -228,11 +227,19 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         End If
         ObjTipoCuenta.Dispose()
         DdlCuentas.DataBind()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
     End Sub
     Private Sub CargaDatos()
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
 
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
         TipoReporte = DdlTipoReporte.SelectedValue.ToString
         If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then
             Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
@@ -241,7 +248,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         IdCuenta = DdlCuentas.SelectedValue.ToEntero
         Cuenta = DdlCuentas.SelectedItem.ToString
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
             DtDatos = ObjConta.DtResultados
             DtTotales = DtDatos.Clone