From fc939e0998c1c8a65527b022ffd1419cda5857ba Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 31 Jan 2020 14:02:32 -0700
Subject: [PATCH] desaparecen opciones del tipo promocion al seleccionar una
 promocion para toda una clasificacion

---
 Ventas/Promociones.aspx    | 2 +-
 Ventas/Promociones.aspx.vb | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 4a4d6b944..fac769ab1 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -234,7 +234,7 @@
                             <div class="row">
                                 <label class="col-md-3 truncate">Producto:</label>
                                 <div class="col-md-9">
-                                    <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                    <ADS:Dropdownlost runat="server" Enabled="true" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS"/>
                                 </div>
                             </div>
                             <div class="row">
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 1d9f1a6b6..fdf49d14f 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -127,6 +127,8 @@ Partial Class Ventas_Promociones
 #Region "  PS  "
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
         ChangeDdlProducto()
+        DdlTipoPromocion.Items.FindByValue("1").Enabled = False
+        DdlTipoPromocion.Items.FindByValue("3").Enabled = False
     End Sub
     Private Sub ChangeDdlProducto()
         If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
@@ -137,6 +139,10 @@ Partial Class Ventas_Promociones
             DdlPS.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
         End If
     End Sub
+    Protected Sub DdlPS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
+        DdlTipoPromocion.Items.FindByValue("1").Enabled = True
+        DdlTipoPromocion.Items.FindByValue("3").Enabled = True
+    End Sub
 #End Region