diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 8113ab863..4dbde281c 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -3341,11 +3341,11 @@ Public Class ClsBancos
End Try
Return Retorno
- End Function
+ End Function
#End Region
-
+
#Region "PagosCajaChica"
- Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer) As Boolean
+ Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_BancosCajaChicaPagosGet")
@@ -3354,6 +3354,7 @@ Public Class ClsBancos
.Add("@FechaF", SqlDbType.VarChar).Value = FechaF
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
End With
Try
@@ -3364,10 +3365,10 @@ Public Class ClsBancos
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
+
#Region "ACTIVOS FIJOS"
Public Function GetActivosFijosCreditos(CveCredito As Integer, CveActivoFijo As Integer) As Boolean
Dim Retorno As Boolean = False
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index db3f0d7a9..830a6df54 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -70,6 +70,15 @@
+
+