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

-- parametro de agrupador por Proveedor

Browse Source
This commit is contained in:
rrene
2024-07-16 07:02:46 -07:00
parent 716227afb4
commit 235af27a02
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/RepProductosServicios.aspx.vb
View File

@@ -60,7 +60,9 @@ Partial Class Ventas_RepProductosServicios
#Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo()
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
Dim TextoProyecto = "Proyecto"
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then TextoProyecto = UsuarioActual.Empresa.Funcionalidad(307)
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem(TextoProyecto, "1"))
DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
@@ -83,7 +85,8 @@ Partial Class Ventas_RepProductosServicios
DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
DdlGrupo.Items.Add(New ListItem("Marca", "24"))
DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
If UsuarioActual.CveEmpresa = 119 Then DdlGrupo.Items.Add(New ListItem("Proveedor", "29"))
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8")