ToB企服应用市场:ToB评测及商务社交产业平台

标题: Oracle EBS开发培训--WebADI开发 [打印本页]

作者: 用户国营 时间: 2024-7-21 01:36
标题: Oracle EBS开发培训--WebADI开发
一、准备工作

Excel修改如下设置：
菜单路径：工具－》宏－》安全性

二、开发步骤

WebADI方式开发主要步骤如下：
1）创建数据库对象
       编写建表脚本：
create sequence cux.cux_webadi_test_s
minvalue 1
maxvalue 999999999999999999999999999
start with 1
increment by 1
cache 20;
CREATE or replace SYNONYM apps.cux_webadi_test_s FOR cux.cux_webadi_test_s;
drop table cux.cux_webadi_test CASCADE CONSTRAINTS;
create table cux.cux_webadi_test
(
TEST_ID        NUMBER(15) not null,
TEST_CODE        varchar2(30),
TEST_NAME        varchar2(50),
org_code            varchar2(30),
ATTRIBUTE1         VARCHAR2(150),
ATTRIBUTE2         VARCHAR2(150),
ATTRIBUTE3         VARCHAR2(150),
ATTRIBUTE4         VARCHAR2(150),
ATTRIBUTE5         VARCHAR2(150),
CONSTRAINT pk_cux_webadi_test PRIMARY KEY (TEST_ID)
);
CREATE or replace SYNONYM apps.cux_webadi_test   FOR cux.cux_webadi_test;

编写视图：
create or replace view cux_webadi_test_v as
select cwl.TEST_ID,
        cwl.TEST_CODE,
        cwl.TEST_NAME,
        cwl.ORG_CODE,
        cwl.ATTRIBUTE1,
        cwl.ATTRIBUTE2,
        cwl.ATTRIBUTE3,
        cwl.ATTRIBUTE4,
        cwl.ATTRIBUTE5,
        cfo.org_name
from cux_webadi_test cwl,cux_fnd_org_v cfo
where cwl.org_code=cfo.org_code;
   编写包：cux_webadi_test_pkg.pck
create or replace package cux_webadi_test_pkg AS

----WebADI导入
PROCEDURE upload_data(
P_TEST_ID IN NUMBER,
P_TEST_CODE IN VARCHAR2,
P_TEST_NAME IN VARCHAR2,
P_ORG_CODE IN VARCHAR2,
P_ATTRIBUTE1 IN VARCHAR2,
P_ATTRIBUTE2 IN VARCHAR2,
P_ATTRIBUTE3 IN VARCHAR2,
P_ATTRIBUTE4 IN VARCHAR2,
P_ATTRIBUTE5 IN VARCHAR2
);
end cux_webadi_test_pkg;
/
create or replace package body cux_webadi_test_pkg AS

PROCEDURE upload_data(
P_TEST_ID IN NUMBER,
P_TEST_CODE IN VARCHAR2,
P_TEST_NAME IN VARCHAR2,
P_ORG_CODE IN VARCHAR2,
P_ATTRIBUTE1 IN VARCHAR2,
P_ATTRIBUTE2 IN VARCHAR2,
P_ATTRIBUTE3 IN VARCHAR2,
P_ATTRIBUTE4 IN VARCHAR2,
P_ATTRIBUTE5 IN VARCHAR2
) as
v_error_msg varchar2 (2500):='';
n_seq number:=null;
n_check number:=null;
n_err_count number:=0;
begin
if P_ORG_CODE is null then
v_error_msg:=v_error_msg||'机构代码不能为空；';
n_err_count:=n_err_count+1;
end if;

select count(*) into n_check
from cux_fnd_org_v sfo
where sfo.org_code=P_ORG_CODE;
if n_check=0 then
v_error_msg:=v_error_msg||'机构代码错误；';
n_err_count:=n_err_count+1;
end if;

if n_err_count>0 then
raise_application_error (-20001, v_error_msg);
return;
end if;

if trim(P_TEST_ID) is null then
INSERT INTO cux_webadi_test
(
TEST_ID,
TEST_CODE,
TEST_NAME,
ORG_CODE,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5)
SELECT cux_webadi_test_s.nextval,
P_TEST_CODE,
P_TEST_NAME,
P_ORG_CODE,
P_ATTRIBUTE1,
P_ATTRIBUTE2,
P_ATTRIBUTE3,
P_ATTRIBUTE4,
P_ATTRIBUTE5
FROM dual;
else
update cux_webadi_test swl
set
TEST_CODE=P_TEST_CODE,
TEST_NAME=P_TEST_NAME,
ORG_CODE=P_ORG_CODE,
ATTRIBUTE1=P_ATTRIBUTE1,
ATTRIBUTE2=P_ATTRIBUTE2,
ATTRIBUTE3=P_ATTRIBUTE3,
ATTRIBUTE4=P_ATTRIBUTE4,
ATTRIBUTE5=P_ATTRIBUTE5
where TEST_ID=P_TEST_ID;
end if;
commit;
end upload_data;
end cux_webadi_test_pkg;

2）创建集成器
菜单路径：桌面集成－》创建文档
选择“HR集成器设置”，再依次选择如下项：

项目	值
检察程序	Excel 2003
内容	无

点击“创建文档”。
增长如下记录：

项目	值	阐明
元数据范例应用产品简称集成器用户名视图名称表单名 API 程序包名称 API 过程名界面用户名界面参数列表名称 API 范例 API 返回范例	UPDATE CUX CUX_WEBADI_TEST cux_webadi_test_v GENERAL cux_webadi_test_pkg upload_data CUX INTERFACE HR_UPLOAD PROCEDURE

集成器导入模板

2）界说映射
菜单路径：桌面集成－》界说映射
3）界说布局
菜单路径：桌面集成－》界说布局
布局名称：CUX_WEBADI_TEST_LAYOUT

4）设置标题
在PL*SQL中实行以下语句，修改标题栏：
select
interface_col_name,
--左标题
inc.prompt_left,
--头标题
inc.prompt_above
from bne_interface_cols_vl inc
WHERE
EXISTS (SELECT *
FROM bne_integrators_vl bni, bne_interfaces_vl inf
WHERE bni.application_id = inf.integrator_app_id
AND bni.integrator_code = inf.integrator_code
AND inf.application_id = inc.application_id
AND inf.interface_code = inc.interface_code
AND bni.user_name = 'CUX_WEBADI_TEST')
for update

5）界说功能
为了方便进入该功能，需要界说个功能项，并加入菜单项。
菜单路径：体系管理员－》应用产品－》功能
新增功能项值如下：

项目	值
功能用户功能名范例 HTML调用	CUX_WEBADI_TEST CUX_WEBADI_TEST SSWA servlet 函数 BneApplicationService

相干查询SQL语句：
select bif.* from bne_interfaces_b bif,bne_integrators_vl bit
where bit.USER_NAME in ('CUX_WEBADI_TEST')
and bif.integrator_app_id=bit.APPLICATION_ID
and bif.integrator_code=bit.INTEGRATOR_CODE;

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。

欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/)