Program Units e ON_MESSAGE

[Hahu]

Fala Glufke,
Boa tarde,
Galera to aqui quebrando a cabeça..hihi

Seguinte: To querendo colocar uma messagem no program unit , para saber o valor da variavel que está sendo passado!

Fazer um print de tela..tipo um alert..!!

Exp:

Selecionar tudo

if :NomedoBloco.nomedoitem = 'A' then

 v_select_aux := ' select campo1, campo2  '
      
end if:
  

Como faço para aparecer uma caixa , mostrando o que estou passando no v_select_aux ou em qualquer variavel, tipo um mesage(':bloco.item1', valoritem1' )?

Assim eu posso saber o que o forms 6i está passando em cada variavel ?

alguém já passou por isso

Um grande abs de seu amigo Hahu -m

Ps: Que Deus abençõe a todos!!
[/code]

[Hahu]

Fala Glufke,
Bom dia a todos!

Segue uma solução que pensei abaixo:

Selecionar tudo

Begin
IF FORM_FAILURE THEN 
    SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT') ; 
     -- Verifica a clausula SELECT
     L_MENSAGEM('V_SELECT_AUX: '||V_SELECT_AUX) ; 
      -- Verifica o FROM 
     L_MENSAGEM('V_FROM_AUX: '||V_FROM_AUX) ;
      -- Verifica o Where
     L_MENSAGEM('V_WHERE_AUX: '||V_WHERE_AUX) ;
      -- Verifica o GROUP 
     L_MENSAGEM('V_GROUP_AUX: '||V_GROUP_AUX) ;
     -- Só mensagem de erro
     L_MENSAGEM('ERRO AO MONTAR A CONSULTA !!!' ) ; 
     -- Aqui um default para colocar erro do codigo e o texto
     L_MENSAGEM(DBMS_ERROR_CODE || ' - ' || DBMS_ERROR_TEXT ) ;
    END IF ; 
Exception ....etc
       when....etc
End;

Lembrete : Este caso foi realizado no form6i no program unit, criei uma procedure que chamava as consultas!!

Espero que ajude a todos os amigos do forum!

Abs de seu amigo Hahu -m[/code]

[Hahu]

Ahhh..desculpem a gaff..esquici de colar o program unit do l_mensagem

Selecionar tudo

PROCEDURE l_mensagem(as_mensagem VARCHAR2) IS
	ls_dummy	VARCHAR2(002) ;
        BEGIN
        SET_ALERT_PROPERTY('MENSAGEM', ALERT_MESSAGE_TEXT, as_mensagem) ;
	ls_dummy := SHOW_ALERT('MENSAGEM') ;
END;

Qualquer dúvida, post aí no forum!!

Abs Hahu -m