PLSQL WEBSERVICES 发布

?

?

一. 在Oracle EBS二次开发中，PL/SQL程序是开发人员使用频率最高的开发语言，同时也是大家最容易掌握的工具之一了，而我们也很希望将自己编写的PL/SQL程序发布为Web服务来提供给客户端程序使用，同时也可以实现和外围系统的集成，有了irep_parser这个工具，我们就可以将自己编写的PL/SQL程序发布到Oracle Integration Repositoy中。OracleIntegration Repositoy中集成接口的来源都是Oracle，客户化的程序发布上去的为Custom：

下面描述是发布的详细步骤描述:

?

二. 在Web服务调用的时候，需要有一个应用数据库用户来连接EBS数据库，因此需要创建一个具备一定权限的用户，而为了简化设置的麻烦，Oracle提供了一个内建的用户?ASADMIN?,只要启用它并重置密码就可以了。另外一种方法是新建一个用户后进行授权，这种方法需要的步骤稍微多一点，再次就不做描述。如果ISG的前提设置没有完成，在后面为集成接口Generate WSDL 的时候就会报出如下的错误：

1.???????激活ASADMIN账户.

ASADMIN在系统中默认是失效的,以SYSADMIN账户登录,在用户管理职责下面查找出ASADMIN账户并重置ASADMIN的密码为welcome.如下图

2. 确认ASADMIN用户的角色

在上图中点更新确保已经分配Apps Schema ConnectRole(Apps 模式连接职责)职责,如果没有请点分配职责添加.

也可以通过SQL查看

select role_namefrom wf_user_roles where user_name='ASADMIN' ;

select role_namefrom wf_user_role_assignments where user_name='ASADMIN' ;

查询的结果应该是： ROLE_NAME

-----------------------------------

ASADMINUMX|APPS_SCHEMA_CONNECT

2.??重置中间服务器中ASADMIN的密码

由于asadmin的密码已经被重置，因此中间服务器的文件配置$INST_TOP/ora/10.1.3/j2ee/oafm/config/system-jazn-data.xml中对应的密码也需要修改，由于配置中的密码已被加密，我们无法提供加密后的密码，使用过OC4J的同事应该都知道，Oracle提供了一种重置这里密码的方便方法，就是采用明文密码，在密码前添加一个警号(!)，然后重启应用服务器后自动会重新加密。打开system-jazn-data.xml文件后，找到ASADMIN用户如下:

<user>
<name>ASADMIN</name>
<display-name>Default Apps SOA User</display-name>
<description>Used by SOAProvider for DB connection</description>
<credentials>{903}qMgAeO1AjQjwOJ6rIB41Sx049uG0xzhs</credentials>
</user>

上传到FTP服务器,TXT文件不要用二进制,要用ASII(text)模式上传,经测试二进制上传的文件会多很多空格,还有后面上传PLS文件的时候也一样,要不生成ILDE文件的时候会生成不了,错误代码没有截取了.

只要将credentials的值更改为自己的密码，如我的密码设置上面重置的密码welcome，就设置为<credentials>!welcome</credentials>。修改完成后重启.

?

如果系统不支持的话还要打很多补丁,我来这边系统补丁已经打好了.接下来

三.添加CUX客户化应用到Product Family

1.添加产品家族(AMWAYCUSTOMIZATION APPLICATION SUITE)

begin

