From f8dfe3709dbbbcfd902c414b948a00818ed7aae5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 19 Jun 2021 14:50:40 -0700
Subject: [PATCH] -- filtro por MSI

---
 Bancos/DepositosCaja.aspx    | 12 +++++++++++-
 Bancos/DepositosCaja.aspx.vb | 15 ++++++++++++++-
 2 files changed, 25 insertions(+), 2 deletions(-)

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 @@
 
                             <label class="col-md-1 truncate" style="width: 80px;">Tipo Pago:</label>
                             <div class="col-md-2">
-                                <asp:DropDownList ID="DdlTipoPago" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <div class="row">
+                                <asp:DropDownList ID="DdlTipoPago" runat="server" Width="75px" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" AutoPostBack="true" DataValueField="CveCuenta" OnSelectedIndexChanged="DdlTipoPago_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                     <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
                                     <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
                                     <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
                                     <asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
                                     <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
                                  </asp:DropDownList>
+                            
+                                <asp:DropDownList ID="DDlMesesSinIntereses" runat="server" Visible="false" CssClass="form-control input-sm select2me" AppendDataBoundItems="true"  DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="40px">
+                                    <asp:ListItem Value="-1">MSI</asp:ListItem>
+                                    <asp:ListItem Value="3">3M</asp:ListItem>
+                                    <asp:ListItem Value="6">6M</asp:ListItem>
+                                    <asp:ListItem Value="9">9M</asp:ListItem>
+                                    <asp:ListItem Value="12">12M</asp:ListItem>
+                                </asp:DropDownList>
+                                    </div>
                             </div>
                             
                         </div>
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