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