call_from()

1.主from按钮的代码

declare
 v_param_list paramlist;
begin
  v_param_list:=get_parameter_list('from_param_list');
  if not id_null(v_param_list) then
    destroy_parameter_list(v_param_list);
   end if;
   v_param_list := create_parameter_list('form_param_list');
   if id_null(v_param_list) then
    mas_message_pkg.mas_error(100002);
    raise form_trigger_failure;
   end if;
   
   ADD_PARAMETER(v_param_list, 'PURCHASE_ORDER_HEADER_ID', TEXT_PARAMETER, :PUR_LIST.PURCHASE_ORDER_HEADER_ID);
  ADD_PARAMETER(v_param_list, 'SESSION_ID', TEXT_PARAMETER, :PARAMETER.SESSION_ID);
  
  call_form('PUR551',hide,do_replace,no_query_only,v_param_list);
  destroy_parameter_list(v_param_list);
end;
2.被调用的from中的when-new-form-install中的代码

 if :parameter.inv_transfer_rq_hd_id is not null then
         go_block('AINV_TRANSFER_RQ_HEADERS');
         set_block_property('AINV_TRANSFER_RQ_HEADERS',default_where,'a.inv_transfer_rq_hd_id=:parameter.inv_transfer_rq_hd_id');
         execute_query;
         show_view('main_canvas');
         show_view('fixed');
         show_view('stack_common');
        else
         go_block('default');
         show_view('default');
    end if;