ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Custom Libraty:Code Samples

Custom Libraty:Code Samples

原创 Linux操作系统 作者:blueshine07 时间:2012-06-28 08:56:37 0 删除 编辑
转自http://www.cnblogs.com/benio/archive/2009/11/18/1605556.html

对于随后的所有编码的例子,假设下面是在该事件过程的顶部声明:

 

复制代码
1procedure event (event_name varchar2is
2form_name varchar2(30) :=
3name_in(‘system.current_form’);
4block_name varchar2(30) :=
5name_in(‘system.cursor_block’);
6begin
7
8end;
复制代码

 

1.强制字段大写:

复制代码
 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;
复制代码

 

2.更改字段提示:

复制代码
 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;
复制代码

 

3.更改按钮标签:

复制代码
 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;
复制代码

 

4.更改字段背景颜色:


 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;

 

5.隐藏字段:


 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;

 

6.设置不可更新和插入:


 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;

 

7.添加菜单:

复制代码
1begin
2if (event_name = ‘WHEN-NEW-FORM-INSTANCE’) then
3if (form_name = ‘DEMXXEOR’) then
4app_special2.instantiate(‘SPECIAL15’,
5Print Order &Again’, ‘’, TRUE, ‘LINE’);
6end if;
7end if;
8end;
复制代码

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.切换工具菜单项:


 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;

 

9.为菜单添加逻辑:

复制代码
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;
复制代码

 

10.要先测试函数or功能已定义:


 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;

 

11.如何在EVENT事件中调用外部SP:


 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, 2000All rights reserved.
 7Coding Events
 8Chapter 3 - Page 22
 9end if;
10end event;

 

实例1:


 1Add the following code to your EVENT procedure:
 2procedure event(event_name varchar2is
 3Copyright © Oracle Corporation, 2000All 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;

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25103190/viewspace-733985/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2011-08-26

  • 博文量
    55
  • 访问量
    149536