From 235af27a023eb273b24b02ea14b8136852eecb72 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 16 Jul 2024 07:02:46 -0700 Subject: [PATCH] -- parametro de agrupador por Proveedor --- Ventas/RepProductosServicios.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 0d55213e5..8a354e5d7 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -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")