diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index ba2901f1a..ab3e713ef 100644
--- a/App_Code/ClsBancos.vb
+++ b/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