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")