EBS开发_标准FORM调用客户化FORM并执行查询

标准FORM调用客户化FORM并执行查询

<1>修改CUSTOM.PLL,使用 fnd_function.execute实现打开和传递参数

/* Sample code: 

    form_name      varchar2(30) := name_in('system.current_form');  

    block_name     varchar2(30) :=name_in('system.cursor_block');   

    param_to_pass1varchar2(255);  

    param_to_pass2varchar2(255);  

  begin  

    -- Zoom eventopens a new session of a form and   

    -- passes parametervalues to the new session.  Theparameters  

    -- already existin the form being opened.  

    if (event_name ='ZOOM') then    

      if (form_name ='DEMXXEOR' and block_name = 'ORDERS') then  

        param_to_pass1:= name_in('ORDERS.order_id');  

        param_to_pass2:= name_in('ORDERS.customer_name');  

       fnd_function.execute(FUNCTION_NAME=>'DEM_DEMXXEOR',