diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 009fba62d..38fa0e87b 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -88,8 +88,12 @@ Partial Class Bancos_DepositosCaja
Dim FechaI, FechaF As String
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+ Dim MSI As Integer = -1
+ If DdlTipoPago.SelectedValue = "12" Then
+ MSI = DDlMesesSinIntereses.SelectedValue.ToEntero
+ End If
- ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero)
+ ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, MSI:=MSI)
GvFacturas.DataSource = ObjBancos.DtResultados
ObjBancos.Dispose()
@@ -338,4 +342,13 @@ Partial Class Bancos_DepositosCaja
End Sub
+
+ Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
+ If DdlTipoPago.SelectedValue = "12" Then
+ DDlMesesSinIntereses.Visible = True
+ Else
+ DDlMesesSinIntereses.Visible = False
+ End If
+ DDlMesesSinIntereses.SelectedValue = "-1"
+ End Sub
End Class
\ No newline at end of file