技術交流

於 EBS 客製 FORM 中引用鍵彈性欄位元

許峰麗

瞭解 EBS 的人都知道，彈性欄位元為 EBS的一大特點，在 EBS 的實施中有著舉足輕重的作用，分為關鍵彈性域（Key Flexfields）和描述性彈性域（Descriptive Flexfields）。

關鍵性彈性域：具有足夠的彈性，容許使用任意代碼組合以描述實體。在實施 EBS 時，顧問會定義所有的關鍵性彈性域，以使用有含義的程式碼片段來說明每個關鍵性彈性域實體。可為每個關鍵性彈性域確定實體具有多少段、每段的含義、每個段具有的值以及每個段值代表的含義。
說明性彈性域：說明性彈性域用來擴充表單，系統可以使用說明性彈性域來獲取業務所特有的重要附加資訊。

根據如上定義，可以簡單理解成 Key Flexfields 中的 segment 是已經有 business 意義的，而 Descritive Flexfields 中的 segment 是還沒定好具體意義，可以讓客戶自己定義的。故在實際的客製化中 Descriptive Flexfields 的應用是比較頻繁的，而 Key Flexfields 於客製化中的應用確實比較少，不過，偶爾還是會有需要於客製 FORM 中引用系統已定義好的鍵彈性欄位元架構來實現。目前這方面的實例比較少，這裡將筆者最近整理的一套實現方法寫出來與大家共用：

FORM 版本為 R12 中的 TEMPLATE.fmb。
需要載入與彈性欄位元相關的 Library:FNDSQF。

以 FORM 中引用會計科目架構為例，實現步驟

於　block ‘HEADER’　中增加兩個欄位‘OTHER_ACCOUNT’ 和 ‘OTHER_ACCT_ID’，分別用於存放會計科目和會計科目的 id，且兩個欄位元的 Database Item 屬性為 ‘Yes’。 OTHER_ACCOUNT 的是否顯示屬性為 ‘YES’， OTHER_ACCT_ID為 ‘NO’。

於 form 的 program units 中創建一 procedure，用於定義會計科目的彈性欄位元。


PROCEDURE ACCOUNT_DEFINE(P_BLOCK_NAME VARCHAR2,
　　　　　　　　　　　　　　　P_FIELD VARCHAR2,
　　　　　　　　　　　　　　　P_ID VARCHAR2,
　　　　　　　　　　　　　　　P_DESCRIPTION VARCHAR2,
　　　　　　　　　　　　　　　P_ORG_ID NUMBER
　　　　　　　　　　　　　　) IS
　V_COA NUMBER;
BEGIN
　SELECT sob.CHART_OF_ACCOUNTS_ID
　INTO V_COA
　FROM gl_sets_of_books sob
　　,hr_operating_units hou
WHERE hou.set_of_books_id=sob.set_of_books_id
and hou.ORGANIZATION_ID=P_ORG_ID;

FND_KEY_FLEX.Define
　(
　　　　　BLOCK => P_BLOCK_NAME,
　　　　　FIELD => P_FIELD,
　　　　　ID => P_ID,
　　　　　description => P_DESCRIPTION,
　　　　　APPL_SHORT_NAME => 'SQLGL',----此鍵彈性欄位元對應的模組簡碼
　 　　　　CODE => 'GL#', -----每個模組有自己的固定值GL為 ‘GL#’，AP為 ‘AP’ 等，具體可參考EBS開發嚮導
　　　　　NUM => V_COA, ----彈性欄位元的 STRUCTURE Number
　　　　　REQUIRED => 'N',
　　　　　VALIDATE => 'FULL',
　　　　　USEDBFLDS => 'N',
　　　　　DINSERT => 'Y'
　　　　　);
END;

於 ‘HEADER’ BLOCK 中的 trigger POST–QUERY, PRE–INSERT, PRE–UPDATE, WHEN–VALIDATE–RECORD WHEN–NEW–ITEM–INSTANCE和item ‘OTHER_ACCOUNT’的WHEN–VALIDATE–ITEM trigger 中增加如下代碼，引用彈性欄位元定義：


ACCOUNT_DEFINE('HEADER' ,
'OTHER_ACCOUNT' ,
'OTHER_ACCT_ID',
NULL, --ACCOUNT DESCRIPTION
:HEADER.ORG_ID
);

於 BLOCK ‘HEADER’ 和 ‘OTHER_ACCOUNT’ 欄位中增加如下 trigger：

Trigger	Procedure
PRE–QUERY	FND_FLEX.EVENT('PRE-QUERY');
POST–QUERY	FND_FLEX.EVENT(’POST–QUERY’);
PRE–INSERT	FND_FLEX.EVENT(’PRE–INSERT’);
PRE–UPDATE	FND_FLEX.EVENT(’PRE–UPDATE’);
WHEN–VALIDATE–RECORD	FND_FLEX.EVENT(’WHEN–VALIDATE–RECORD’);
WHEN–NEW–ITEM–INSTANCE	FND_FLEX.EVENT(’WHEN–NEW–ITEM–INSTANCE’);
WHEN–VALIDATE–ITEM	FND_FLEX.EVENT(’WHEN–VALIDATE–ITEM’);

至此引用 Key Flexfields 的功能已實現，此方法適用於客製 Form 中引用 EBS 中定義好的任意鍵彈性欄位元架構，引用其它架構時只需修改引用 FND_KEY_FLEX.Define procedure 時參數 ‘APPL_SHORT_NAME’、‘ CODE’、‘NUM’ 的值與被引用的架構進行對應即可。

若您是一位 EBS 的使用者，是否有對 EBS 中的鍵彈性欄位元的實現方法感到好奇？願此篇文章讓您找到答案！如果您是一位 EBS 的維護或開發人員，是否也有過為實現引用 EBS 的 Key Flexfields 而感到苦惱？願此篇文章讓您的苦惱化為烏有！

Tags：Oracle、EBS、ERP、程式客製