From 3fd0bb949fc0e9589b045e084dc44869ece96187 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jun 2022 16:30:10 -0700 Subject: [PATCH] -- mejoras en decimales en las metas --- App_Code/ClsVentas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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