diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb
index b890c1481..3a4dbfc10 100644
--- a/Acumuladores/RepIndicadorDiario.aspx.vb
+++ b/Acumuladores/RepIndicadorDiario.aspx.vb
@@ -71,7 +71,7 @@ Partial Class ACumuladores_RepIndicadorDiario
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            txtFechaI.Text = Now.AddMonths(-1).ToString("dd/MM/yyyy")
+            txtFechaI.Text = Now.FirstDayOfMonth().ToString("dd/MM/yyyy")
             txtFechaF.Text = Now.ToString("dd/MM/yyyy")
 
             CargaCombos()
@@ -80,10 +80,7 @@ Partial Class ACumuladores_RepIndicadorDiario
         End If
     End Sub
 
-#Region "CARGAS"
-
-
-
+#Region "CARGAS"
 
     Private Sub CargaCombos()
 
@@ -121,9 +118,6 @@ Partial Class ACumuladores_RepIndicadorDiario
         GvDatos.DataBind()
 
 
-
-
-
     End Sub
 
 #End Region
@@ -203,20 +197,21 @@ Partial Class ACumuladores_RepIndicadorDiario
 
 
 
-        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
-            For Each Dr As DataRow In DtDatos.Rows
-                Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
-            Next
+        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
+
+
+
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("FechaInicio", FechaI))
-            params.Add(New ReportParameter("FechaFin", FechaF))
-            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToString))
-            params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Filtros Por:</b>  {FechaIn} {FechaFn} {SubProyecto} "))
+
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", logouri))
             Else