使用 APP_FIND.FIND( PARAMETER BLOCK_NAME); BLOCK_NAME 为展示的数据块查询结果；
使用 app_find.query_range(TO_CHAR(:QUERY.RCV_DATE_S,'YYYYMMDD'),TO_CHAR(:QUERY.RCV_DATE_E,'YYYYMMDD'),'RESULT.RCV_DATE');
将使程序中从一个数据块参数传入数据到另一个数据块
---- 在 开 发 应 用 中， 经 常 用 到List_Item 控 件， 此 控 件 是 列 表 框， 可 以 让 用 户 在 多 个 备 选 值 中 进 行 选 择。 列 表 框 的 加 载 有 两 种 方 式。 一 种 是 固 定 的， 另 一 种 是 动 态 的。
---- 1 ． 固 定 式。 即 列 表 框 中 的 数 据 是 固 定 的。 这 种 方 式 比 较 简 单， 无 需 编 程 既 可 实 现。 假 设 有 一 个List_Item 控 件， 且 命 名 为List1， 如 图1 所 示。 在List1 的 属 性List elements 中 填 加 要 选 择 的 数 据 项， 即 可 达 到 目 的。 当 开 发 人 员 对 数 据 库 较 熟 悉 或 数 据 库 表 中 的 数 据 项 比 较 固 定 时， 可 采 用 此 种 方 式。
---- 2 ． 动 态 式。 即 列 表 框 中 的 值 会 随 着 数 据 库 表 中 数 据 项 的 变 化 而 变 化。 此 种 方 式 的 通 用 性 较 强， 可 以 满 足 用 户 的 需 要。 在 实 际 应 用 中， 较 常 用 的 是 此 种 通 用 性 的 方 式。 本 文 将 举 一 个 实 例， 来 说 明 此 种 方 法 的 实 现。
---- 假 设 有 一 个 产 品 销 售 数 据 表SALES， 并 含 有 时 间（Time）， 产 品 名 称(Name)， 销 售 量(Amount) 三 个 字 段， 如 表1 所 示。
时 间 产 品 名 称 销 售 量
1997 彩 电 100
1998 彩 电 120
1997 冰 箱 90
1998 冰 箱 80
1997 空 调 110
1998 空 调 130
表1
---- 为 了 分 析 需 要， 现 要 求 用 列 表 框 把 所 有 产 品 的 名 称 显 示 出 来。 我 们 建 立 一 个 过 程pl， 并 用 游 标 来 实 现 此 功 能。 过 程pl 的 程 序 代 码 如 下：
PROCEDURE pl IS
cursor c1 is
select name from sales;
cnt number;
i number;
tname sales.name%type;
BEGIN
clear_list('list1');
open c1;
select count(distinct name) into cnt from sales;
for i in 1..cnt loop
fetch c1 into tname;
add_list_element('list1',i,tname,tname);
end loop;
delete_list_element('list1',cnt+1);
close c1;
END;
---- 在Forms 中 设 置WHEN_NEW_FORM_INSTANCE 触 发 器 并 调 用 此 过 程， 即 完 成 了 此 工 作。 其 结 果 显 示 如 图2 所 示。
SET_ITEM_INSTANCE_PROPERTY('PRGCLASS.PROGRAM_COLOR_ITEM', CURRENT_RECORD, VISUAL_ATTRIBUTE ,'TEXT_BG_MTO');
set_item_property 如果数据块只有一行,用这个
SET_ITEM_INSTANCE_PROPERTY 设置多行数据块某一行的属性
set_item_instance_property('Query.LOC',
CURRENT_RECORD,
UPDATE_ALLOWED,
PROPERTY_OFF);
SET_ITEM_INSTANCE_PROPERTY('PRGCLASS.PROGRAM_COLOR_ITEM', CURRENT_RECORD, VISUAL_ATTRIBUTE ,'TEXT_BG_MTO');
set_item_property 如果数据块只有一行,用这个
SET_ITEM_INSTANCE_PROPERTY 设置多行数据块某一行的属性
常用ORACLE EBS FORM 二次开发常用总结
1.锁住当前行 Set_Item_Instance_Property('main.import_flag', CURRENT_RECORD, UPDATE_ALLOWED, PROPERTY_OFF);
用在WHEN-NEW-RECORD-INSTANCE 或者POST-QUERY中。
同:app_item_property.set_property('MAIN.REF_COST',ALTERABLE,PROPERTY_ON)
2.设置记录的颜色 app_record.highlight('RED_REC');
3.窗口居中 app_window.set_window_position('WINDOW_NAME','CENTER');
4.最大化窗口时自动扩展文件夹数据块
在WHEN-WINDOW-RESIZED中添加以下代码即可。
if :system.event_window in ('MAIN') then
app_folder.event('WHEN-WINDOW-RESIZED');
end if;
5.Form中调用forms基本参数方式
FND_FUNCTION.EXECUTE(FUNCTION_NAME=>'CUXSOSETUP', OPEN_FLAG=>'Y', SESSION_FLAG=>'Y', OTHER_PARAMS=>NULL);
其它参数传入OTHER_PARAMS即可。
6.动态设置当前行指定列的必输属性 Set_Item_Instance_Property(item_name, CURRENT_RECORD, REQUIRED,PROPERTY_TRUE);
如: if :CUX_WORKHOUR_EMP.ATTRIBUTE2 <> :CUX_WORKHOUR_EMP.ATTRIBUTE1
then Set_Item_Instance_Property('CUX_WORKHOUR_EMP.MODIFY_REASON', CURRENT_RECORD, REQUIRED,PROPERTY_TRUE);
if :CUX_WORKHOUR_EMP.MODIFY_REASON is null
then :CUX_WORKHOUR_EMP.MODIFY_REASON := '123';
:CUX_WORKHOUR_EMP.MODIFY_REASON := null
fnd_message.set_string ('请输入调整原因.');
fnd_message.show;
end if;
else if :CUX_WORKHOUR_EMP.ATTRIBUTE4 = :CUX_WORKHOUR_EMP.ATTRIBUTE3
then Set_Item_Instance_Property('CUX_WORKHOUR_EMP.MODIFY_REASON', CURRENT_RECORD, REQUIRED,PROPERTY_FALSE);
end if;
end if;
7.增加菜单
在 FORM级的when-new-form-instance APP_SPECIAL.INSTANTIATE('SPECIAL1','取消需求行', '', TRUE, 'LINE');
8.LOV指定初始值后需在WHEN-NEW-RRECORD-INSTANCE用以下语句模拟验证， 否则会弹出验证框.
代码如下： app_item_property.set_property('DETAIL_D.DEMAND_STATUS_DESC', ITEM_IS_VALID,property_on);