Program Units e ON_MESSAGE

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
Hahu
Rank: Analista Sênior
Rank: Analista Sênior
Mensagens: 147
Registrado em: Qui, 16 Mar 2006 11:26 am
Localização: São Paulo
O mundo gira muito!!

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! :roll:

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

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 ? :oops:

alguém já passou por isso :shock:

Um grande abs de seu amigo Hahu :) -m

Ps: Que Deus abençõe a todos!!
[/code]
Hahu
Rank: Analista Sênior
Rank: Analista Sênior
Mensagens: 147
Registrado em: Qui, 16 Mar 2006 11:26 am
Localização: São Paulo
O mundo gira muito!!

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
Rank: Analista Sênior
Rank: Analista Sênior
Mensagens: 147
Registrado em: Qui, 16 Mar 2006 11:26 am
Localização: São Paulo
O mundo gira muito!!

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

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 :wink: -m
Responder
  • Informação