diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 3fd17f4ff..0f8f236ab 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -98,13 +98,23 @@
- +
+ + + + MSI + 3M + 6M + 9M + 12M + +
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