diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 3f163880d..ba5876989 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -44,6 +44,7 @@ Public Class ClsAF
     Public Property Descripcion As String
     Public Property CveCompra As Integer
     Public Property ValorCompra As Double
+    Public Property ValorCompraMN As Double
     Public Property FechaCompra As Date
     Public Property FechaBaja As Date
     Public Property CuentaInicial As Integer
@@ -573,7 +574,7 @@ Public Class ClsAF
         Return Retorno
     End Function
 
-    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
+    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, ValorCompraMN As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -582,7 +583,8 @@ Public Class ClsAF
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
             .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
-            .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
+            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
+            .Add("@ValorCompraMN", SqlDbType.Money).Value = ValorCompraMN
             .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
             .Add("@Opcion", SqlDbType.Int).Value = Opcion  ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula   los AF en base a la CveComrpaDetalle(en tabla  AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
         End With