diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 117257ef5..8e8489b85 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -33,7 +33,7 @@ Partial Class Acumuladores_RepEntradasUsados
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim ObjAcum As New ClsAcumuladores
 
-        If ObjAcum.EntradasUsadosGet(DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
+        If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
             GvAcum.DataSource = ObjAcum.DtResultados
             DatosEntradasUsados = ObjAcum.DtResultados
 
@@ -47,7 +47,7 @@ Partial Class Acumuladores_RepEntradasUsados
 
 
         Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
-        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today))
+        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
 
         Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Month(Today), Mes, Year(Today))
 
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 630292659..b08d3546a 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -245,12 +245,13 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaInicial As Date, FechaFinal As Date) As Boolean
+    Public Function EntradasUsadosGet(CveEmpresa As Integer, CveAlmacen As Integer, FechaInicial As Date, FechaFinal As Date) As Boolean
         Dim retorno As Boolean = False
 
         SqlDataAdapter("PA_Acum_EntradasUsadosResumenRep")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@FechaInicial", SqlDbType.Date).Value = FechaInicial
             .Add("@FechaFinal", SqlDbType.Date).Value = FechaFinal