From df2e108565fc15fa16d8db3ff462507f1cc7e888 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 14 Jun 2022 20:12:07 -0700 Subject: [PATCH] -- filtro distribuidor, promociones --- App_Code/ClsVentas.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 288dad8eb..6984877cd 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2229,11 +2229,10 @@ Public Class ClsVentas End Function Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String, - Optional CveMarca As Integer = -1) As Integer + Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer Dim Retorno = -1 DataAdapter("PA_Vta_PromocionesAdd") - With SqlAdapter.SelectCommand.Parameters .Add("@Promocion", SqlDbType.VarChar).Value = Promocion .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio @@ -2247,6 +2246,7 @@ Public Class ClsVentas .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -2260,11 +2260,10 @@ Public Class ClsVentas Return Retorno End Function Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean, - CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean + CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@Promocion", SqlDbType.VarChar).Value = Promocion .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio @@ -2278,6 +2277,7 @@ Public Class ClsVentas .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With