-- filtro por MSI

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