Utilizar Popup_menu em tempo de execução

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
cleber_moises
Rank: Estagiário Júnior
Rank: Estagiário Júnior
Mensagens: 2
Registrado em: Qui, 03 Dez 2009 7:37 am
Localização: Porto Alegre
Contato:
Cléber Moisés da Silva

Ai Galera,

Estou precisando setar um popup_menu em tempo de execução para o item. Utilizo o Form6i. Estou fazendo o seguinte:

IF (V_NIVEL = '5') THEN
--
SET_ITEM_PROPERTY('BLOCO.ITEM',POPUP_MENU,'MENU_REGRAS_NEGOCIO');
--
ELSE
--
SET_ITEM_PROPERTY('BLOCO.ITEM',POPUP_MENU,'MENU_MANUTENCAO');
--
END IF;

Só que me dá o erro: identifier 'POPUP_MENU' must be declared.

Alguém saberia me dizer qual a sintaxe desta propriedade? Ou se a forma de setar éla em tempo de execução é diferente do SET_ITEM_PROPERTY.

Abraço,
cleber_moises
Rank: Estagiário Júnior
Rank: Estagiário Júnior
Mensagens: 2
Registrado em: Qui, 03 Dez 2009 7:37 am
Localização: Porto Alegre
Contato:
Cléber Moisés da Silva

Ai Galera,

Já achei uma solução. Um colega me deu o caminho das pedras. Ai com um pouquinho mais de pesquisa, veio a solução.
Não tem como mudar a POPUP_MENU no item mas tem como mudar a propriedade do item da POPUP_MENU, ficou assim:

Selecionar tudo

  IF V_NIVEL = '5' THEN
   --
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE_FILHO',VISIBLE,PROPERTY_FALSE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE_IRMAO',VISIBLE,PROPERTY_FALSE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.ALTERA',VISIBLE,PROPERTY_FALSE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.DELETA',VISIBLE,PROPERTY_FALSE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE',VISIBLE,PROPERTY_TRUE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.CONSULTA',VISIBLE,PROPERTY_TRUE);
   --
  ELSE
   --
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE_FILHO',VISIBLE,PROPERTY_TRUE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE_IRMAO',VISIBLE,PROPERTY_TRUE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.ALTERA',VISIBLE,PROPERTY_TRUE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.DELETA',VISIBLE,PROPERTY_TRUE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.INSERE',VISIBLE,PROPERTY_FALSE);
   SET_MENU_ITEM_PROPERTY('MENU_MANUT.CONSULTA',VISIBLE,PROPERTY_FALSE);
   --
  END IF;
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 8 visitantes