diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 326906ac0..28f288585 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -82,6 +82,7 @@ Partial Class Ventas_Promociones
         'CARGA SUBPROYECTOS
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 315aade63..7cc809a30 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14276,6 +14276,7 @@ Partial Class Ventas
         Dim CantMinima As Integer = 0
         Dim CveMarcaPS As Integer = 0
         Dim CveClasifPS As Integer = 0
+        Dim CveRinTamañoPS As Integer = 0
         Dim CvePromocionDetalle As Integer = 0
         Dim ObjDescuento As New Descuentos
 
@@ -14284,6 +14285,7 @@ Partial Class Ventas
 
             CveMarcaPS = DrPS("CveMarca").ToString.ToEntero
             CveClasifPS = DrPS("CveClasificacion").ToString.ToEntero
+            CveRinTamañoPS = DrPS("CveRinTamaño").ToString.ToEntero
 
             If CveClasifPS = 20636 Then
                 ValidaCondicionesComerciales = False
@@ -14293,7 +14295,7 @@ Partial Class Ventas
 
 
         If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue))
+            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
             If dr IsNot Nothing Then
                 TipoPromo = dr("TipoPromocion").ToString.ToEntero
                 TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
@@ -14302,7 +14304,7 @@ Partial Class Ventas
                 CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
             Else
                 'verifica marca, si tiene asignada la promocion
-                Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL)", CveClasifPS, CveMarcaPS))
+                Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
 
                 If drC IsNot Nothing Then
                     TipoPromo = drC("TipoPromocion").ToString.ToEntero
@@ -14807,7 +14809,7 @@ Partial Class Ventas
                     DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje")
                     DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
                     DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
-                    DrPoliza("Descuento") = Math.Round(Descuento, NumeroDecimales)
+                    DrPoliza("Descuento") = 0
                     DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                     DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU)
                     DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales)
diff --git a/vwd.webinfo b/vwd.webinfo
index c61135231..5455c17b5 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -34,6 +34,8 @@
     
   
     
+  
+