一、处理错误
1.当错误出现在Oracle Form PL/SQL中时,处理的方法如下:
IF (err_condition) THEN
Fnd_message.set_name(appl_short_name,message_name);
Fnd_message.error;
RAISE form_trigger_failure;
END IF;
2.当错误出现在Stored Procedure中时,处理的方法如下:
IF (err_condition) THEN
Fnd_message.set_name(appl_short_name,message_name);
App_exception.raise_exception;
END IF;
3.当我们在测试FORM_SUCCESS,FORM_FAILURE和FORM_FATAL的时候,可能触发了目地的子程序而导至它们的值发生改变,例如下面这个例子:
GO_ITEM(‘emp.empno’);
IF FROM_FAILURE THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
GO_ITEM引起其它的触发器触发,比如WHEN-NEW-ITEM-INSTANCE,尽管GO_ITEM可能执行失败,但是后面的Trigger有可能执行成功,这就意味着FROM_FAILURE是失效的,为了避免这种情况发生,可以改为下面这样:
GO_ITEM(‘emp.empno’);
IF :SYSTEM.CURSOR_ITEM != ‘EMP.EMPNO’ THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
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层级同样也会触发.这个例外是如果弹性域调用了From层次的POST-QUERY,但是你在BLOCK的POST-QUERY中重置了这个块的查询状态,像这种情况,BLOCK层的POST-QUERY必须将执行类型设置为After
四、使用APPCORE来代替Oracle Forms Built-In, APPCORE包含了一些等同于Oracle Forms built-ins的功能
EXIT_FORM 不要直接使用EXIT_FROM,应该始终使用do_key(‘EXIT_FORM’),如果需要退出整个Oracle applications suite,应该首先调用copy(‘Y’,’GLOBAL.APPCORE_EXIT_FLAG’);然后再调用Do_key(‘EXIT_FORM’);
SET_ITEM_PROPERTY 使用APP_ITEM_PROPERTY.SET_PROPERTY和APP_ITEM_PROPERTY.SET_VISUAL_ATTRIBUTE来代替
GET_ITEM_PROPERTY 使用APP_ITEM_PROPERTY.GET_PROPERTY来代替
OPEN_FORM 使用FND_FUNCTION.EXECUTE来代替
CLEAR_FORM 使用do_key(‘CLEAR_FORM’)来代替
COMMIT 使用do_key(‘COMMIT_FORM’)来代替
EDIT_FIELD 使用do_key(‘EDIT_FIELD’)来代替,这个程序当当前的ITEM是DATE的时弹出Calendar
VALIDATE 使用APP_STANDARD.APP_VALIDATE来代替
五、Coding Table handlers (参考Oracle Application Developer's Guide)
六、设置物件的属性
1. Canvas的大小最大只能设置到高5 inch、宽7.8 inch,目的是为了更好的适应客户端的环境
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触发器,如下:
IF (:SYSTEM.MODE != ‘ENTER-QUERY’) THEN
LIST_VALUES;
ELSE
SHOW_LOV(‘query lov’);
END IF;
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’);
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/76425/viewspace-912229/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/76425/viewspace-912229/