diff --git a/Contabilidad/RepAnexoCatalogoCC.aspx b/Contabilidad/RepAnexoCatalogoCC.aspx
index d628bcb22..548cdf295 100644
--- a/Contabilidad/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad/RepAnexoCatalogoCC.aspx
@@ -103,6 +103,19 @@
                      </div>
                          <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="DdlOpcionCuenta" runat="server"   CssClass="form-control input-sm select2me" Width="100%">
+                                         <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
+                                         <asp:ListItem Text="Sin Saldo" Value="1"></asp:ListItem>
+                                         <asp:ListItem Text="Con Saldo" Value="2"></asp:ListItem>                                         
+                                     </asp:DropDownList>
+                                 </div>
+
                                  <div class="col-md-1 truncate">
                                      <asp:Label ID="LblSubProyecto" runat="server" Text="Label"></asp:Label>
                                 </div>
diff --git a/Contabilidad/RepAnexoCatalogoCC.aspx.vb b/Contabilidad/RepAnexoCatalogoCC.aspx.vb
index 63cf931d0..ae99858cd 100644
--- a/Contabilidad/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoCC.aspx.vb
@@ -146,7 +146,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
         DTDatos = New DataTable
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+        If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
+                                    OpcionCuentas:=DdlOpcionCuenta.SelectedValue.ToEntero) Then
 
             DTHeaders = Conta.DSResultados.Tables(0)
             DTDatos = Conta.DSResultados.Tables(1)
@@ -248,7 +249,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
                 End If
 
                 If Importe <> 0 Then
-                    ''  pendiente.. ' e.Row.Cells(Index).Text = $"<a  { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCunetaRow}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={ If(DRow("CveSubProyecto").ToString.ToEntero > 0, DRow("CveSubProyecto").ToString, "-1")}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
+                    e.Row.Cells(Index).Text = $"<a  { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  } target='_blank' href='./RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={CveCunetaRow}&FF={txtFechaF.Text}&FI={txtFechaI.Text}&ER=1&CveSubProyecto={ If(DRow("CveSubProyecto").ToString.ToEntero > 0, DRow("CveSubProyecto").ToString, "-1")}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
                 End If
                 Index += 1