diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index 8a1f4f273..3921668dd 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -269,8 +269,6 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
                     e.Row.Cells(Index).ForeColor = Drawing.Color.Red
                 End If
 
-
-
                 Index += 1
             Next
 
@@ -280,8 +278,6 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
 
             For Each DRow As DataRow In DTHeaders.Rows
                 Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
-                'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero
-
 
                 If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then
                     e.Row.Cells(Index).Text = "-"
@@ -289,61 +285,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
                     e.Row.Cells(Index).ForeColor = Drawing.Color.Red
                 End If
 
-
                 If Importe <> 0 Then
                     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>"
                 End If
-
-                'If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then
-                '    e.Row.Cells(Index + 1).Text = "-"
-                'ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then
-                '    e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red
-
-                'End If
-
-
-
                 Index += 1
 
             Next
 
-
-            'Index = 4
-
-            'For Each DRow As DataRow In DTHeaders.Rows
-
-            '    Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
-            '    'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero
-
-            '    If Importe > 0 Then
-            '        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={DdlSubProyecto.SelectedValue.ToEntero}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
-            '    Else
-            '        e.Row.Cells(Index).Text = "-"
-            '    End If
-
-            '    If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then
-
-            '        e.Row.Cells(Index + 1).Text = "-"
-
-            '    ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then
-            '        e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red
-
-            '    End If
-
-            '    If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then
-            '        e.Row.Cells(Index + 2).Text = "-"
-            '    ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then
-            '        e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red
-            '    End If
-
-            '    Index += 1
-
-            'Next
-
-
-
-            ' e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em")
-
         End If
 
     End Sub