diff --git a/Bancos/FlujoDiario.aspx b/Bancos/FlujoDiario.aspx
index f7c74ee6f..621acd184 100644
--- a/Bancos/FlujoDiario.aspx
+++ b/Bancos/FlujoDiario.aspx
@@ -26,28 +26,52 @@
-
Fecha:
+
Fecha Inicio:
+
+
Fecha Fin:
+
Opción:
+
Vista:
+
@@ -63,6 +87,5 @@
-
diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb
index 21723b838..84111c604 100644
--- a/Bancos/FlujoDiario.aspx.vb
+++ b/Bancos/FlujoDiario.aspx.vb
@@ -44,7 +44,8 @@ Partial Class Bancos_FlujoDiario
Private Sub Bancos_FlujoDiario_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
- TxtFecha.Text = NowADS().ToString
+ TxtFechaI.Text = NowADS().AddDays(-1).ToString("dd/MM/yyyy")
+ TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
End If
End Sub
@@ -56,9 +57,10 @@ 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("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
+ params.Add(New ReportParameter("FechaI", TxtFechaI.Text.ToDate.ToLongDateString))
+ params.Add(New ReportParameter("FechaF", TxtFechaF.Text.ToDate.ToLongDateString))
- If Imagen.Exists Then
+ If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
@@ -68,22 +70,22 @@ Partial Class Bancos_FlujoDiario
'SE LLENA TmpDTSaldosIniciales
Dim Ban As New ClsBancos
- If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TmpDTSaldosIniciales = Ban.DtResultados
End If
'Se Llena TmpDTIngresosDelDia
- If Ban.GetIngresoEgresosDelDia(1, TxtFecha.Text.ToDate, TxtFecha.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
+ If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
End If
'Se Llena TmpDTGastosDelDia
- If Ban.GetIngresoEgresosDelDia(1, TxtFecha.Text.ToDate, TxtFecha.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then
+ If Ban.GetIngresoEgresosDelDia(DdlGrupo.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then
TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
End If
'Se Llena TmpDTSaldosActuales
- If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFechaF.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TmpDTSaldosActuales = Ban.DtResultados
End If
@@ -103,7 +105,7 @@ Partial Class Bancos_FlujoDiario
'lrds.Add(rds5)-
- ImprimirPDF("Empresas/Grales/Formatos/FlujoDiario.rdlc", lrds, params, NombreArchivo:=String.Format("FlujoDiario-{0}", TxtFecha.Text.ToDate.ToShortDateString))
+ ImprimirPDF("Empresas/Grales/Formatos/FlujoDiario.rdlc", lrds, params, NombreArchivo:=String.Format("FlujoDiario-{0}", TxtFechaF.Text.ToDate.ToShortDateString))
End Sub
diff --git a/Empresas/Grales/Formatos/FlujoDiario.rdlc b/Empresas/Grales/Formatos/FlujoDiario.rdlc
index b1ea1c69a..58efd9dcb 100644
--- a/Empresas/Grales/Formatos/FlujoDiario.rdlc
+++ b/Empresas/Grales/Formatos/FlujoDiario.rdlc
@@ -883,6 +883,7 @@
=Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "")
@@ -2121,11 +2122,19 @@
- Fecha:
+ Periodo del
- =Parameters!Fecha.Value
+ =Parameters!FechaI.Value
+
+
+
+ al
+
+
+
+ =Parameters!FechaF.Value
@@ -2138,7 +2147,7 @@
2.51466cm
0.08599cm
0.6cm
- 6.2766cm
+ 19.08243cm
3