diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 2770e61a7..02d361d5c 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4850,14 +4850,14 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
-    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Decimal, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@MesAño", SqlDbType.DateTime).Value = MesAño
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@MetaCantidad", SqlDbType.Int).Value = MetaCantidad
+            .Add("@MetaCantidad", SqlDbType.SmallMoney).Value = MetaCantidad
             .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup