From 00326453556ad8f8eda2e6abb8f7afae5a8c4ecc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 18 Sep 2024 19:16:02 -0700
Subject: [PATCH] -- MEJORA EN PAGO DE COMpra con venta en USD

---
 Bancos/PopIECompras.aspx    | 4 ++--
 Bancos/PopIECompras.aspx.vb | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx
index 5f33cdea9..09ee2d437 100644
--- a/Bancos/PopIECompras.aspx
+++ b/Bancos/PopIECompras.aspx
@@ -703,11 +703,11 @@
                 total = total * TC;
             }
 
-            debugger
+            debugger;
             if ($("#" + Chk.id).is(":checked")) {
                 $('#' + Obj).attr('disabled', false);
                 if (ToDouble($get('TxtImporte').value) != total) {
-
+                   
                     if ((ToDouble($get('TxtImporte').value) + saldo) > total) {
                         $('#' + Obj).val(saldo - (ToDouble($get('TxtImporte').value) + saldo - total));
                         $get('TxtImporte').value = (total / TC).toFixed(2)
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 1190b4409..5d3eb3332 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1181,7 +1181,7 @@ Partial Class Bancos_PopIECompras
             e.Row.FCTextBox("TxtSaldoDeudor").Attributes.Add("onKeyUp", "AjustaTextboxDeudores();")
             e.Row.FCTextBox("LbTipoMoneda").Text = If(e.Row.DataKey("CveMoneda").ToString.ToEntero = 1, "USD", " MXN")
 
-            Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator)
+            'Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator)
         End If
     End Sub
 #End Region
@@ -1456,12 +1456,13 @@ Partial Class Bancos_PopIECompras
                         End If
 
                         If MsgError = "" Then
+                            Dim tc As Decimal = If(rw.DataKey("CveMoneda").ToEntero = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal)
                             Dim VentaActual As New Venta(UsuarioActual) With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .ClienteNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .TC = rw.DataKey("TipoCambio").ToDecimal}
                             Dim PagoVenta As New VentaPago
                             PagoVenta.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                             PagoVenta.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                             PagoVenta.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                            PagoVenta.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                            PagoVenta.TCPago = tc
                             PagoVenta.CveCompraRelacionada = CompraActual.CveCompra
                             PagoVenta.TipoPago = "Venta"
                             If AplicaPrePolizaPagoVenta(VentaActual, PagoVenta, CvePrePoliza, ObjMov) Then