AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX subproyecto promociones

Browse Source
This commit is contained in:
JPerez
2025-07-10 16:41:48 -07:00
parent 13e1186436
commit a7ca525f30
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/Promociones.aspx.vb
View File

@@ -281,6 +281,12 @@ Partial Class Ventas_Promociones
'DdlPS.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlPS.Items.Insert(0, New ListItem("Todos", "-1"))
End If 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.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))