From 8026bc15492c4ed1d645ad843b71d11366faa6f4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 7 Jul 2023 09:57:37 -0700
Subject: [PATCH] =?UTF-8?q?-=20nuevo=20parametro=20de=20opci=C3=B3n,=20par?=
 =?UTF-8?q?a=20poder=20filtrar=20conciliados?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/FlujoDiario.aspx.vb  | 16 ++++++++--------
 Bancos/PopIECompras.aspx.vb |  2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb
index 370ea72b3..909369394 100644
--- a/Bancos/FlujoDiario.aspx.vb
+++ b/Bancos/FlujoDiario.aspx.vb
@@ -64,28 +64,28 @@ Partial Class Bancos_FlujoDiario
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-           
-        
 
+
+        Dim OpcionSaldo As Integer = 1
         'SE LLENA TmpDTSaldosIniciales
         Dim Ban As New ClsBancos
 
-        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             TmpDTSaldosIniciales = Ban.DtResultados
         End If
 
         'Se Llena TmpDTIngresosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then
-            TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8")
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
+            TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
         End If
 
         'Se Llena TmpDTGastosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then
-            TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2")
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.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, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             TmpDTSaldosActuales = Ban.DtResultados
         End If
 
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 9749730e3..05f646e66 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1472,7 +1472,7 @@ Partial Class Bancos_PopIECompras
                         tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
                     End If
 
-                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago.RoundSQL, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If