Mensagem pedindo informação 3 tipos

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
suelana
Rank: Programador Sênior
Rank: Programador Sênior
Mensagens: 63
Registrado em: Qui, 10 Ago 2006 6:07 pm
Localização: Joinville-SC
Suelana BLU-JLLE

Pessoal,

Como enviar uma messagem pedindo uma informação; e esta informação pode vir d 3 tipos.

"Pretende viajar Hoje (H), Amanhã (A) ou nenhuma das opções (Sair/Cancelar)?"

Ou poderia ser montado um menu rápido com 3 opções.

Como fazer?
suelana
Rank: Programador Sênior
Rank: Programador Sênior
Mensagens: 63
Registrado em: Qui, 10 Ago 2006 6:07 pm
Localização: Joinville-SC
Suelana BLU-JLLE

Já resolvi desta forma:
----------------------------

Selecionar tudo

DECLARE
   alert_button NUMBER;
   w_dsc_mensag varchar2(512);
   w_idt_alert alert;
   w_num_respos number;

BEGIN
   w_idt_alert := find_alert('CFG_WARNING_A');
   w_dsc_mensag := 'Deseja Almoçar o arquivo de STROGONOFF ou o arquivo de BACALHAU À PORTUGUESA?';

   set_alert_button_property(w_idt_alert, ALERT_BUTTON1, LABEL, 'Strogonoff');
   set_alert_button_property(w_idt_alert, ALERT_BUTTON2, LABEL, 'Bacalhau');
   set_alert_button_property(w_idt_alert, ALERT_BUTTON3, LABEL, 'Cancela');
   set_alert_property(w_idt_alert, ALERT_MESSAGE_TEXT, w_dsc_mensag);
   set_alert_property(w_idt_alert, TITLE, 'PROCESSA ENCOMENDA ALMOÇO');

  w_num_respos := show_alert(w_idt_alert);

  IF w_num_respos = ALERT_BUTTON1 THEN
    ( outros comandos almoço 1 ... )
  IF w_num_respos = ALERT_BUTTON2 THEN
    ( outros comandos almoço 2 ... )
  END IF;

EXCEPTION
  (  comandos pertinentes...)
END;
---------------------------------------------------------
Pensei numa função prática, mas não achei aqui.
RodrigoValentim
Moderador
Moderador
Mensagens: 367
Registrado em: Ter, 25 Mar 2008 3:41 pm
Localização: Salvador - BA
Rodrigo Valentim
Analista de Sistemas
Oracle Developer

Campanha: Faça uma pesquisa antes de perguntar!!!

Essa solução é pratica! :D na verdade, acho que é a unica forma....

Parabéns e obrigado por disponibilizar! :)
Responder
  • Informação
  • Quem está online

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