Enviando Mensagem Alerta

[ralm]

Boa tarde pessoal estou iniciando meus estudos com oracle forms e como está difícil achar algo na internet vou pesquisando pouco a pouco nos fóruns... Queria saber como faço quando eu clico no botão e aparece uma mensagem em forma de alert. Outra coisa seria como faço para um campo texto receber um valor digitado em um outro campo.

Abs.

[gokden]

assim, para mostrar um ALERT é bem simples....

primeiro você tem que criar o ALERT, no forms... e configura lá algumas coisas..
e depois você poe isso na ação...

Selecionar tudo

v_alert      number(2);
---
SET_ALERT_PROPERTY('MENSAGEM', alert_message_text, 'Deseja salvar as alterações ?');
SET_ALERT_PROPERTY('MENSAGEM', title, 'Salvar alterações');
v_alert := SHOW_ALERT('MENSAGEM');
---

e para um campo texto receber o valor digita seria assim....

Selecionar tudo

:bl_texto.campo1 := :bl_texto.campo2;

[cron_rj]

Tenho um procedimento aqui para tratar mensagens, deve te ajudar...

Selecionar tudo

PROCEDURE msg_alert( errm IN VARCHAR2,           /* message */
                     errt IN VARCHAR2,           /* message type */
                     rftf IN BOOLEAN         /* raise form_trigger_failure ? */
                    ) 
IS      /* message parameters */
/*
* ----------------------------------------------------------------
* CHANGE HISTORY:
* DATE   PERSON      CHANGE
* ------ ----------- ---------------------------------------------
*
*/

   alert_is     ALERT;
   alert_button NUMBER;

BEGIN
        
   IF (errt = 'F')
   THEN 
      alert_is := FIND_ALERT('CFG_SYSTEM_ERROR');
   ELSIF 
   	  (errt = 'E')
   THEN 
      alert_is := FIND_ALERT('CFG_ERROR');
   ELSIF 
   	  (errt = 'W')
   THEN 
      alert_is := FIND_ALERT('CFG_WARNING_A');
   ELSIF 
   	  (errt = 'I')
   THEN 
      alert_is := FIND_ALERT('CFG_INFORMATION');
   ELSE 
   	  MESSAGE(errm);
   END IF;
     
   IF( errt IN ('F','E','W','I') )
   THEN 
      SET_ALERT_PROPERTY(alert_is,ALERT_MESSAGE_TEXT,errm);
      alert_button := SHOW_ALERT(alert_is);
   END IF;

   IF( rftf )
   THEN
      RAISE FORM_TRIGGER_FAILURE;
   END IF;
END;

Na trigger "WHEN-BUTTON-PRESSED' , chame o procedimento MSG_ALERT, passando os parametos corretos.

[NaPraia]

beleza, estou com um probleminha chato para resolver.
Criei um alert para o usuário confirmar a exclusão e que funciona por registro. Se ele apagar 3 registros, na hora que for dar o commit (salvar) aparece a mensagem 3 vezes - que é isso que eu quero que aconteça. Só que eu queria que mostrasse o ID do registro que está sendo apagado.
vocês sabem como é que eu posso fazer isso??

[NaPraia]

valeu mesmo assim,
eu estava usando o Set_Alert_Property de forma errada