diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6997b2f53..00ef0610e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5280,7 +5280,9 @@ Partial Class Compras_Compras
 
                                         'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                         If Row("TipoAF").ToString.ToEntero = 2 Then
-                                            If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
+                                            Dim Valor As Decimal = Row("Total").ToString.ToDecimal
+                                            Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                            If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
                                                 ErrorDetalles = True
                                                 Exit For
                                             End If
@@ -6987,7 +6989,7 @@ Partial Class Compras_Compras
                                                                 Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
                                                                 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
-                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then
+                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                     IdCtaContable = CtaProveedorComplementaria
                                                                     'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True)
 
@@ -8717,7 +8719,9 @@ Partial Class Compras_Compras
 
                         For Each drowAF As DataRow In TmpDT.Rows
                             If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
-                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then
+                                Dim Valor As Decimal = drowAF("Total").ToString.ToDecimal
+                                Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, Valor, ValorMN, TxtFecha.Text.ToDate, Opcion:=2) Then
                                     Retorno = False
                                 End If
                             End If
@@ -9087,7 +9091,9 @@ Partial Class Compras_Compras
                                 If Retorno Then
                                     'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                     If Row("TipoAF").ToString.ToEntero = 2 Then
-                                        If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
+                                        Dim Valor As Decimal = Row("Total").ToString.ToDecimal
+                                        Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
+                                        If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
                                             Retorno = False
                                             Exit For
                                         End If