1. 根据条件,输出错误提示
IF :detail_line.quantity <= 0 THEN
fnd_message.set_string('数量不能为0或负数!');
fnd_message.error;
RAISE form_trigger_failure;
END IF;
2. 完成MOAC的初始化
CUX_MOAC_PKG.pre_form;
app_window.set_window_position('MAIN', 'FIRST_WINDOW');
3. 初始化folder块,可初始化多个folder块
app_folder.define_folder_block(object_name=>'CUXGSPCHK01',
folder_block_name=>'DETAIL_HEADER',
prompt_block_name=>'DETAIL_HEADER_PROMPT',
folder_canvas_name=>'DETAIL_HEADER_STK',
folder_window_name=>'MAIN',
disabled_functions=>null,
tab_canvas_name=>null,
fixed_canvas_name=>null);
app_folder.event('INSTANTIATE');
4. 功能:当进入FORM时,执行pre_form程序完成MOAC的初始化
procedure pre_form
is
l_default_org_id number;
l_default_ou_name varchar2(240);
l_ou_count number;
begin
MO_GLOBAL.init('CUX');
mo_utils.get_default_ou(l_default_org_id, l_default_ou_name, l_ou_count);
copy(l_default_org_id,'PARAMETER.mo_default_org_id');
copy(l_default_ou_name,'PARAMETER.mo_default_ou_name');
copy(l_ou_count,'PARAMETER.mo_ou_count');
–fnd_message.debug('l_default_org_id = ' || l_default_org_id);
–fnd_message.debug('l_default_ou_name = ' || l_default_ou_name);
–fnd_message.debug('l_ou_count = ' || l_ou_count);
–判断是否找到了OU,如果没有找到,则报错
if nvl(l_ou_count,0) <= 0 then
fnd_message.set_name('CUX', '没有找到相应的OU,请联系系统管理员或开发人员!');
fnd_message.error;
raise form_trigger_failure;
end if;
end pre_form;
5. 帮助》历史记录灰掉问题
问题:在一个FORM中发现历史记录菜单灰掉
解决:这个跟块查询灰掉一样,块查询是把块级触发器WHEN-NEW-RECORD-INSTANCE触发器层级修改为BEFORE,
这个问题需要将WHEN-NEW-BLOCK-INSTANCE触发器层级修改为BEFORE,因为这两个的可用与否,是FORM级触发器判断的,如果覆盖,就不可用了。
PS:使用历史记录时报“历史记录不可用”,是由于在该块中没有5个数据库WHO字段的原因,添加上就行。
6. 设置ITEM属性
set_item_instance_property('DETAIL_LINE.LOT_NUMBER',
current_record,
update_allowed,
property_false);
set_item_property('QUERY_FIND.VENDOR_CUST_NAME'
,insert_allowed
,property_false);
7.Form客户化设置消息例子,参考系统用户创建form,用户创建触发器
FND_USER_PKG_WRP
FND_USER_PKG
8.问题描述: 手电筒功能查询一次后变灰色,不可用
原因:QUERY_FIND查询块中的Query_Allowed属性为NO
方法:把该属性设置为YES即可。
原因:这是主数据块(被查询的数据块)上When-new-record-instance触发器的执行层次问题
方法:改一下主data block的触发器WHEN-NEW-RECORD-INSTANCE ,把属性execution hierarchy改为after。