TEC1303.Form个性化技术总结 - 第四部分 Custom.pll个性化开发实例

 

         第四部分
Custom.pll个性化开发实例

 

1)   Custom.pll常用代码示例

Item属性修改

                                                     i.         获取当前Form和Block的名称
PROCEDUREevent(event_nameVARCHAR2)IS
form_nameVARCHAR2(30)
:= name_in('system.current_form');
block_nameVARCHAR2(30)
:= name_in('system.cursor_block');
BEGIN
NULL;
END;
                                                    ii.         强制字段大写
app_item_property2.set_property('vendor.name', case_restriction,uppercase);
                                                   iii.         更改字段提示
app_item_property2.set_property('vendor.name', PROMPT_TEXT,'Supplier
Name');

                                                   iv.         更改按钮标签
app_item_property2.set_property('vendors.details', LABEL,'More
Details');

                                                    v.         更改字段背景颜色
app_item_property2.set_property('vendor.note',BACKGROUND_COLOR, 'r255g255b0');--
bright yellow

                                                   vi.         隐藏字段
app_item_property2.set_property('vendor.note', DISPLAYED,PROPERTY_OFF);--
hide Notes field

                                                  vii.         设置不可更新和输入
set_block_property(block_name,insert_allowed, property_false);
--不可插入
set_block_property(block_name,update_allowed, property_false);
--不可更新
                                                 viii.         添加菜单
app_special2.instantiate('SPECIAL15','Print
Order &Again', '',TRUE,'LINE');

                                                   ix.         菜单项是否可用
app_special2.enable('SPECIAL15',PROPERTY_ON);--菜单项可用app_special2.enable('SPECIAL15',PROPERTY_OFF);--菜单项不可用

小案例

为菜单添加逻辑
BEGIN
IF(event_name
='SPECIAL15')THEN
IF(form_name
='DEMXXEOR'ANDblock_name
='ORDERS')THEN
/* Add your Print Order
logic here */
RAISEform_trigger_failure;
END IF;
END IF;
END;
复选框菜单
BEGIN
IF(event_name
='WHEN-NEW-FORM-INSTANCE')THEN
--普通菜单
app_special2.instantiate('SPECIAL30', '供应商历史采购cust',NULL,TRUE);
app_special2.enable('SPECIAL30',
property_on);
--带复选框菜单
app_special2.instantiate('SPECIAL4_CHECKBOX',   'TEST_CHECKBOX','',TRUE,'LINE');
--设置复选框勾选
app_special2.set_checkbox('SPECIAL4_CHECKBOX','TRUE');
--获取复选框状态
IFapp_special.get_checkbox('SPECIAL4_CHECKBOX')='TRUE'THEN
fnd_message.debug('Special
4 is True!');
ELSE
fnd_message.debug('Special
4 is False!');
END IF;
END IF;
END;
测试函数或功能是否定义
BEGIN
IF(event_name
='WHEN-NEW-FORM-INSTANCE')THEN
IF(form_name
='DEMXXEOR')THEN
IF(fnd_function.test('DEM_DEMXXEOR_AUTHORIZED'))THEN
/* Add your logic here */
END IF;
END IF;
END IF;
END;
在Event事件中调用外部库的方法
BEGIN
IFfnd_profile.value('USERNAME')
= 'CUST01'THEN
 custom01.event(event_name);
ELSIFfnd_profile.value('USERNAME')
= 'CUST2'THEN
 custom2.event(event_name);
END IF;
END;
给字段赋值
PROCEDUREevent(event_nameVARCHAR2)IS
l_block_nameVARCHAR2(35)
:= name_in('SYSTEM.CURSOR_BLOCK');
--采购单位
l_ordered_uomVARCHAR2(30)
:= name_in('RCV_TRANSACTION.ORDERED_UOM_TL');
--接收数量
l_quantityVARCHAR2(50)
:= name_in('RCV_TRANSACTION.TRANSACTION_QUANTITY');
BEGIN
IFevent
='WHEN-VALIDATE-RECORD'THEN
IFl_block_name
='RCV_TRANSACTION'THEN
copy(l_ordered_uom,'RCV_TRANSACTION.ATTRIBUTE1');
copy(l_quantity,'RCV_TRANSACTION.ATTRIBUTE2');--清空数量
copy(NULL,'RCV_TRANSACTION.ATTRIBUTE3');
END IF;
END IF;
ENDevent;
属性综合应用
PROCEDUREevent(event_nameVARCHAR)IS
form_nameVARCHAR(0)
:= name_in('system.current_form');
block_nameVARCHAR(0)
:= name_in('system.cursor_block');
BEGIN
IF(event_name
='WHEN-NEW-FORM-INSTANCE')THEN
IF(form_name
='FNDSCAUS')THEN
-- hide the Fax field
app_item_property.set_property('user.fax', displayed,
property_off);
-- force E-Mail field to
uppercase
app_item_property.set_property('user.email_address', case_restriction,uppercase);
-- make Description field
required
app_item_property.set_property('user.description', required,
property_on);
-- make Person field magenta
  app_item_property.set_property('user.employee_name', background_color,'rg0b');
-- change prompt of Supplier
field
app_item_property.set_property('user.supplier_name', prompt_text,'Vendor
Name');
END IF;
END IF;
ENDevent;
 

2)   调用并发请求并弹出请求Form界面

案例需求：采购接收界面直接打印采购入库单,并需要直接调出请求查看界面，查看当前请求。

在Custom.pll中编写代码

--注意：代码中用到了app_special2，所以需要加载APPCORE2.pll库

PROCEDURE event(event_nameVARCHAR2)IS
form_name  VARCHAR2(30):= name_in('system.current_form');
block_name VARCHAR2(30):= name_in('system.cursor_block');
BEGIN
/* start个性化调用请求打印入库单*/
IF event_name='WHEN-NEW-FORM-INSTANCE'THEN
IF form_name='RCVTXERT'THEN
app_special2.instantiate('SPECIAL45','打印入库单',NULL,TRUE);
app_special2.enable('SPECIAL45', property_on);
ENDIF;
ENDIF;
IF event_name='SPECIAL45'THEN
IF(form_name='RCVTXERT'AND block_name='RCV_TRANSACTION')THEN
DECLARE
ln_person_id  NUMBER;
lb_boolean    BOOLEANDEFAULTFALSE;
l_org_id      NUMBER;
ln_request_id NUMBER;
BEGIN
--根据库存组织id反求OU
l_org_id := name_in('PARAMETER.ORG_ID');
BEGIN
SELECT ood.operating_unit
INTO l_org_id
FROM org_organization_definitions ood
WHERE ood.organization_id= l_org_id;
EXCEPTION
WHENOTHERSTHEN
l_org_id :=NULL;
END;
lb_boolean := fnd_request.add_layout(template_appl_name=>'HDSP',
template_code      =>'HDSP0025',
template_language  =>'zh',
template_territory =>'CN',
output_format      =>'PDF');
IF lb_booleanTHEN
--给并发请求的业务实体赋值
fnd_request.set_org_id(l_org_id);
--调用报表
ln_request_id := fnd_request.submit_request('HDSP',
'HDSP0025',
NULL,
to_char(SYSDATE,'YYYY/MM/DD HH24:MI:SS'),
FALSE,
'VENDOR',
name_in('PARAMETER.ORG_ID'),
'',
name_in('OVERFLOW_AREA.RECEIPT_NUM'),
name_in('OVERFLOW_AREA.RECEIPT_NUM'),
'',
'',
'',
'',
name_in('RCV_TRANSACTION.TRANSACTION_DATE_NB'),
name_in('RCV_TRANSACTION.TRANSACTION_DATE_NB'),
fnd_global.user_id,
7);
COMMIT;
--弹出请求窗口
fnd_function.execute(function_name=>'FND_FNDRSRUN',
open_flag     =>'Y',
session_flag  =>'Y',
other_params  =>'CONCURRENT_PROGRAM_NAME="HDSP0025"
PROGRAM_APPL_SHORT_NAME="HDSP"
DODT_REQ_ID="'|| to_char(ln_request_id)||'"');
ENDIF;
END;
ENDIF;
ENDIF;
/* end个性化调用请求打印入库单*/
END event;

编译Custom,pll

把custom.pll上传到au目录下面的resource路径中；
工作目录切换到$AU_TOP/resource下编译：

frmcmp_batch Module=$AU_TOP/resource/CUSTOM.pll Userid=apps/apps Module_Type=LIBRARY output_file=$AU_TOP/resource/CUSTOM.plx