diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 8e389cde6..c49ff177d 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -70,14 +70,15 @@ Partial Class Acumuladores_RepEntradasUsados
         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, Day(Today), Mes, Year(Today))
-
+        Dim Direccion As String = String.Format("{0} {1}", UsuarioActual.Empresa.Direccion.ToString, UsuarioActual.Empresa.NoExt.ToString)
         Dim params As New List(Of ReportParameter)
 
-        params.Add(New ReportParameter("Direccion", "dirección"))
-        params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+        params.Add(New ReportParameter("Direccion", Direccion))
+        params.Add(New ReportParameter("FechaConFormato", Date.Now.ToString))
         params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
         params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
         params.Add(New ReportParameter("Sucursal", "Sucursal"))
+        params.Add(New ReportParameter("Almacen", DdlAlmacenes.SelectedItem.ToString))
 
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}