From b42bcb31b36a919e82a987495935816fa9707c92 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 21 Aug 2023 12:35:40 -0700
Subject: [PATCH] -- ver acumulado o mensual y liga a su detalle

---
 Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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