一、处理错误
1.当错误出現在Oracle Form PL/SQL中时,处理的方法如下:
begin if (err_condition) then fnd_message.set_name(appl_short_name, message_name); fnd_message.error; raise form_trigger_failure; end if; end;
2.当错误出现在Stored Procedure中時,处理的方法如下:
begin if (err_condition) then fnd_message.set_name(appl_short_name, message_name); app_exception.raise_exception; end if; end;
3.当我们在测试FORM_SUCCESS,FORM_FAILURE和FORM_FATAL的时候,可能触发了目地的子程序而导致它们的值发生改变,例如下面这个例子:
begin go_item(‘emp.empno’); if from_failure then raise form_trigger_failure; end if; end;
GO_ITEM引起其它的触发器触发,比如WHEN-NEW-ITEM-INSTANCE,尽管GO_ITEM可能执行失败,但是后面的Trigger有可能执行成功,这就意味著FROM_FAILURE是失效的,为了避免这种情況发生,可以改为下面这样:
begin go_item(‘emp.empno’); if :system.cursor_item != ‘emp.empno’ then raise form_trigger_failure; end if; end;
4.避免使用RAISE_APPLICATION_ERROR,因为它与我们使用的进程服务的设置有冲突
5.不要使用CALL_FORM,你可以使用FND_FUNCTION.EXECUTE来代替CALL_FORM或是OPEN_FORM
二、在Oracle Application中使用PL/SQL中需要注意的地方
1.使用select … from dual来代替select … from sys.dual;
2.只返回一行的Select查询要处理NO_DATA_FOUND例外,INSERT、UPDATE、DELETE不会产生这个例外,要使用SQL%NOTFOUND来检查是否有数据
三、Triggers in Forms
1.所有的BLOCK或是FIELD的TRIGGER的执行类型都是Override或是Before,一般情況下,使用的是Before类型,因为通常相同的Trigger在FORM层級同样也会触发。这个例外是如果彈性域调用了Form层次的POST-QUERY,但是你在BLOCK的POST-QUERY中重置了这个块的查询状态,像这种情況,BLOCK块的POST-QUERY必须将执行类型设置为After
四、使用APPCORE来代替Oracle Forms Built-In, APPCORE包含了一些等同于Oracle Forms built-ins的功能
1.EXIT_FORM不要直接使用EXIT_FROM,应该始终使用do_key(‘EXIT_FORM’),如果需要退出整个Oracle applications suite,应该首先调用copy(‘Y’,’GLOBAL.APPCORE_EXIT_FLAG’);然后再调用Do_key(‘EXIT_FORM’);
2.SET_ITEM_PROPERTY使用APP_ITEM_PROPERTY.SET_PROPERTY和APP_ITEM_PROPERTY.SET_VISUAL_ATTRIBUTE来代替
3.GET_ITEM_PROPERTY使用APP_ITEM_PROPERTY.GET_PROPERTY来代替
4.OPEN_FORM使用FND_FUNCTION.EXECUTE来代替
5.CLEAR_FORM使用do_key(‘CLEAR_FORM’)来代替
6.COMMIT使用do_key(‘COMMIT_FORM’)来代替
7.EDIT_FIELD使用do_key(‘EDIT_FIELD’)来代替,这个程序当当前的ITEM是DATE时弹出Calendar
8.VALIDATE使用APP_STANDARD.APP_VALIDATE来代替
五、Coding Table handlers
六、设置物件的属性
1.Canvas的大小最大只能设置到高5inch、宽7.8inch,目的是为了更好的适应客户端的环境
2.使用APP_CUSTOM.OPEN_WINDOW和APP_CUSTOM.CLOSE_WINDOW來打开和关闭window,不过使用go_block也可以达到打开window的功能
3.APP_SPECIAL用来控制菜单项是否可用
七、設置ITEM的一些屬性
1.Text Items
一般情況下,大多數的Text items使用TEXT_ITEM属性类,而需显示多行的使用TEXT_ITEM_MULTILINE属性类,如果是field是date类型使用TEXT_ITEM_DATE,设置它的查询长度为255个字符
2.Date Fields
可以使用DBDATE或是DBDATETIME来设置作为它的预设日期
3.使LOV在ENTER-QUERY模式下应用于一个ITEM ,创建一个ITEM层级的KEY-LISTVAL触发器,如下:
begin if (:system.mode != ‘enter - query’) then list_values; else show_lov(‘query lov’); end if; end;
4.Flexfields
键弹性域使用的是’ENABLE_LIST_LAMP’这个LOV,并且将验证设置为No ,描述性弹性域不会使用到LOV
八、控制Window、BLOCK
1.控制运行时期的window
例如在采购订单窗口包含了一个标签叫做’Lines’的按钮,点击它去到另一个窗口LINES这个块,需要的步骤如下:
第一步:修改以下的Trigger
Trigger:PRE-FORM
App_window.set_window_position(‘HEADER’,’FIRST_WINDOW’);
Trigger: WHEN-BUTTION-PRESSED
app_custom.open_window(‘LINES’);
第二步:修改APP_CUSTOM.OPEN_WINDOW
If wnd = ‘LINES’ then
App_window.set_window_position(‘LINES’,’CASCADE’,’HEADER’);
Go_block(‘lines’);
End if;
可用的类型有以下几种:
◆ CASCADE 此类型当子窗口打开的时候,会显示在父窗口的上面并距离父窗口的右边0.3,通常使用于明细窗口
◆ RIGHT, BELOW 略
◆ OVERLAP 略
◆ CENTER 略
◆ FIRST_WINDOW 通常用于主窗口
2.关闭窗口
一个Form具有三个窗口分別是’Header’,’Lines’和’Shipments’,Shipments是Lines的明细窗口,而Lines是Header的明细窗口,从逻辑上讲关闭窗口如下:
Procedure close_window(wnd varchar20) is If wnd = ‘HEADER’ then App_window.close_first_window; Elsif wnd = ‘lines’ then App_custom.close_window(‘shipments’); If (wnd = get_view_property(get_item_property(:system.cursor_item,item_canvas), window_name) then go_block(‘header’); end if; elsif wnd = ‘shipments’ then If (wnd = get_view_property(get_item_property(:system.cursor_item,item_canvas), window_name) then go_block(‘lines’); end if; end if; hide_window(wnd); end;
3.在执行过程中使用查询
如果你想在打开FORM之前调用一个ROW-LOV或是查询窗口,在WHEN-NEW-FORM-INSTANCE后面加上:
EXECUTE_TRIGGER(‘QUERY_FIND’);