diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index b012a244a..871e030c1 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -550,18 +550,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             CargaDatosSubProyectoH()
         End If
 
-
-
-
     End Sub
 
 
 #Region "MES"
 
 
-
-
-
     Private Sub CargaDatosMes()
 
 
@@ -2266,7 +2260,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                         Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
 
                         If CveSubProyectoInterno.ToEntero > 0 Then
-                            e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoInterno}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
+                            e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'")  }  target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString}&FI={e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString}&ER=1&CveSubProyecto={CveSubProyectoInterno}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
                         End If
 
                     End If