FORM开发之说明性弹性域开发
1.注册使用弹性域的表,字段
注册表语法:ad_dd.register_table('所有者','表名','T自动扩展/S非自动扩展','下一区','自由','已使用')
AD_DD.REGISTER_TABLE(p_appl_short_name in varchar2, --应用名简称/所有者
p_tab_name in varchar2, --表名
p_tab_type in varchar2, --T自动扩展/S非自动扩展/F
p_next_extent in number, --下一区
p_pct_free in number,
p_pct_used in number)
注册列语法:executead_dd.register_column('所有者','表名','字段名',序号,'类型',字段宽度,是否为空，是否可以转换）
AD_DD.REGISTER_COLUMN(p_appl_short_name in varchar2,
p_tab_name in varchar2, --应用名简称/所有者
p_col_name in varchar2, --列名
p_col_seq in number, --序号，唯一
p_col_type in varchar2, --类型
p_col_width in number, --字段宽度
p_nullable in varchar2, --是否为空
p_translate in varchar2, --是否可以转换
p_precision in number default null,
p_scale in number default null)
检查注册成功与否:
select ft.table_idfrom fnd_tables ft whereft.table_name='CUX_OM_POP_VALIDITY_ALL
删除注册:
executead_dd.delete_table('CUX','CUX_OM_POP_VALIDITY_ALL');
例
注册表
EXECUTE AD_DD.REGISTER_TABLE('CUX','CUX_AP_INVOICE','T',131072,10,);
注册列
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','LAST_UPDATE_DATE',41,'DATE',9,'N','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','LAST_UPDATE_LOGIN',42,'NUMBER',38,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','PROGRAM_APPLICATION_ID',43,'NUMBER',38,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','PROGRAM_ID',44,'NUMBER',38,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','PROGRAM_UPDATE_DATE',45,'DATE',9,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','REQUEST_ID',46,'NUMBER',38,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE_CATEGORY',47,'VARCHAR2',30,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE1',48,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE2',49,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE3',50,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE4',51,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE5',52,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE6',53,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE7',54,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE8',55,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE9',56,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE10',57,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE11',58,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE12',59,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE13',60,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE14',61,'VARCHAR2',240,'Y','N');
EXECUTE AD_DD.REGISTER_COLUMN('CUX','CUX_AP_INVOICE','ATTRIBUTE15',62,'VARCHAR2',240,'Y','N');
2.系统中注册说明性弹性域
应用：选择注册的应用
名称：填写注册说明弹性域的名称（必须唯一）
标题：弹性域的标题，在今后的应用中，此说明弹性域将会在窗口标题上显示在此定义的标题内容
表应用：在注册表，列时指定的应用（appl_short_name）
表名： 选择注册的表名称
结构列：必须也是存在于注册过的列，结构列的意义就是存放说明性弹性域上下文提示的值
上下文提示：是在说明性弹性域上下文字段的标题描述
3.FORM中开发弹性域
（1）:加入非基表域用于容纳弹性域,我们做一个ITEM叫DF 注意这个ITEM的CLASS属性为 TEXT_ITEM，LOV处选ENABLE_LIST_LAMP，并把检查有效性设为NO。
(2):FORM中要包含所设置的弹性域如ATTRIBUTE_CATEGORY,ATTRIBUTE1,ATTRIBUTE2…... 注意这些域为基表项,设置CANVANS为NULL或者显示在画布上都可以
(3):把DF放在CANVANS上,弄成弹性域的样子.设置其属性:值列表=ENABLE_LIST_LAMP
(4):在FORM中注册弹性域
为了FORM识别弹性域,在FORM级别的WHEN-NEW_FORM_INSTANCE 上加上如下的代码
从列表中验证=否
fnd_descr_flex.define(
'FLEX_LN', -- form中的block name
field=>'DF', -- form中的弹性域的item name
appl_short_name=>'EDV', -- 注册弹性域在那个user下
desc_flex_name=>'FLEX_LN' -- 注册弹性域的名称
);
具体参数及意思.如下
含有弹性域的BLOCK 叫FLEX_LN
DF 我们命名的那个容纳弹性域的域.
FLEX_LN 我们注册的那个弹性域的名称.
5):加入触发器以支持弹性域.
分别在BLOCK级别加入如下的触发器.
PRE-QUERY
PRE-UPDATE
PRE-INSERT
POST-QUERY
其触发器的代码分别对应
(
FND_FLEX.EVENT('PRE-QUERY');
FND_FLEX.EVENT('PRE-UPDATE');
FND_FLEX.EVENT('PRE-INSERT');
FND_FLEX.EVENT('POST-QUERY');
在容纳弹性域的域ITEM级别加入如下的触发器
WHEN-VALIDATE_ITEM
FND_FLEX.EVENT('WHEN-VALIDATE-ITEM');
4.系统中启用弹性域
路径 ApplicationDeveloper --> Flexfield --> Descriptive --> Segments
弹性域设置结束后，需要将Freeze Flexfield Definition冻结才能使设置生效
Application: 弹性域注册的应用名称
Title: 弹性域标题，打开弹性域窗体时所显示的名称
Freeze Flexfield Definition:冻结弹性域定义，修改时需要解除冻结，设置完成之后需要冻结才能生效
Segment Separator:段分隔符
Prompt: 上下文提示
Value Set: 为上下文内容提供一个LOV值集选择
Default Value:上下文默认值
Reference Field:参考字段，作用是根据参考字段的值来判断显示哪一中弹性域(上下文)
Global Data Elements:每个弹性的段信息中，都有一个默认的段定义 Global Data Elements。如果我们定义的弹性域只有一种段结构的话，可以直接在 Global Data Elements段中进行定义，如果有多个的话，需要在另创建记录进行段定义的需要，有一点需要说明的是，一旦有注册了的字段在 Global Data Elements中定义了结构的话，那么用户自己在创建其他的段结构，则不会显示在Global Data Elements中使用了的字段
Parts: 自定义段结构
Vehicle: 自定义段结构
设置完成之后注意要冻结弹性域定义并保存
