diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5a89103af..892ab282d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8196,7 +8196,7 @@ Partial Class Compras_Compras
                                                                 TipoCambioAnt = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, gvr.DataKey("TCCompra").ToDecimal)
                                                             End If
 
-                                                            Dim TipoCambioDiferencia = If(ChkPagarConDolares.Checked, GlobalTipoCambio(Fecha), tipoCambio).ToDecimal
+                                                            Dim TipoCambioDiferencia = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal
                                                             If TipoCambioDiferencia <> TipoCambioAnt Then
                                                                 Dim importeFluctuacion = (ImporteAnt * TipoCambioDiferencia) - (ImporteAnt * TipoCambioAnt)
 
@@ -8595,8 +8595,9 @@ Partial Class Compras_Compras
                                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                             CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
                                                             Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC)
-                                                            If TipoCambioCompra > TipoCambioDiferenciaCambiaria Then
-                                                                ImporteMovimiento = (sumaAmortizacion * TipoCambioCompra) - (sumaAmortizacion * TipoCambioDiferenciaCambiaria)
+                                                            Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal
+                                                            If TipoCambioDiferenciaCompra > TipoCambioDiferenciaCambiaria Then
+                                                                ImporteMovimiento = (sumaAmortizacion * TipoCambioDiferenciaCompra) - (sumaAmortizacion * TipoCambioDiferenciaCambiaria)
                                                                 ImporteMovimiento = ImporteMovimiento.RoundSQL()
                                                                 importeMN = ImporteMovimiento
                                                             End If
@@ -8617,7 +8618,7 @@ Partial Class Compras_Compras
                                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                             CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
                                                             Dim TipoCambioDiferenciaCambiaria = If(ChkPagarConPesos.Checked, GlobalTipoCambio(gvr.DataKey("Fecha").ToDate).ToDecimal, tipoCambioNC)
-                                                            Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(Fecha), TipoCambioCompra).ToDecimal
+                                                            Dim TipoCambioDiferenciaCompra = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal
                                                             If TipoCambioDiferenciaCambiaria > TipoCambioDiferenciaCompra Then
                                                                 ImporteMovimiento = (sumaAmortizacion * TipoCambioDiferenciaCambiaria) - (sumaAmortizacion * TipoCambioDiferenciaCompra)
                                                                 ImporteMovimiento = ImporteMovimiento.RoundSQL()