Parametros por menu

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
marialopes
Rank: Estagiário Pleno
Rank: Estagiário Pleno
Mensagens: 4
Registrado em: Sex, 29 Jul 2011 2:23 pm
Localização: Botucatu-sp

Olá
Como que eu consigo passar e recuperar parametros atraves dos menus mmb do forms 10g? Via forms dá certo, mas por menu não toh conseguindo. Preciso recuperar dados de login e passar para outro form a partir de um menu.

Aguardo

Obrigada
gfkauer
Rank: DBA Sênior
Rank: DBA Sênior
Mensagens: 389
Registrado em: Ter, 27 Jul 2010 1:34 pm
Localização: Sapiranga - RS
Contato:
Quem falou que programar era fácil??

Quanto mais dificil for a implementação mais valorizado seu trabalho será!

Acessem: www.gfkauer.com.br

Existem algumas opções possiveis, dentre elas pode-se usar Global variables
Ou, dependendo da sua nescessidade e do nivel de permissão dos usuários, pode-se ler a visão v$session baseando-se que você tem o "User"
PericlesAlmeida
Rank: Programador Júnior
Rank: Programador Júnior
Mensagens: 15
Registrado em: Ter, 01 Nov 2011 2:57 pm
"A falta de tempo é desculpa daqueles que perdem tempo por falta de método"
Albert Einstein

Acho que isso vai te ajudar:

Selecionar tudo

--Código do MENU
DECLARE
  p_list PARAMLIST;
BEGIN
 
   p_list := Create_Parameter_List('input_params');
  Add_Parameter(p_list, 'P_SE_CONSULTA',TEXT_PARAMETER,'S');
  CALL_FORM ('formulario',HIDE,DO_REPLACE,NO_QUERY_ONLY,p_list);
  Destroy_Parameter_List(p_list);
 
   
END;

--Código da tela

DECLARE
  it_id Item;
BEGIN
  set_window_property(forms_mdi_window, window_state, maximize);
  set_window_property('WINDOW1',
                        window_state,
                        maximize);

 
 
  IF :parameter.P_SE_CONSULTA = 'S' THEN
                          
    Set_Window_Property(FORMS_MDI_WINDOW,TITLE,'Consulta');                        
    Set_Item_Property(it_id, VISIBLE, Property_FALSE);
  
  ELSE
                       
    Set_Window_Property(FORMS_MDI_WINDOW,TITLE,'Alteração');  
    Set_Item_Property(it_id, VISIBLE, Property_TRUE);
  END IF;
END;
Responder
  • Informação
  • Quem está online

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