从属值集-级联设置

1.从属值集 在EBS系统中建立
独立值集，从属值集，当父集被更选择填入之后，子集才能根据父集的选项填写内容，以下是链接，，我认为这个是讲的很清楚的，推荐一下
https://wenku.baidu.com/view/67d5d492dd88d0d233d46a40.html

2.从属值集 在form表单程序单元中写入
建块名为包名的包
在包头中写入
PACKAGE CMS_CMP_ACC IS
PROCEDURE ERP_ACCOUNT_CODE(EVENT VARCHAR2);
PROCEDURE ERP_SUBACCOUNT_CODE(EVENT VARCHAR2);
END CMS_CMP_ACC;

在包体中写入
PACKAGE BODY CMS_CMP_ACC IS
PROCEDURE ERP_ACCOUNT_CODE(EVENT VARCHAR2) IS
BEGIN
IF (EVENT = ‘WHEN-VALIDATE-ITEM’) THEN
– Any validation logic goes here.
ERP_SUBACCOUNT_CODE(‘INIT’);
:CMS_CMP_ACC.ERP_SUBACCOUNT_CODE_DESC:=null;–注意注意
–此处，有一个LOV带出的字段，当父集被改变时，子集自动清空，子集带出的字段也要被清空，这种方法不是正常的方法，但是可以实现清除功能。
ELSE
fnd_message.debug('Invalid event passed to
CMS_CMP_ACC.ERP_ACCOUNT_CODE: ’ || EVENT);
END IF;
END ERP_ACCOUNT_CODE;

 PROCEDURE ERP_SUBACCOUNT_CODE(EVENT VARCHAR2) IS
 BEGIN
   IF ((EVENT = 'PRE-RECORD') OR
       (EVENT = 'INIT')) THEN
     APP_FIELD.SET_DEPENDENT_FIELD(EVENT,
                                   'CMS_CMP_ACC.ERP_ACCOUNT_CODE',
                                   'CMS_CMP_ACC.ERP_SUBACCOUNT_CODE');
   ELSE 
      fnd_message.debug('Invalid event passed to
          CMS_CMP_ACC.ERP_SUBACCOUNT_CODE: '|| EVENT); 
   END IF;
 END ERP_SUBACCOUNT_CODE;

END CMS_CMP_ACC;

–Trigger: WHEN–VALIDATE–ITEM on ERP_ACCOUNT_CODE: 这个触发器写在父集ERP_ACCOUNT_CODE这个item的触发器中，代码如下
CMS_CMP_ACC.ERP_ACCOUNT_CODE(’WHEN–VALIDATE–ITEM’);

–Trigger: PRE–RECORD on CMS_CMP_ACC (Fire in Enter–Query Mode: No): 这个触发器写在块级触发器下
CMS_CMP_ACC.ERP_SUBACCOUNT_CODE(’PRE–RECORD’);
此段代码中，CMS_CMP_ACC为块名，也是包名，ERP_ACCOUNT_CODE为父集，ERP_SUBACCOUNT_CODE为子集

3.从属值集 LOV查询
当使用了父集子集之后，当父集填入之后，子集才可以填写，子集带出的LOV字段需要在进行LOV查询或者块查询时自动带出，以下是代码实例
BEGIN
SELECT FVL.DESCRIPTION
INTO :CMS_CMP_ACC.ERP_SUBACCOUNT_CODE_DESC
FROM FND_FLEX_VALUES_VL FVL, FND_FLEX_VALUE_SETS FVS
WHERE FVL.FLEX_VALUE_SET_ID = FVS.FLEX_VALUE_SET_ID
AND FVL.PARENT_FLEX_VALUE_LOW = :CMS_CMP_ACC.ERP_ACCOUNT_CODE–父集
AND FVS.FLEX_VALUE_SET_NAME = ‘GFS_B00_COA_SUBACCOUNT’;–子集字段
AND FVL.FLEX_VALUE = :CMS_CMP_ACC.ERP_SUBACCOUNT_CODE;–子集LOV带出字段

EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
END;