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