ITPub博客

首页 > 数据库 > Oracle > FORM开发知识1(网上找到的)

FORM开发知识1(网上找到的)

原创 Oracle 作者:YoungEric 时间:2007-10-23 20:50:18 0 删除 编辑
P.S http://slim119.itpub.net/post/2106/283317[@more@]

一、处理错误

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/10484922/viewspace-978198/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 对齐!
下一篇: One DOS command!
请登录后发表评论 登录
全部评论

注册时间:2007-12-18

  • 博文量
    79
  • 访问量
    211246