Form开发常用命令点

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。

发表回复

您的电子邮箱地址不会被公开。