From 37fb6c1813b5168e5ceb3c77ae18427d9256dff0 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 18 Feb 2025 18:08:00 -0700
Subject: [PATCH] --FIX flujo diario

---
 Bancos/FlujoDiario.aspx.vb                | 12 ++++++------
 Empresas/Grales/Formatos/FlujoDiario.rdlc |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb
index 84111c604..131baad04 100644
--- a/Bancos/FlujoDiario.aspx.vb
+++ b/Bancos/FlujoDiario.aspx.vb
@@ -57,8 +57,8 @@ Partial Class Bancos_FlujoDiario
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
-        params.Add(New ReportParameter("FechaI", TxtFechaI.Text.ToDate.ToLongDateString))
-        params.Add(New ReportParameter("FechaF", TxtFechaF.Text.ToDate.ToLongDateString))
+        params.Add(New ReportParameter("FechaI", TxtFechaI.Text.ToDate.ToString("dd/MMM/yyyy", New System.Globalization.CultureInfo("es-MX")).Replace(".", "").ToUpper()))
+        params.Add(New ReportParameter("FechaF", TxtFechaF.Text.ToDate.ToString("dd/MMM/yyyy", New System.Globalization.CultureInfo("es-MX")).Replace(".", "").ToUpper()))
 
         If Imagen.Exists Then
             params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
@@ -71,22 +71,22 @@ Partial Class Bancos_FlujoDiario
         Dim Ban As New ClsBancos
 
         If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            TmpDTSaldosIniciales = Ban.DtResultados
+            TmpDTSaldosIniciales = Ban.DtResultados.Copy()
         End If
 
         'Se Llena TmpDTIngresosDelDia
         If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
-            TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
+            TmpDTIngresosDelDia = Ban.DtResultados.Copy() '.FiltraParametros("CveTipoTransaccion <> 8")
         End If
 
         'Se Llena TmpDTGastosDelDia
         If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then
-            TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
+            TmpDTGastosDelDia = Ban.DtResultados.Copy() '.FiltraParametros("CveTipoTransaccion <> 2")
         End If
 
         'Se Llena TmpDTSaldosActuales
         If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            TmpDTSaldosActuales = Ban.DtResultados
+            TmpDTSaldosActuales = Ban.DtResultados.Copy()
         End If
 
         Ban.Dispose()
diff --git a/Empresas/Grales/Formatos/FlujoDiario.rdlc b/Empresas/Grales/Formatos/FlujoDiario.rdlc
index 58efd9dcb..54ab716e0 100644
--- a/Empresas/Grales/Formatos/FlujoDiario.rdlc
+++ b/Empresas/Grales/Formatos/FlujoDiario.rdlc
@@ -2122,7 +2122,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>Periodo del </Value>
+                      <Value>Periodo: </Value>
                       <Style />
                     </TextRun>
                     <TextRun>