From 770144a9ae36cdd7203c718bcb5f88cc10e2748d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 16 Aug 2023 18:14:59 -0700
Subject: [PATCH] =?UTF-8?q?--=20agregado=20con=20opci=C3=B3n=20acumulado?=
 =?UTF-8?q?=20o=20mes=20seleccionado?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad2/RepEstadoResultadosHorizontal.aspx    | 3 +++
 Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 7 +++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
index 94f866180..5f9404414 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx
@@ -127,6 +127,9 @@
                                     <asp:ListItem Text="1,000,000" Value="1000000"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+                            <div class="col-md-2 ">
+                                <asp:CheckBox ID="ChkAcumulados" Text="Acumulados" runat="server" />
+                            </div>
 
                             <label class="col-md-1 truncate" runat="server" id="LblTri">
                                 Trimestre
diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
index 30c3c5c18..b012a244a 100644
--- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
+++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
@@ -1960,8 +1960,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Private Sub CargaDatosSubProyectoH()
 
-
-        FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
+        If ChkAcumulados.Checked Then
+            FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
+        Else
+            FechaIMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
+        End If
         FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
         FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")