- 1. PROFILE设置:BNE:允许无安全性规则 是
- 2. 职责与菜单定义:
HR ADI 植入的生成器表单功能 需要加入。
WEB ADI
应用产品:WEB 应用产品桌面集成器
菜单:桌面集成菜单
菜单定义:
管理文档连接 功能:桌面集成 – 管理布局
设置选项 功能:桌面集成-设置选项
子菜单
HR ADI 植入的生成器
FA_MAIN
FA_WEBADI_MENU
FA_WEB_INQUIRY
- 3. WEBadi 注册
- 4. HR:集成器设置
注册集成器:使用WEB ADI职责中的CREATE DOCUMENT,选择“HR 集成器设置”...最后在打开的EXCEl中参数设置如下:
元数据类型 | UPDATE |
应用简称 | XYZ(例如:XYZ客户化应用,即20003) |
集成器用户名 | WEB_ADI_DEPLOY |
视图名称 | WEB_ADI_DEPLOY_V |
表单名 | GENERAL |
API程序包名 | WEB_ADI_DEPLOY_PKG |
API过程名 | web_adi_deploy_p |
界面用户名 | WEB_ADI_DEPLOY_INTF |
界面参数列表名 | WEB_ADI_DEPLOY_PARALIST |
API类型 | PROCEDURE |
API返回类型 |
|
4)在系统中挂表单功能,并将该功能挂在职责“Oracle Web ADI“对应的菜单下、在职责“Oracle Web ADI“下,用‘HR 维护集成器表单功能关联’进行集成器与表单功能的关联,用‘HR 创建集成器责任限制’分配权限(详细步骤略)
5)设置独立查询:使用WEB ADI职责中的CREATE DOCUMENT,选择“HR 维护独立查询”...参数设置如下:
应用简称 | XYZ |
集成器用户名 | WEB_ADI_DEPLOY |
SQL WHERE子句 | WHERE USER_NAME LIKE $PARAM$.XYZ:UserNameLike |
第1个参数名 | XYZ:UserNameLike |
第1个参数类型 | Varchar2 |
第1个参数提示 | 集成器用户名 |
6)设置Layout,显示全部列(略),任意挑选需要显示和更改的字段。如果VIEW有这个字段而Procedure的参数没有,则仅作为显示内容,不允许修改。
7)设置mapping,特别是VIEW的字段名和Procedure的参数名不一致的时候,必须手工制定。系统自动把Procedure的全部参数(裁剪前2位字符)与VIEW的字段名向匹配,如果有不一致或者需要特殊映射的地方,需要手工指定。
在本例子中由于VIEW字段名和PROCEDURE参数名完全一致,所以不用更改默认设置。
- 5. 功能挂在菜单上无法使用
Error
The MEW Routing Import function is not available under the MEW Web ADI MFG USER responsibility.
注意:创建功能的长度,避免以空格分隔
增加子菜单:HR ADI Seeded Integrator Form Functions
- 6. 后台更新
--修改ADI抬头显示
SELECT *
FROM BNE.BNE_INTERFACE_COLS_TL C
WHERE C.INTERFACE_CODE =
(SELECT B.INTERFACE_CODE
FROM BNE.BNE_INTERFACES_B B
WHERE B.INTEGRATOR_CODE =
(SELECT T.INTEGRATOR_CODE,t.*
FROM BNE.BNE_INTEGRATORS_TL T
WHERE T.USER_NAME LIKE '%MEW%BOM%'
-- and t.language='ZHS'
))
FOR UPDATE;
--查找当前天定义的ADI
SELECT * FROM BNE.BNE_INTEGRATORS_TL WHERE CREATION_DATE >= TRUNC(SYSDATE);
--修改集成器显示记录条数
SELECT B.LAYOUT_CODE
,B.BLOCKSIZE
,B.PROMPT_COLSPAN
,B.HINT_COLSPAN
,B.ROW_COLSPAN
FROM BNE_LAYOUT_BLOCKS_B B
WHERE B.LAYOUT_CODE LIKE 'MEW%BOM%'
FOR UPDATE;
--后台增加中英文WEB ADI
/mg01/app1154/as4lappl/bne/11.5.0/sql/BNENLINS
BNENLINS.SQL
--生成EXCEL行数控制
SELECT B.LAYOUT_CODE
,B.BLOCKSIZE
,B.PROMPT_COLSPAN
,B.HINT_COLSPAN
,B.ROW_COLSPAN
FROM BNE_LAYOUT_BLOCKS_B B
WHERE B.LAYOUT_CODE LIKE '%MEW%BOM%'
FOR UPDATE;
7. 中英文同步
REM +=======================================================================+
REM | Copyright (c) 1998 Oracle Corporation Belmont, California, USA |
REM | All rights reserved. |
REM | $Header: BNENLINS.sql 115.17 2004/06/04 02:03:24 dagroves noship $
REM +=======================================================================+
REM FILENAME
REM BNENLINS.sql
REM
REM PURPOSE
REM Latest patch update language add file.
REM See also ../admin/sql/BNENLADD.sql, the original data model version of this file.
REM
REM NOTES
REM Example:
REM sqlplus <appsuser/pwd> @BNENLINS
REM HISTORY
REM 30-08-02 D Vayro Created
REM 04-06-04 DAGROVES BNE.D entities added.
REM==========================================================================
REM dbdrv: none
SET VERIFY OFF;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
PROMPT Adding new languages rows for TL Tables
variable mesg varchar2(1000);
variable retcode number;
declare
chr_newline varchar2(1) := fnd_global.newline;
-- Loop through all installed languages starting with Base
cursor langcurs is
select NLS_LANGUAGE
from FND_LANGUAGES
where INSTALLED_FLAG in ('I', 'B')
order by INSTALLED_FLAG;
curs integer;
sqlbuf varchar2(2000);
rows integer;
curlang varchar2(30);
curpkg varchar2(30);
begin
:retcode := 0;
for lang in langcurs loop
curlang := lang.nls_language;
-- Set new language to default from
curs := dbms_sql.open_cursor;
sqlbuf := 'ALTER SESSION SET NLS_LANGUAGE = '''||lang.nls_language||'''';
dbms_sql.parse(curs, sqlbuf, dbms_sql.v7);
rows := dbms_sql.execute(curs);
dbms_sql.close_cursor(curs);
-- Default all tables from current language
curpkg := 'BNE_CONTENT_COLS_PKG';
BNE_CONTENT_COLS_PKG.add_language;
commit;
curpkg := 'BNE_CONTENTS_PKG';
BNE_CONTENTS_PKG.add_language;
commit;
curpkg := 'BNE_COMPONENTS_PKG';
BNE_COMPONENTS_PKG.add_language;
commit;
curpkg := 'BNE_INTEGRATORS_PKG';
BNE_INTEGRATORS_PKG.add_language;
commit;
curpkg := 'BNE_INTERFACE_COLS_PKG';
BNE_INTERFACE_COLS_PKG.add_language;
commit;
curpkg := 'BNE_INTERFACES_PKG';
BNE_INTERFACES_PKG.add_language;
commit;
curpkg := 'BNE_LAYOUT_BLOCKS_PKG';
BNE_LAYOUT_BLOCKS_PKG.add_language;
commit;
curpkg := 'BNE_LAYOUTS_PKG';
BNE_LAYOUTS_PKG.add_language;
commit;
curpkg := 'BNE_MAPPINGS_PKG';
BNE_MAPPINGS_PKG.add_language;
commit;
curpkg := 'BNE_PARAM_DEFNS_PKG';
BNE_PARAM_DEFNS_PKG.add_language;
commit;
curpkg := 'BNE_PARAM_LISTS_PKG';
BNE_PARAM_LISTS_PKG.add_language;
commit;
curpkg := 'BNE_STYLESHEETS_PKG';
BNE_STYLESHEETS_PKG.add_language;
commit;
curpkg := 'BNE_VIEWERS_PKG';
BNE_VIEWERS_PKG.add_language;
commit;
-- New entities for BNE.D
curpkg := 'BNE_DUPLICATE_PROFILES_PKG';
BNE_DUPLICATE_PROFILES_PKG.add_language;
commit;
curpkg := 'BNE_PARAM_GROUPS_PKG';
BNE_PARAM_GROUPS_PKG.add_language;
commit;
curpkg := 'BNE_QUERIES_PKG';
BNE_QUERIES_PKG.add_language;
commit;
curpkg := 'BNE_PERF_STATISTICS_PKG';
BNE_PERF_STATISTICS_PKG.add_language;
commit;
curpkg := 'BNE_PERF_SETS_PKG';
BNE_PERF_SETS_PKG.add_language;
commit;
end loop;
:mesg := sqlerrm;
exception
when others then
:mesg := 'LANGUAGE='||curlang||chr_newline||
' PACKAGE='||curpkg||chr_newline||
'SQLERRM='||sqlerrm;
:retcode := 1;
end;
/
print mesg
select to_date('ERROR')
from SYS.DUAL
where :retcode = 1;
commit;
exit;