TEC1701.WebADI开发技术总结 - 第二章 Step2 - 创建数据库对象（2/6）

最新推荐文章于 2024-09-05 14:03:19 发布

DeepSea_Allen

最新推荐文章于 2024-09-05 14:03:19 发布

阅读量832

点赞数

分类专栏： -EBS-TEC17.WebADI Oracle EBS开发技术系列文章标签： Oracle EBS WebADI开发 EBS二次开发技术

本文链接：https://blog.csdn.net/DeepSea_Allen/article/details/53892000

版权

Oracle EBS开发技术系列同时被 2 个专栏收录

24 篇文章 46 订阅

订阅专栏

-EBS-TEC17.WebADI

8 篇文章 3 订阅

订阅专栏

本文总结了Oracle EBS WebADI开发的第二步——创建数据库对象，包括创建表和视图、注册表和列以及创建程序包。在进行WebADI客户化开发时，需在CUX schema中生成Data object，并在APPS schema中创建SYNONYM。

摘要由CSDN通过智能技术生成

第二章 Step2 - 创建数据库对象

客户化开发WebADI，首先要建立好相应的数据库对象。然后再通过配置来创建需要使用的WebADI。

创建数据库对象时一定要注意Data object要生成在CUX schema中，code object创建在APPS schema中，CUX中的要在APPS中创建SYNONYM。

1. 创建表和视图

-- Create table
CREATE TABLE CUX.CUX_WEBADI_TEST01
( ADI_ID NUMBER,
  ADI_CODE VARCHAR2(30),
  ADI_DATE DATE,
  ADI_USER_ID NUMBER,
  ADI_USER_NAME VARCHAR2(30),
  ADI_USER_DESC VARCHAR2(30),
  ADI_ATTR01 VARCHAR2(240),
  ADI_ATTR02 VARCHAR2(240),
  ADI_ATTR03 VARCHAR2(240),
  CREATED_BY NUMBER,
  CREATION_DATE DATE,
  LAST_UPDATED_BY NUMBER,
  LAST_UPDATE_LOGIN NUMBER,
  LAST_UPDATE_DATE DATE);
 
-- Create sequence & synonym
CREATE SEQUENCE CUX.CUX_WEBADI_TEST01_S;
CREATE SYNONYM APPS.CUX_WEBADI_TEST01 FOR CUX.CUX_WEBADI_TEST01;
CREATE SYNONYM APPS.CUX_WEBADI_TEST01_S FOR CUX.CUX_WEBADI_TEST01_S;
 
-- Create view
CREATE OR REPLACE VIEW CUX_WEBADI_TEST01_V AS
SELECT T.ADI_ID,T.ADI_CODE,T.ADI_DATE,T.ADI_USER_ID,T.ADI_USER_NAME,T.ADI_USER_DESC,
T.ADI_ATTR01,T.ADI_ATTR02,ADI_ATTR03 FROM CUX.CUX_WEBADI_TEST01 T;

2. 注册表和列

-- Register table
BEGIN
  AD_DD.REGISTER_TABLE('CUX','CUX_WEBADI_TEST01','T');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_ID',1,'NUMBER',38,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_CODE',2,'VARCHAR2',30,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_DATE',3,'DATE',9,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_USER_ID',4,'NUMBER',38,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_USER_NAME',5,'VARCHAR2',30,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_USER_DESC',6,'VARCHAR2',30,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_ATTR01',7,'VARCHAR2',240,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_ATTR02',8,'VARCHAR2',240,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','ADI_ATTR03',9,'VARCHAR2',240,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','created_by',10,'NUMBER',38,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','creation_date',11,'DATE',9,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','last_updated_by',12,'NUMBER',38,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','last_update_login',13,'NUMBER',38,'Y','N');
  AD_DD.REGISTER_COLUMN('CUX','CUX_WEBADI_TEST01','last_update_date',14,'DATE',9,'Y','N');
  COMMIT;
END;

3. 创建程序包

-- Create package
CREATE OR REPLACE PACKAGE CUX_WBA_TEST01_PKG AS
  g_user_id NUMBER := fnd_profile.value('user_id');
  PROCEDURE import_rec(p_id   IN NUMBER,
                       p_code IN VARCHAR2,
                       p_date IN DATE DEFAULT SYSDATE,
                       p_user_id IN NUMBER,
                       p_user_name IN VARCHAR2,
                       p_user_desc IN VARCHAR2,
                       p_attr01 IN VARCHAR2,
                       p_attr02 IN VARCHAR2,
                       p_attr03 IN VARCHAR2
                       );
END CUX_WBA_TEST01_PKG;
/
CREATE OR REPLACE PACKAGE BODY CUX_WBA_TEST01_PKG AS
  PROCEDURE import_rec(p_id        IN NUMBER,
                       p_code      IN VARCHAR2,
                       p_date      IN DATE DEFAULT SYSDATE,
                       p_user_id   IN NUMBER,
                       p_user_name IN VARCHAR2,
                       p_user_desc IN VARCHAR2,
                       p_attr01    IN VARCHAR2,
                       p_attr02    IN VARCHAR2,
                       p_attr03    IN VARCHAR2) AS
  BEGIN
    --do any thing... ...
    --通过p_id是否为0来区分insert、update，delete，方法很多。
    IF nvl(p_id, 0) = 0 THEN
      INSERT INTO cux_webadi_test01
        SELECT cux_webadi_test01_s.nextval,
               p_code,
               p_date,
               p_user_id,
               p_user_name,
               p_user_desc,
               p_attr01,
               p_attr02,
               p_attr03,
               g_user_id,
               SYSDATE,
               g_user_id,
               -1,
               SYSDATE
          FROM dual;
    ELSE
      UPDATE cux_webadi_test01 t
         SET t.adi_code         = p_code,
             t.adi_date         = p_date,
             t.last_updated_by  = g_user_id,
             t.last_update_date = SYSDATE
       WHERE t.adi_id = p_id;
    END IF;
    COMMIT;
  EXCEPTION
    WHEN OTHERS THEN
      raise_application_error(-20001, 'WEBADI导入程序报错!');
  END import_rec;
END CUX_WBA_TEST01_PKG;