From a7ca525f301b5a20a11c9cac51fe6cdc903aaf26 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Thu, 10 Jul 2025 16:41:48 -0700
Subject: [PATCH] --FIX subproyecto promociones

---
 Ventas/Promociones.aspx.vb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 16c5f2b0a..5f5b44abd 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -281,6 +281,12 @@ Partial Class Ventas_Promociones
             'DdlPS.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Request("CvePromocion") IsNot Nothing AndAlso Request("CvePromocion").ToString.ToEntero > 0 Then
+            If DdlSubProyecto.Items.FindByValue("-1") Is Nothing Then
+                DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            End If
+        End If
+
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))