From 5ed9f5fc492b50b1cd6ffe49a183e646d3198137 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 8 Mar 2022 06:27:02 -0700
Subject: [PATCH] mejoras para transferncias a cajas chicas

---
 Bancos/Transferencias.aspx    | 5 +++++
 Bancos/Transferencias.aspx.vb | 8 ++++++++
 2 files changed, 13 insertions(+)

diff --git a/Bancos/Transferencias.aspx b/Bancos/Transferencias.aspx
index 97258648e..f54a0a1ee 100644
--- a/Bancos/Transferencias.aspx
+++ b/Bancos/Transferencias.aspx
@@ -124,6 +124,11 @@
                                 <td>
                                     <asp:TextBox ID="TxtFolio" CssClass="form-control input-sm " runat="server" MaxLength="14" Width="80px"></asp:TextBox></td>
                             </tr>
+                            <tr id="trPagueseA">
+                                <td>Paguese</td>
+                                <td>
+                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="200px"></asp:TextBox></td>
+                            </tr>
                             <tr>
                                 <td>Observaciones:</td>
                                 <td>
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index 1cdd89b8e..adcf61749 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -283,6 +283,14 @@ Partial Class Bancos_Transferencias
             CveIE = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, ImporteMXOrigen, CveMonedaOrigen, TipoCambio, Observaciones, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = CveIE
         Else
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                FolioDestino = TxtFolio.Text.Trim
+                If TxtPaguese.Text.Trim <> "" Then
+                    CuentaDestino = TxtPaguese.Text.Trim
+                End If
+
+            End If
+
             CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
         End If