From 849d487a3498339b33ee9be32df29dfaccc64a98 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 12 Dec 2023 13:29:35 -0700
Subject: [PATCH] -- cambio en cuenta de tarjetas

---
 Bancos/IE.aspx    | 11 +----------
 Bancos/IE.aspx.vb | 32 ++++++++++++++++----------------
 2 files changed, 17 insertions(+), 26 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 544262f6e..72d6f420c 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -145,22 +145,13 @@
                                     <asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
                                     <%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
                                 </div>
-
-
                             </div>
                             <div class="row" id="DivCheques" runat="server" visible="false">
                                 <label class="col-md-2 control-label">Movimiento Relacionado:</label>
                                 <div class="col-md-5">
                                     <asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
                                 </div>
-                            </div>
-
-                            <div class="row" runat="server" id="DivTarjeta" visible="false">
-                                <label class="col-xs-2 control-label">Tarjeta:</label>
-                                <div class="col-xs-4">
-                                    <asp:DropDownList ID="DdlTarjeta" runat="server" CssClass="input-sm form-control select2me" AppendDataBoundItems="true" DataValueField="CveCuentaTarjeta" DataTextField="ConcatDatos" Width="250px" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                </div>
-                            </div>
+                            </div>                            
                         </div>
                         <div class="chequesie2" id="checkesie2">
                             <div class="row">
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 150540823..11915e78e 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1515,11 +1515,11 @@ Partial Class Bancos_IE
                 CargaCorteCaja()
             End If
 
-            If dr("UsaTarjeta").ToString = "True" Then
-                CargaGridTarjetas()
-            Else
-                DivTarjeta.Visible = False
-            End If
+            'If dr("UsaTarjeta").ToString = "True" Then
+            '    CargaGridTarjetas()
+            'Else
+            '    DivTarjeta.Visible = False
+            'End If
         End If
 
         If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then
@@ -2001,7 +2001,7 @@ Partial Class Bancos_IE
 
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                           CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
+                                           CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
                                            ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
 
                 If CveIE > 0 Then
@@ -3987,18 +3987,18 @@ Partial Class Bancos_IE
         UpDatos.Update()
     End Sub
 
-    Private Sub CargaGridTarjetas()
-        Dim ObjCreditos As New ClsBancos
-        ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
+    'Private Sub CargaGridTarjetas()
+    '    Dim ObjCreditos As New ClsBancos
+    '    ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero)
 
-        DdlTarjeta.Items.Clear()
-        DdlTarjeta.DataSource = ObjCreditos.DtResultados
-        DdlTarjeta.DataBind()
-        DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    DdlTarjeta.Items.Clear()
+    '    DdlTarjeta.DataSource = ObjCreditos.DtResultados
+    '    DdlTarjeta.DataBind()
+    '    DdlTarjeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        ObjCreditos.Dispose()
-        DivTarjeta.Visible = True
-    End Sub
+    '    ObjCreditos.Dispose()
+    '    DivTarjeta.Visible = True
+    'End Sub
 
 #End Region