From 1e53d179ded66d60f56656ddd5bee47f6d060adc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 Nov 2023 15:53:33 -0700
Subject: [PATCH] -- cambio en las cuentas de bancos

---
 Bancos/Transferencias.aspx    |  2 +-
 Bancos/Transferencias.aspx.vb | 23 ++++-------------------
 2 files changed, 5 insertions(+), 20 deletions(-)

diff --git a/Bancos/Transferencias.aspx b/Bancos/Transferencias.aspx
index 80800329a..32049484a 100644
--- a/Bancos/Transferencias.aspx
+++ b/Bancos/Transferencias.aspx
@@ -192,7 +192,7 @@
                                             <asp:TextBox ID="TxtResponsable" runat="server" Width="250px" Text='<%# Eval("NumCuenta")%>' CssClass="TextBoxAsLabel"></asp:TextBox>
                                         </ItemTemplate>
                                     </asp:TemplateField>--%>
-                                   <asp:BoundField DataField="Numero" HeaderText="Tarjeta de Credito" ItemStyle-HorizontalAlign="Right">
+                                   <asp:BoundField DataField="CLABE" HeaderText="Tarjeta de Credito" >
                                         <ItemStyle HorizontalAlign="Right" />
                                     </asp:BoundField>
                                     <asp:TemplateField HeaderText="Responsable" ItemStyle-HorizontalAlign="Left">
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index 7134865b9..c13bd152b 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -174,7 +174,7 @@ Partial Class Bancos_Transferencias
 
     Private Sub CargaGridTarjetas()
         Dim ObjCreditos As New ClsBancos
-        If ObjCreditos.GetTarjetasCreditos(DdlCuentaDestino.SelectedValue.ToEntero) Then
+        If ObjCreditos.GetTarjetasCreditos(DdlCuentaOrigen.SelectedValue.ToEntero) Then
             If ObjCreditos.DtResultados.Rows.Count > 0 Then
                 GvTC.DataSource = ObjCreditos.DtResultados
             End If
@@ -321,10 +321,6 @@ Partial Class Bancos_Transferencias
 
         If (CveIE > 0 AndAlso CveIEDestino > 0 Or CveIE > 0 AndAlso chkMovimientoTarjeta.Checked AndAlso SumaImportesTarjeta <> 0) Then
 
-            If filemove <> "" Then
-                filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
-            End If
-
             'inserto los movimientos de la conta para abonar al saldo
             If MsgError = "" Then
 
@@ -354,7 +350,6 @@ Partial Class Bancos_Transferencias
                                                                TipoCambio:=TC) Then
                                 MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                             End If
-
                         End If
 
                         'Agregamos los Movimientos de Acreedor cuando es tarjeta
@@ -371,7 +366,6 @@ Partial Class Bancos_Transferencias
                                         MsgError = "Ocurrio un error al obtener el folio destino."
                                         Exit For
                                     End If
-
                                     Dim PagueseA As String = $"Transferencia Cta: {If(DdlCuentaOrigen.SelectedItem Is Nothing, DdlCuentaDestino.SelectedItem.Text, DdlCuentaOrigen.SelectedItem.Text)}"
 
                                     CveIEDestino = ObjIE.AddBancos_IE(row.DataKey("CveCuenta").ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, PagueseA, row.FCTextBox("TxtAbono").Text.ToDecimal, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -385,9 +379,6 @@ Partial Class Bancos_Transferencias
                                         AlertaGlobal.AppendFormat("<a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a><br/>", CveIEDestino, FolioDestino)
                                     End If
                                 End If
-
-
-
                             Next
 
                             'Agregamos la contraria a bancos cuando es cuenta
@@ -408,7 +399,6 @@ Partial Class Bancos_Transferencias
                                                                    ImporteME:=ImporteDestino, TipoCambio:=TC) Then
                                     MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                 End If
-
                             End If
                         End If
 
@@ -433,13 +423,10 @@ Partial Class Bancos_Transferencias
                                 If Not chkMovimientoTarjeta.Checked Then
                                     AlertaGlobal.AppendFormat("<br/><br/>Recepción: <a class=""Texto"" target='_blank' href=""/Bancos/IE.aspx?CveIE={0}"">{1}</a>", CveIEDestino, FolioDestino)
                                 End If
-
-
                             End If
                         Else
                             MsgError = "no se pudo insertar el detalle de la póliza2"
                         End If
-
                     Else
                         MsgError = "no se pudo insertar el detalle de la póliza"
                     End If
@@ -454,13 +441,11 @@ Partial Class Bancos_Transferencias
             MsgError = "Error al guardar"
         End If
 
-
-
-
-
-
         If MsgError = "" Then
             ObjIE.Commit()
+            If filemove <> "" Then
+                filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
+            End If
             Alert(String.Format("El Movimiento se realizo correctamente.<br>{0}", AlertaGlobal), TipoMensaje.MsgInformacion)
             Anexo.Text = ""
             'Enviar Correo a los usuarios que tienen acceso a las dos cuentas