From eee07b09d53b5ea6f77e82aa860330f4dd7307c4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 23 Aug 2022 16:08:54 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/ProveedoresAbonar.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index 22b33443f..09722705d 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -851,6 +851,8 @@ Partial Class Bancos_ProveedoresAbonar
 
                                 If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                     Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal
+                                Else
+                                    Pago.OtroGastoIngreso = 0
                                 End If
 
                                 If AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjMov) Then
@@ -868,7 +870,8 @@ Partial Class Bancos_ProveedoresAbonar
                         Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145)
                         Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
                         Dim Referencia As String = $"{HdnTipoTransaccionAbreviatura.Value}: {TxtFolio.Text.Trim}"
-                        Dim tImporteMN As Decimal = Pago.ImportePago
+                        Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
+                        Pago.ImportePago = tImporteMN
 
                         If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
                             Dim ObjCreditos As New ClsBancos
@@ -892,7 +895,7 @@ Partial Class Bancos_ProveedoresAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 
-                            If UsaComplementariaBancos Then
+                            If CveMoneda = 2 AndAlso UsaComplementariaBancos Then
                                 If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If