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")