From 8f16fd604769e2cfd30dabf57dc81859c119f96f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 12 Jan 2023 06:33:15 -0700
Subject: [PATCH] -- TC en registro de anticipos

---
 Compras/Compras.aspx.vb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index eadfd1fe5..405c5dcb1 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8633,6 +8633,7 @@ Partial Class Compras_Compras
                                 Pago.ImportePago = ImporteAnt
                                 Pago.OtroGastoIngreso = ImporComisionAnticipo
                                 Pago.CveMonedaPago = CveMonedaAnticipo
+                                Pago.TCPago = TipoCambioAnt
 
                                 Select Case gvr.DataKey("TipoDocto")
                                     Case "NC", "DEV"
@@ -8661,10 +8662,6 @@ Partial Class Compras_Compras
 
                                 PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
 
-
-
-
-
                                 If CveMonedaAnticipo > 1 Then
                                     Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then