Custom Libraty:Code Samples
转自http://www.cnblogs.com/benio/archive/2009/11/18/1605556.html
1
procedure event (event_name varchar2) is
2form_name varchar2(30) :=
3name_in(‘system.current_form’);
4block_name varchar2(30) :=
5name_in(‘system.cursor_block’);
6begin
7
8end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’) then
5app_item_property2.set_property(
6‘VENDOR.NAME’,
7CASE_RESTRICTION, UPPERCASE);
8end if;
9end if;
10end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’) then
5app_item_property2.set_property(
6'vendor.name', PROMPT_TEXT,
7'Supplier Name');
8end if;
9end if;
10end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’) then
5app_item_property2.set_property(
6'vendors.details', LABEL,
7'More Details');
8end if;
9end if;
10end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’and
5block_name = ‘VENDOR’) then
6app_item_property2.set_property(
7'vendor.note', BACKGROUND_COLOR,
8‘r255g255b0’); -- bright yellow
9end if;
10end if;
11end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’) then
5app_item_property2.set_property(
6'vendor.note', DISPLAYED,
7PROPERTY_OFF); -- hide Notes field
8end if;
9end if;
10end;
1begin
2if (event_name = ‘WHEN-NEW-BLOCK-INSTANCE’)
3then
4if (form_name = ‘APXVENDR’ and
5block_name = ‘VENDOR’) then
6set_block_property(block_name,
7insert_allowed, property_false);
8set_block_property(block_name,
9update_allowed, property_false);
10end if;
11end if;
12end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’) then
3if (form_name = ‘DEMXXEOR’) then
4app_special2.instantiate(‘SPECIAL15’,
5‘Print Order &Again’, ‘’, TRUE, ‘LINE’);
6end if;
7end if;
8end;
1begin
2if (event_name = ‘WHEN-NEW-BLOCK-INSTANCE’) then
3if (form_name = ‘DEMXXEOR’ and
4block_name = ‘ORDERS’) then
5app_special2.enable(‘SPECIAL15’,
6PROPERTY_ON);
7elsif (form_name = ‘DEMXXEOR’ and
8block_name = ‘LINES’) then
9app_special2.enable(‘SPECIAL15’,
10PROPERTY_OFF);
11end if;
12end if;
13end;
1begin
2if (event_name = ‘SPECIAL15’) then
3if (form_name = ‘DEMXXEOR’ and
4block_name = ‘ORDERS’) then
5/* Add your Print Order logic here */
6raise FORM_TRIGGER_FAILURE;
7end if;
8end if;
9end;
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’) then
3if (form_name = ‘DEMXXEOR’) then
4if (FND_FUNCTION.TEST(
5'DEM_DEMXXEOR_AUTHORIZED')) then
6/* Add your logic here */
7end if;
8end if;
9end if;
10end;
1if FND_PROFILE.VALUE('USERNAME')='CUST01' then
2custom01.event(event_name);
3
4elsif FND_PROFILE.VALUE('USERNAME')='CUST25' then
5custom25.event(event_name);
6Copyright © Oracle Corporation, 2000. All rights reserved.
7Coding Events
8Chapter 3 - Page 22
9end if;
10end event;
1Add the following code to your EVENT procedure:
2procedure event(event_name varchar2) is
3Copyright © Oracle Corporation, 2000. All rights reserved.
4Coding Events
5Chapter 3 - Page 31
6form_name varchar2(30) :=
7name_in('system.current_form');
8block_name varchar2(30) :=
9name_in('system.cursor_block');
10begin
11if (event_name = 'WHEN-NEW-FORM-INSTANCE') then
12if (form_name = 'FNDSCAUS') then
13app_item_property2.set_property(
14'user.fax', DISPLAYED, PROPERTY_OFF);
15-- hide the Fax field
16app_item_property2.set_property(
17'user.email_address',
18CASE_RESTRICTION, UPPERCASE);
19-- force E-Mail field to uppercase
20app_item_property2.set_property(
21'user.description',
22REQUIRED, PROPERTY_ON);
23-- make Description field required
24app_item_property2.set_property(
25'user.employee_name',
26BACKGROUND_COLOR, 'r255g0b255');
27-- make Person field magenta
28app_item_property2.set_property(
29'user.supplier_name',
30PROMPT_TEXT, 'Vendor Name');
31-- change prompt of Supplier field
32end if;
33end if;
对于随后的所有编码的例子，假设下面是在该事件过程的顶部声明：
procedure event (event_name varchar2) is2
form_name varchar2(30) :=3
name_in(‘system.current_form’);4
block_name varchar2(30) :=5
name_in(‘system.cursor_block’);6
begin7
8
end;
1.强制字段大写：
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’) then5
app_item_property2.set_property(6
‘VENDOR.NAME’,7
CASE_RESTRICTION, UPPERCASE);8
end if;9
end if;10
end;
2.更改字段提示：
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’) then5
app_item_property2.set_property(6
'vendor.name', PROMPT_TEXT,7
'Supplier Name');8
end if;9
end if;10
end;
3.更改按钮标签：
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’) then5
app_item_property2.set_property(6
'vendors.details', LABEL,7
'More Details');8
end if;9
end if;10
end;
4.更改字段背景颜色：
1
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’and5
block_name = ‘VENDOR’) then6
app_item_property2.set_property(7
'vendor.note', BACKGROUND_COLOR,8
‘r255g255b0’); -- bright yellow9
end if;10
end if;11
end;
5.隐藏字段：
1
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’) then5
app_item_property2.set_property(6
'vendor.note', DISPLAYED,7
PROPERTY_OFF); -- hide Notes field8
end if;9
end if;10
end;
6.设置不可更新和插入：
1
begin2
if (event_name = ‘WHEN-NEW-BLOCK-INSTANCE’)3
then4
if (form_name = ‘APXVENDR’ and5
block_name = ‘VENDOR’) then6
set_block_property(block_name,7
insert_allowed, property_false);8
set_block_property(block_name,9
update_allowed, property_false);10
end if;11
end if;12
end;
7.添加菜单：
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’) then3
if (form_name = ‘DEMXXEOR’) then4
app_special2.instantiate(‘SPECIAL15’,5
‘Print Order &Again’, ‘’, TRUE, ‘LINE’);6
end if;7
end if;8
end;As with the APP_SPECIAL routines, APP_SPECIAL2 routines support up to
45 entries spread among the Tools, Reports, and Actions menus, including
check boxes on the Tools menu. See your Oracle Applications Developer’s
Guide for more information.
8.切换工具菜单项：
1
begin2
if (event_name = ‘WHEN-NEW-BLOCK-INSTANCE’) then3
if (form_name = ‘DEMXXEOR’ and4
block_name = ‘ORDERS’) then5
app_special2.enable(‘SPECIAL15’,6
PROPERTY_ON);7
elsif (form_name = ‘DEMXXEOR’ and8
block_name = ‘LINES’) then9
app_special2.enable(‘SPECIAL15’,10
PROPERTY_OFF);11
end if;12
end if;13
end;
9.为菜单添加逻辑：
begin2
if (event_name = ‘SPECIAL15’) then3
if (form_name = ‘DEMXXEOR’ and4
block_name = ‘ORDERS’) then5
/* Add your Print Order logic here */6
raise FORM_TRIGGER_FAILURE;7
end if;8
end if;9
end;
10.要先测试函数or功能已定义：
1
begin2
if (event_name = ‘WHEN-NEW-FORM-INSTANCE’) then3
if (form_name = ‘DEMXXEOR’) then4
if (FND_FUNCTION.TEST(5
'DEM_DEMXXEOR_AUTHORIZED')) then6
/* Add your logic here */7
end if;8
end if;9
end if;10
end;
11.如何在EVENT事件中调用外部SP：
1
if FND_PROFILE.VALUE('USERNAME')='CUST01' then2
custom01.event(event_name);3
4
elsif FND_PROFILE.VALUE('USERNAME')='CUST25' then5
custom25.event(event_name);6
Copyright © Oracle Corporation, 2000. All rights reserved.7
Coding Events8
Chapter 3 - Page 229
end if;10
end event;
实例1：
1
Add the following code to your EVENT procedure:2
procedure event(event_name varchar2) is3
Copyright © Oracle Corporation, 2000. All rights reserved.4
Coding Events5
Chapter 3 - Page 316
form_name varchar2(30) :=7
name_in('system.current_form');8
block_name varchar2(30) :=9
name_in('system.cursor_block');10
begin11
if (event_name = 'WHEN-NEW-FORM-INSTANCE') then12
if (form_name = 'FNDSCAUS') then13
app_item_property2.set_property(14
'user.fax', DISPLAYED, PROPERTY_OFF);15
-- hide the Fax field16
app_item_property2.set_property(17
'user.email_address',18
CASE_RESTRICTION, UPPERCASE);19
-- force E-Mail field to uppercase20
app_item_property2.set_property(21
'user.description',22
REQUIRED, PROPERTY_ON);23
-- make Description field required24
app_item_property2.set_property(25
'user.employee_name',26
BACKGROUND_COLOR, 'r255g0b255');27
-- make Person field magenta28
app_item_property2.set_property(29
'user.supplier_name',30
PROMPT_TEXT, 'Vendor Name');31
-- change prompt of Supplier field32
end if;33
end if;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/25103190/viewspace-733985/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
