-- flujo diario, opción para fltrar por concilados

App_Code/ClsBancos.vb

@@ -1944,7 +1944,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean
+    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, Opcion As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IngresoEgresosDiariosGet")
 
@@ -1952,7 +1952,7 @@ Public Class ClsBancos
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso
-            '.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
+            .Add("@Opcion", SqlDbType.VarChar).Value = Opcion
         End With
 
         Try