diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index aec716686..92da3a058 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8191,10 +8191,14 @@ Partial Class Compras_Compras
                                                                 ErrorMovtosCxP = 1
                                                             End If
 
-                                                            TipoCambioAnt = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, gvr.DataKey("TCCompra").ToDecimal)
+                                                            If ChkPagarConPesos.Checked Or ChkPagarConDolares.Checked Then
+                                                                ImporteAnt = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
+                                                                TipoCambioAnt = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, gvr.DataKey("TCCompra").ToDecimal)
+                                                            End If
 
-                                                            If tipoCambio <> TipoCambioAnt Then
-                                                                Dim importeFluctuacion = (ImporteAnt * tipoCambio) - (ImporteAnt * TipoCambioAnt)
+                                                            Dim TipoCambioDiferencia = If(ChkPagarConDolares.Checked, GlobalTipoCambio(Fecha), tipoCambio).ToDecimal
+                                                            If TipoCambioDiferencia <> TipoCambioAnt Then
+                                                                Dim importeFluctuacion = (ImporteAnt * TipoCambioDiferencia) - (ImporteAnt * TipoCambioAnt)
 
                                                                 If importeFluctuacion > 0 Then
                                                                     ConceptoContable = 64
@@ -8612,9 +8616,10 @@ Partial Class Compras_Compras
                                                         If DdlMoneda.SelectedValue.ToEntero <> 1 Or gvr.DataKey("CveMoneda").ToEntero <> 1 Then
                                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                             CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                            Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC)
-                                                            If TipoCambioDiferenciaCambiaria > TipoCambioCompra Then
-                                                                ImporteMovimiento = (sumaAmortizacion * TipoCambioDiferenciaCambiaria) - (sumaAmortizacion * TipoCambioCompra)
+                                                            Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC)
+                                                            Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(Fecha), TipoCambioCompra).ToDecimal
+                                                            If TipoCambioDiferenciaCambiaria > TipoCambioDiferenciaCompra Then
+                                                                ImporteMovimiento = (sumaAmortizacion * TipoCambioDiferenciaCambiaria) - (sumaAmortizacion * TipoCambioDiferenciaCompra)
                                                                 ImporteMovimiento = ImporteMovimiento.RoundSQL()
                                                                 importeMN = ImporteMovimiento
                                                             End If