diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 31b36d589..58db7e977 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6593,8 +6593,8 @@ Partial Class Compras_Compras
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
                                                                             Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                            Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                             Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+                                                                            Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
 
                                                                             IdCtaContable = CtaProveedorExtranjera
                                                                             CveCuenta = CveCuentaProveedorExtranjera
@@ -6611,7 +6611,7 @@ Partial Class Compras_Compras
                                                                             End If
 
 
-                                                                            importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
+                                                                            importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
                                                                             IdCtaContable = CtaProveedorExtranjera
                                                                             CveCuenta = CveCuentaProveedorExtranjera
                                                                             If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then