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;