Nolem的部落格

1.       連上ap server 到$AU_TOP/resource 下抓custom.pll回來

2.       用form 打開custom.pll ,找到 procedure event(event_name varchar2) is

3.       此例用訂單維護畫面進行客製,因此在procedure event 裡加入以下判斷,有限制觸發trigger 如備註
  --

  -- This procedure allows you to execute your code at specific events

  -- including:

  --

  --    ZOOM

  --    WHEN-NEW-FORM-INSTANCE

  --    WHEN-NEW-BLOCK-INSTANCE

  --    WHEN-NEW-RECORD-INSTANCE

  --    WHEN-NEW-ITEM-INSTANCE

  --    WHEN-VALIDATE-RECORD
--判斷觸發點及表單名稱,若相符則執行showmsg
 if event_name = 'WHEN-NEW-FORM-INSTANCE' and name_in('system.current_form')='OEXOEORD'  then      
   showmsg(name_in('system.current_form') || 'from custom.pll' );

    end if;  

4.       新增一個新的library ex: XXTEST.pll
建立procedure showmsg範例如下後保存
PROCEDURE showmsg(str in varchar2) IS

BEGIN

            message(str);

            message(str);

END;

5.       在custom.pll裡的attach library 加入剛建立完成的XXTEST.pll 函式後保存如圖


6.       把custom.pll與XXTEST.pll上船回ebs ap server $AU_TOP/resource理並編譯兩者

7.       重新登入EBS 測試,因為會cache,所以要重新登入