Form开发小技巧

1、 设置堆叠画布窗口跟随主窗口变化

form级触发器:WHEN-WINDOW_RESIZED触发器中修改in中的窗口名

2、启用标准菜单中的导出功能

操作路径=>文件=>导出

Oracle Form中经常会发现系统导出菜单失效，利用上段代码可强行激活。

set_menu_item_property('FILE.EXPORT',ENABLED,PROPERTY_TRUE);

3、 Oracle form poplist下拉框去掉其中的空值

ctrl+shift+<

4、 代码控制ITEM属性

如果是控制单行记录或者多行记录中的全部记录：SET_ITEM_PROPERTY

如果是控制多行记录中的单一行记录：SET_ITEM_INSTANCE_PROPERTY

5、（shift+f6）复制上条记录

在数据块的KEY-DUPREC触发器中加入

begin

  duplicate_record;

end;

6、 app_query设置块的查询条件

1、app_query.reset('块名'):　第一次设置查询条件为 default_where

2、app_query.append ('块名',user_where_clause):  在form中，给数据块查询添加新的where语句

例子：

在查询窗口中添加查询条件

如果直接在块的where clause中设置查询条件时，会总是将org_id为空的记录查询出来，而通过如下设置则只会输出选择条件的记录

IF :parameter.g_query_find = 'TRUE' THEN
         app_query.reset('MAIN');
        app_query.append('MAIN','(org_id IS NULL OR org_id = fnd_global.org_id)');

        copy(name_in('QUERY_FIND.DOC_TYPE_CODE'), 'MAIN.PRINT_DOC_TYPE');
        copy(name_in('QUERY_FIND.TMP_CODE'), 'MAIN.TEMPLATE_CODE');
        copy(name_in('QUERY_FIND.PACK_NAME'), 'MAIN.PACKING_NAME');
 
        :parameter.g_query_find := 'FALSE';
      END IF;

7、 查询界面的查询窗口在前，主窗口在后

设置：

1、所有地方的first window还是主窗口名

2、在when-new-form-instance触发器中初始化完folder定义后添加query_find窗口调用定义代码如下：

app_find.query_find('CUX_INV_TXN_V','QUERY_FIND','QUERY_FIND');

8、设置窗口title名

app_window.set_title('QUERY_FIND',:parameter.org_name);

9、rowid

row_id 的subclass information设置成row_id

重新加载数据块时注意row_id的长度至少18

否则插入数据时报on-insert触发器遇到了不能解决的问题

10、显示历史记录

在PRE-INSERT,PRE-UPDATE触发器中添加 fnd_standard.set_who，

同时form基于的表或试图必须带有5个who字段，否则将出现查询以后历史记录不可用

11、日期的item显示时分秒

将item的data type属性设置成datetime，只要数据库中的数据是带时分秒的就能显示出来