FORM 开发相关技巧3

16, 常用item 事件包括：

when_validate_item : 调用一个item的验证并且设置动态的item 属性

when_new_record_unstance ：重置item属性到默认状态给一个新的纪录。

init：测试当前条件，必要时重置默认属性和动态属性

对于‘INIT’的理解：

Examine current conditions and reset defaults and dynamic attributes as necessary. Usually called by other handlers that affect this item.

17 , EBS中客户化表结构的设计原则：

1)必须包括一个主键，并建立相应的序列；

2)建立5个WHO字段,也就是

CREATED_BY NUMBER

CREATION_DATE DATE

LAST_UPDATED_BY NUMBER

LAST_UPDATE_DATE DATE

LAST_UPDATE_LOGIN NUMBER

在FORM中使用属性类：CREATION_OR_LAST_UPDATE_DATE，WHO字段并不会自动地被赋值，必须自己在FORM中编写代码来完成这项工作。

EBS中提供了一个函数FND_STANDARD.SET_WHO，大家只要在FORM的BLOCK级触发器PRE-INSERT/PRE-UPDATE中进行调用即可。

对于记录的PRE-INSERT,PRE-UPDATE Trigger中加入了fnd_standard.set_who后，

程序自动会对CREATE _BY,CREATION_DATE,LAST_UPDATE_BY,LSAT_UPDATE_DATE,LAST_UPDATE_LOGIN这5个栏位赋新的值

18, form 编程规则：

*引用字段时，使用 :BlockName.ItemName的形式；

*使用亚元直接用dual，不要用sys.dual和system.dual；

*使用object IDs获得更好的性能；

declare

x_id item;

begin

x_id := find_item(’block.item’);

end;

*总是使用显式游标；

*使用FND_MESSAGE程序显示信息

*使用FND_MESSAGE.DEBUG拉显示debugging信息，

典型用法：

ELSE

fnd_message.debug(’Invalid event passed to control.orders_lines: ’ || EVENT);

END IF;

*使用RAISE FORM_TIGGER_FAILURE来终止应用层的运行

*使用APP_EXCEPTION.RAISE_EXCEPTION 来终止数据库层的运行

*用fnd_fuction.execute代替open_form

*不要使用CALL_FORM

*用do_key(‘exit_form’)代替exit_form

To exit the Oracle Applications suite:

copy (’Y’, ’GLOBAL.APPCORE_EXIT_FLAG’);

do_key(’exit_form’);

*用do_key(‘clear_form’)代替clear_form

*用do_key('COMMIT_form')代替commit

*用do_key(‘edit_field’)代替EDIT_FIELD/EDIT_TEXTITEM

触发器编程规则

*Post-Query trigger说明：

.用带有LOVS的items使用lov来验证是否正确，当他们在无意识的情况下被要求保存changes会使用户感到混淆，

这种情况下，在你的post-query 触发器里面重置记录状态：(设置当前块的属性为查询状态)

set_record_property(:system.trigger_record,:system.trigger_block, STATUS,QUERY_STATUS);

*必须设置为Before的trigger有WHEN-NEW-RECORD-INSTANCE， WHEN-NEW-BLOCK-INSTANCE，WHEN-NEW-ITEM-INSTANCE；

可以设置为Override的trigger有KEY-DUPREC，KEY-MENU，KEY-LISTVAL，QUERY_FIND， ACCEPT。

19, FND_Function 用法：

FND_Function.Execute 可使用

Procedure--过程

Executes the specified Form 指定的form

Only accessible from Client-side PL/SQL 可连接form的客户端的pl/sql

Should be used in place of Oracle Forms built-ins OPEN_FORM and NEW_FORM 应该在form级触发器OPEN_FORM与NEW_FORM

Usage:--使用例子

procedure FND_FUNCTION.EXECUTE

(function_name IN varchar2,

open_flag IN varchar2 default ’Y’,

session_flag IN varchar2 default ’SESSION’,

other_params IN varchar2 default NULL,

activate IN varchar2 default ’ACTIVATE’,

browser_target IN varchar2 default NULL);

20,,fnd_message.set_name用法：

一般情况下在FORM中显示出错信息使用以下代码：

FND_MESSAGE.SET_NAME( APPL_SHORT_NAME,MESSAGE_NAME) ;

FND_MESSAGE.ERROR ;

在PACKAGE中显示出错信息一般使用以下代码：

FND_MESSAGE.SET_NAME( APPL_SHORT_NAME,MESSAGE_NAME) ;

APP_EXCEPTION.RAISE_EXCEPTION ;

例 fnd_message.set_name('FND','是否删除该记录？');

fnd_message.question 用法：

例在删除某条记录之前提示是否删除该如何实现？即在删除某条记录之前提示用户是否删除，

如何用户选择删除则删除，如果选择否则不删除的实现？

1。首先新建Alter 'DELETE_ALERT',更改其属性button1为"Yes",button2为"No"

2。在Block level Trigger： key-delrec中增加如下代码即可：

declare

return_value number;

begin

set_alert_property('DELETE_ALERT',alert_message_text,'Are You Sure Delete This Record ?');

return_value := show_alert('DELETE_ALERT');

if return_value = alert_button1 then

delete_record;

end if;

end;

21,提交请示

关于fnd_request.submit_request的用法：

FND_REQUEST.SUBMIT_REQUEST 函數是用來提交一個請求的,它返回一個NUMBER值.具體調用如下

