WPersonalizaMenuWeb

O objetivo desta função é personalizar o menu dos módulos web via regra por processo, limitado a 11 níveis de menu.

Sintaxe: WPersonalizaMenuWeb(Numero aPosicao, Alfa aMenuPai, Alfa aTitulo, Alfa aLink, Alfa aNome, Alfa aTipo, Numero aTarget);

Parâmetros:

Nome Tipo Descrição
aPosicao Numérico Indica qual é a posição dentro da árvore do novo item de menu. Esta posição será calculada conforme menu-pai. Ao informar 0, incluirá o novo sub-item após o último sub-item existente do menu-pai informado.
aMenuPai Alfa Indica qual é o menu-pai no novo item de menu, ao informar "" (aspas) incluirá na 'raiz' do menu, ou seja, como item do primeiro nível.
O nome do menu-pai deve ser igual ao nome apresentado na Treeview. Ex.: Colaboradores, Avaliação, Diversos, etc...
Caso deseje incluir um item no terceiro nível, o parâmetro aMenuPai deverá conter o nome dos níveis acima do novo item, separados por vírgula. Ex.: Para incluir uma nova opção abaixo de um menu no segundo nível, o parâmetro aMenuPai deve ser igual a "menu primeiro nível,menu segundo nível".
aTitulo Alfa Variável que será apresentada ao usuário na Treeview do menu.
aLink Alfa Indica o que será executado ao clicar neste item de menu.
aNome Alfa Define o nome interno do item de menu, ao informar o nome de uma tela existente no sistema (ver o nome da tela desejada em Diversos\Usuários\Permissão Telas, no rodapé entre parênteses ao lado do título da tela) será respeitada a permissão de telas definida para o usuário.
aTipo Alfa Indica se este novo item trata-se de um grupo ou de um item. Os valores possíveis são: "G" = grupo ou "I" = item. No caso de um grupo, a propriedade aLink será desprezada, mantendo o formato padrão do menu do sistema. Apenas itens do tipo "G" poderão ter sub-níveis.
aTarget Numérico Variável numérica que indica como o item de menu será aberto. Os valores possíveis são:
0 - Inidica que a página será aberta no frame MESTRE ("'"+linkData+"' target=\"MESTRE\"")

1 -Indica que a página será aberta numa nova página/guia ( fullLink = "'servidor:porta/moduloWeb/"+linkData+"' target=_blank"). Não é necessário passar o "http://" pois o sistema já insere via regra. Quando utilizada alguma variável para passar o valor, é necessário que seja analisado se o valor da variável contém ou não o "http://".

2 - Indica que a página será aberta na mesma página do menu ( fullLink = "'"+linkData+"' target=_top")

3 - Indica que a página será aberta numa nova página/guia (fullLink = "'_http://servidor:porta/moduloWeb/"+linkData+"' target=_blank"). Quando utilizada alguma variável para passar o valor, é necessário que seja analisado se o valor da variável contém ou não o "http://".

Outro valor - Indica que a página será aberta no frame MESTRE passando o "http://" junto ao link.( fullLink = "'http://"+linkData+"' target=\"MESTRE

Exemplo: 

/* Cria novos itens de menu em um módulo WEB*/

Definir alfa xListaRelatorio;
Definir alfa xSiglaSistema;
Definir alfa xNomeModelo;

@ Cria novo item na primeira posição da árvore do menu @
WPersonalizaMenuWeb(1, "", "Instruções", "", "NVL001", "G",0);
WPersonalizaMenuWeb(0, "Instruções", "Normas Internas", "normas.htm", "NVL002-01", "I",0);
WPersonalizaMenuWeb(0, "Instruções", "Acesso à internet", "internet.htm", "NVL002-02", "I",0);
WPersonalizaMenuWeb(0, "Instruções", "Senior", "http://www.senior.com.br", "NVL002-03", "I",0);

@ Inclui sub-itens no menu padrão do CSWEB, na posição desejada @
WPersonalizaMenuWeb(0, "Colaboradores", "Dados Pessoais 3", "dadospessoais3.htm", "DADOSPESSOAIS3", "I",0);
WPersonalizaMenuWeb(1, "Colaboradores", "Dados Pessoais 4", "dadospessoais4.htm", "DADOSPESSOAIS4", "I",0);

@ Cria novo menu para relatórios no primeiro nível @
WPersonalizaMenuWeb(3, "" , "Meus Relatórios" , "" , "Relatorios1", "G",0);
xSiglaSistema = "CS";
xNomeModelo = "CSRE001.COL";

@ Cria sub-itens utilizando rotinas do sistema - ACAO que apresenta a tela de entrada de modelos da cópia @
xListaRelatorio = CgiAddr + WNConector + "?SIS=" + xSiglaSistema + "&ACAO=ENTRANCEREL&NOME=" + xNomeModelo;
WPersonalizaMenuWeb(0, "Meus Relatórios", "Relatório 001", xListaRelatorio, "RELATORIO_001", "I",3);
xNomeModelo = "CSRE002.COL";
xListaRelatorio = CgiAddr + WNConector + "?SIS=" + xSiglaSistema + "&ACAO=ENTRANCEREL&NOME=" + xNomeModelo;
WPersonalizaMenuWeb(0, "Meus Relatórios", "Relatório 002", xListaRelatorio, "RELATORIO_002", "I",3);

Utilização: Regra por Processo - Sistemas WEB. Deve ser relacionada a regra por processo 526 - Personalizar Menu Sistemas Web

Este artigo ajudou você?