From 390f07cda2dae63e2740816dd75d47ce95d7b9f6 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 20 Oct 2023 12:28:11 -0700
Subject: [PATCH] ProveedoresAbonar pago dolares en dolares,  cambia el importe
 al cambiar la cuenta en dolares

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

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index d9410224c..23bfd5a2b 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -794,7 +794,7 @@ Partial Class Bancos_ProveedoresAbonar
                                     Pago.TCPago = 1 ' TxtTC.Text.ToDecimal
                                     Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal).RoundSQL
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
-                                    Pago.TCPago = TxtTCDolaresDolares.Text.ToDecimal
+                                    Pago.TCPago = TxtTCDolares.Text.ToDecimal
                                 ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                     Pago.TCPago = TxtTCDolares.Text.ToDecimal
                                     Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTCDolares.Text.ToDecimal)
@@ -828,11 +828,11 @@ Partial Class Bancos_ProveedoresAbonar
                         Pago.ImportePago = tImporteMN
 
                         Dim ImporteME As Decimal = 0
-                            If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
-                            If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
-                                ImporteME = tImporteMN
-                                tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
-                                End If
+                        If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
+                        If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+                            ImporteME = tImporteMN
+                            tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                        End If
 
 
 
@@ -1143,7 +1143,11 @@ Partial Class Bancos_ProveedoresAbonar
                 RegistraScript("CambiaPesosDolares();")
             Else
                 CveMoneda = dr("CveMoneda").ToString.ToEntero
-                RegistraScript("CambiaDolaresPesos();")
+
+                If dr("CveMoneda").ToString.ToEntero = 1 Then
+                    RegistraScript("CambiaDolaresPesos();")
+                End If
+
             End If
             If CveMoneda = 2 Then
                 DivTCDolares.Visible = True