:result := fnd_request.submit_request(application CHAR, --AP模快

program CHAR, --應用程式

description CHAR, --請求說明(可選)

start_time CHAR, --RUN 時間(可選)

sub_request BOOLEAN, --立刻提交請求

argument1 CHAR, --參數1

argument2 CHAR, --參數2

argument3 CHAR, --參數3

argument4 CHAR, --參數4

argument5 CHAR, --參數5.......

argument100 CHAR);

英文說明(zt oracle) :

Parameters are as follows:

application - Short name of the application associated with the concurrent

request to be submitted.

program - Short name of the concurrent program (not the executable) for which

the request should be submitted.

description - Description of the request that is displayed in the Concurrent

Requests form (Optional.)

start_time - Time at which the request should start running, formatted as HH24:

MI or HH24:MI:SS (Optional.)

sub_request - Set to TRUE if the request is submitted from another request and

should be treated as a sub-request.

argument1...100 - Arguments for the concurrent request; up to 100

arguments are permitted. If submitted from Oracle Forms, you must specify all

100 arguments.

补充说明：

在用fnd_request.submit_request的时候，第五个参数用false，不要被参数名称误导；

这个函数有105个参数，前面五个定义请求本身，后面100个是传递给请求的具体参数，都是Char类型，

我们需要转换，默认值是chr(0)，代表这个参数不用传递给调用的请求；

在Package里面调用只需要传递需要的参数个数，因为它有默认值指示结束；

在form里面则不行，要写满105个，而且我们参数结束之后要用一个chr(0)来表示结束

例

fnd_request.submit_request('AR',

'SVAINEX_P',

'',

'',

FALSE,

:parameter.invoice_store,

chr(0),

'','','',

'','','','','','','','','','','','','','','','','','','','',

'','','','','','','','','','','','','','','','','','','','',

'','','','','','','','','','','','','','','','','','','','',

'','','','','','','','','','','','','','','','','','','','',

'','','','','','','','','','','','','','','');

22， 程式中如何设置才能在点MENU上的FIND的图标时调出FIND WINDOW?(客制的ORACLE FORM中)？

在相应的QUERY_FIND里写的,最后调用到app_find.query_find

OA 中的查询可以通过2 种方法来实现：

l LOV 查询

l QUERY-WINDOW查询。

LOV 查询的实现比较简单，且适合单一条件的查询；相比来说QUERY-WINDOW 查

询的实现较繁琐，但它可以实现复杂的查询。

LOV 查询的实现

使用LOV 查询，需要按照以下步骤实现：

l 创建PARAMETER，用于保存查询变量

l 创建LOV，其返回值赋予上面定义的参数

l 创建BLOCK 级的PRE-QUERY，将LOV 返回的值赋予BLOCK 中的对应字段

l 创建BLOCK 级的QUERY-FIND。添加如下代码：

APP_FIND.QUERY_FIND(’<LOV Name>’) ；

QUERY-WINDOW查询的实现

使用QUERY-WINDOW 查询，需要按照以下步骤实现：

l 从APPSTAND 中拷贝QUERY-FIND 对象组，其中包括WIINDOW,BLOCK, CANVAS

l 更改WINDOW, BLOCK, CANVAS 的名字

l 更改按钮“NEW”的TRIGGER，编写如下代码：app_find.new(<块名> )

l 更改按钮“FIND”的TRIGGER，编写如下代码：app_find.find(<块名> )

l 设置导航属性。设置查询窗口的前导块为查询目标块，但查询窗口不能作为任何块的前导块或后续块

l 编辑KEY–NXTBLK，使之功能同按钮“FIND”

l 设置查询窗口名

l 创建PRE-QUERY 代码，例如填写查询值，用APP_FIND.QUERY_RANGE设置查询范围等

l 创建QUERY-FIND 代码，其中代码如下：

APP_FIND.QUERY_FIND(’<块所在窗口名>’,’<查询窗口名>’,’<块名>’);

方法2

1要建一个查询的数据块在这个数据块中，放置各个需要查询的数据项

然后，在FORM级的触发器QUERY_FIND中，屏蔽掉标准的代码，而写为：go_block('你的查询数据块名称');

这样，当用户点“手电筒”图标时，系统就会自动转到那个查询数据块的界面了。

2查询数据块应该单独放在一个画布中，并且单独放在一个WINDOWS中。

这样，就可以显示单独的查询窗口。

如果要实现"当点击那个手电筒，出现我要查询的数据的ｗｉｎｄｏｗｓ，当我选中后，他会自动显示在另外一张ｗｉｎｄｏｗｓ"

则要在查询数据块中放一个查询的按钮，在按钮中添加语句：go_block('要导向的结果数据块');

execute_query;

这样，用户输入好条件之后，点击“查询”按钮，就可以转到结果集窗口了。

两句一起写在按钮事件下。

在查询结果的数据块中，你可以在where条件那里直接引用查询数据块的各数据项的数据，

写在where条件中限制结果集。

方法3

1要建一个查询的数据块在这个数据块中，放置各个需要查询的数据项

然后，在FORM级的触发器QUERY_FIND中，屏蔽掉标准的代码，而写为如：

app_window.set_window_position('QUERY','CASCADE','MAIN' );--CASCADE',层叠的方式,就是把query窗口层叠在main之上

app_find.QUERY_FIND('MAIN','QUERY','QUERY');--APP_FIND.QUERY_FIND(’<块所在窗口名>’,’<查询窗口名>’,’<块名>’);

2查询数据块应该单独放在一个画布中，并且单独放在一个WINDOWS中。

则要在查询数据块中放一个查询的按钮，在按钮中添加语句：go_block('要导向的结果数据块');

execute_query;