?ad_pa_insert_package.insert_ad_pm_product_info(x_product_abbreviation=> 'cux_pf',

????????????????????????????????????????????????x_pseudo_product_flag => 'N',

????????????????????????????????????????????????x_product_family_flag => 'Y',

????????????????????????????????????????????????x_application_short_name => NULL,

????????????? ???????????????????????????????????x_product_name=> 'AMWAY CUSTOMIZATION APPLICATION SUITE',

????????????????????????????????????????????????x_product_family_abbreviation => NULL,

????????????????????????????????????????????????x_product_family_name => NULL,

????????????????????????????????????????????????x_aru_update_date => TO_CHAR(SYSDATE,'yyyy-mm-dd hh24:mm:ss' ),

????????????????????????????????????????????????x_currdate => to_char(SYSDATE,

????????????????????????????? ???????????????????x_last_updated_by => -1,

????????????????????????????????????????????????x_created_by => -1);

? COMMIT;

end;

2.注册(AMWAYCUSTOMIZATION APPLICATION(CUX))应用到产品家族中

BEGIN

?ad_pa_insert_package.insert_ad_pm_product_info(x_product_abbreviation??????? => 'cux',

????????????????????????????????????????????????x_pseudo_product_flag????????=> 'N',

????????????????????????????????????????????????x_product_family_flag????????=> 'N',

????????????????????????????????????????? ???????x_application_short_name????? => 'CUX',

????????????????????????????????????????????????x_product_name???????????????=> 'AMWAY CUSTOMIZATION APPLICATION',

??? ?????????????????????????????????????????????x_product_family_name???????? => NULL,

????????????????????????????????????????????????x_aru_update_date????????????=> to_char(SYSDATE,

?????????????????????????????????????????????????????????????????????????????????????????'yyyy-mm-ddhh24:mm:ss'),

????????????????????????????????????????????????x_currdate???????????????????=> to_char(SYSDATE,

?????????????????????????????????????????????????????????????????????????????????????????'yyyy-mm-dd hh24:mm:ss'),

????????????????????????????????????????????????x_last_updated_by????????????=> -1,

????????????????????????????????????????????????x_created_by?????????????????=> -1);

? COMMIT;

END;

?

3.关联(AMWAYCUSTOMIZATION APPLICATION)应用到产品家族(AMWAY CUSTOMIZATION APPLICATIONSUITE)下

BEGIN

?ad_pa_insert_package.insert_ad_pm_prod_family_map(x_product_abbreviation=> 'cux',

???????????????????????????????????????????????????x_product_family_abbreviation => 'cux_pf',

???????????????????????????????????????????????????x_aru_update_date =>to_char(SYSDATE,

????????????????????????????????????????????????????????????????????????????????'yyyy-mm-dd hh24:mm:ss' ),

???????????????????????????????????????????????????x_currdate => to_char(SYSDATE,

??????????????????????? ??????????????????????????????????????????????????'yyyy-mm-ddhh24:mm:ss' ),

???????????????????????????????????????????????????x_last_updated_by => -1,

???????????????????????????????????????????????????x_created_by => -1);

? COMMIT;

END;

?

四、按照集成接口标记规范编写PL/SQL程序

CREATE OR REPLACEPACKAGE cux_po_order_pkg AS

? /* $Header: $ zao.lin*/

? /*#

? * This Package Using Create the Po OrderInformation

? * @rep:scope public

? * @rep:product CUX

? * @rep:lifecycle active

? * @rep:displayname CUX Po Order

? * @rep:compatibility S

? * @rep:category BUSINESS_ENTITYCUX_PO_ORDERS2

? */

? TYPE cux_po_headers_rec IS RECORD(

??? order_company??? VARCHAR2(5),

??? po_number??????? VARCHAR2(8),

??? po_type????????? VARCHAR2(2),

??? order_date?????? NUMBER,

??? jde_blanch_plant VARCHAR2(12),

??? supplier_number? VARCHAR2(30),

??? ship_to????????? VARCHAR2(10),

??? reference1?????? VARCHAR2(25),

??? currency_code??? VARCHAR2(3),

??? exchange_rate??? NUMBER,

??? payment_term???? VARCHAR2(3),

??? attribute1?????? VARCHAR2(240),

??? attribute2?????? VARCHAR2(240),

??? attribute3?????? VARCHAR2(240),

??? attribute4?????? VARCHAR2(240),

??? attribute5?????? VARCHAR2(240),

??? attribute6?????? VARCHAR2(240),

??? attribute7?????? VARCHAR2(240),

??? attribute8?????? VARCHAR2(240),

??? attribute9?????? VARCHAR2(240),

??? attribute10????? VARCHAR2(240),

??? attribute11????? VARCHAR2(240),

??? attribute12????? VARCHAR2(240),

??? attribute13????? VARCHAR2(240),

??? attribute14????? VARCHAR2(240),

??? attribute15????? VARCHAR2(240));

? TYPE cux_po_lines_rec IS RECORD(

??? line_num??????????? NUMBER,

??? item_number???????? VARCHAR2(30),

??? description1??????? VARCHAR2(240),

??? description2??????? VARCHAR2(240),

??? uom???????????????? VARCHAR2(10),

??? order_quantity????? NUMBER,

??? received_quantity?? NUMBER,

??? unit_cost?????????? NUMBER,

??? request_date??????? NUMBER,

??? promise_date??????? NUMBER,

??? cancel_date???????? NUMBER,

??? jde_planner???????? VARCHAR2(10),

??? jde_buyer?????????? NUMBER,

??? reference1????????? VARCHAR2(25),

??? line_ship_to_number NUMBER,

??? location??????????? VARCHAR2(20),

??? last_status???????? VARCHAR2(3),

??? next_status???????? VARCHAR2(3),

??? attribute1????????? VARCHAR2(240),

??? attribute2????????? VARCHAR2(240),

??? attribute3????????? VARCHAR2(240),

??? attribute4????????? VARCHAR2(240),

??? attribute5????????? VARCHAR2(240),

??? attribute6????????? VARCHAR2(240),

??? attribute7????????? VARCHAR2(240),

??? attribute8????????? VARCHAR2(240),

??? attribute9??? ??????VARCHAR2(240),

??? attribute10???????? VARCHAR2(240),

??? attribute11???????? VARCHAR2(240),

??? attribute12???????? VARCHAR2(240),

??? attribute13???????? VARCHAR2(240),

??? attribute14???????? VARCHAR2(240),

??? attribute15???????? VARCHAR2(240));

? TYPE cux_po_headers_tbl IS TABLE OFcux_po_headers_rec;

? TYPE cux_po_lines_tbl IS TABLE OFcux_po_lines_rec;

? /*#

? * Create an PoOrder

? * @param x_return_status? return status

? * @param x_msg_data? message

? * @param p_po_header_tbl cux_po_headers_tbl,

? * @param p_po_line_tbl cux_po_lines_tbl

? * @rep:scope public

? * @rep:lifecycle active

? * @rep:displayname Create an CUX JDE Po Order

? */

? PROCEDURE create_order(x_return_status IN OUTNOCOPY VARCHAR2,

???????????????????????? x_msg_data????? IN OUT NOCOPY VARCHAR2,

???????????????????????? p_po_header_tbl INcux_po_headers_tbl,

???????????????????????? p_po_line_tbl?? IN cux_po_lines_tbl);

ENDcux_po_order_pkg;

?

程序包里面的注释一定要规范

关键几个标记描述：

@rep:product?CUX 代表集成接口注册到CUX应用中，必须是系统中存在的应用简称?
@rep:displayname? Cux Po Order集成接口的名称?
@param?存储过程和方法的参数，都需要标注出来供调用服务的客户端查看?
@rep:category BUSINESS_ENTITY?CUX_PO_ORDERS2 业务实体的类型，CUX_PO_ORDERS2必须在BUSINESS_ENTITY 值列表类型下定义存在，否则无法通过验证

?

注意:这里的输出参数(x_return_status,x_msg_data)一定要 IN OUT 参数,要不就不会显示出来.

五、验证集成接口标记并生成iLDT文件

$IAS_ORACLE_HOME/perl/bin/perl$FND_TOP/bin/irep_parser.pl -g -v -username=sysadmin cux:cux_jde_po_order_pkg.pls:12.0=cux_po_order_pkg.pls

将编写好的PLSQL声明定义保存为.pls文件(oracleseeker_emp_pkg.pls)，并将其上传到服务器应用(xhu)的patch/115/sql目录下，通过Telnet使用命令来验证和生成集成接口标记文件，成功验证后会有如下的日志生成，同时会生成iLDT文件oracleseeker_emp_pkg_pls.ildt，如果标记存在问题会打印出对应的错误信息，需要注意查看错误消息并进行修正。

六. 将iLDT文件上传到OracleIntegration Repositoy中

?FNDLOADapps/apps 0 Y UPLOAD $FND_TOP/patch/115/import/wfirep.lct cux_po_order_pkg_pls.ildt

成功上传之后通过Oracle Integration Repositoy可以查看如下的集成接口信息啦

下面就是授权这两个用户SYSADMIN,ASADMIN

然后身份验证:以用户变量

部署然后我们就可以查看WSDL

在链接中去掉 ?WSDL 直接回车 就可以访问刚刚发布的WEBSERVICES了

到这里还能确保你刚刚发布的WEBSERVICES没有问题了,还要测试

?

七.如果在发布过后想要更改参数的话,可以强制更新

?

$IAS_ORACLE_HOME/perl/bin/perl$FND_TOP/bin/irep_parser.pl -g -v -username=sysadmincux:patch/115/sql:cux_jde_po_order_pkg.pls:12.0=cux_jde_po_order_pkg.pls

版本号要加1 就是

…13.0=cux_jde_po_order_pkg.pls

FNDLOADapps/apps 0 Y UPLOAD $FND_TOP/patch/115/import/wfirep.lctcux_po_order_pkg_pls.ildt - WARNING=YES UPLOAD_MODE=REPLACE CUSTOM_MODE=FORCE

注意:在更新的时候一定要换一个业务实体的类型，刚刚的CUX_PO_ORDERS2必须在BUSINESS_ENTITY 值列表类型下重新定义一个新的.

以上是对WEBSERVICES一点总结,不好还请包含.