详解EBS接口开发之采购接收&退货处理之关键API--（补充）
PROCEDURE process_rcv_online(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_group_id IN NUMBER) IS
l_api_name CONSTANT VARCHAR2(30) := 'process_rcv_online';
l_api_version CONSTANT NUMBER := 1.0;
l_return_code NUMBER := 0; --** E_SUCCESS constant number := 0; -- e_code is success
--** E_TIMEOUT constant number := 1; -- e_code is timeout
--** E_NOMGR constant number := 2; -- e_code is no manager
--** E_OTHER constant number := 3; -- e_code is other l_timeout NUMBER := fnd_profile.VALUE('INV_RPC_TIMEOUT'); -- 1分钟
l_outcome VARCHAR2(200);
l_message VARCHAR2(200);
l_str VARCHAR2(4000); r_val1 VARCHAR2(200) := NULL;
r_val2 VARCHAR2(200) := NULL;
r_val3 VARCHAR2(200) := NULL;
r_val4 VARCHAR2(200) := NULL;
r_val5 VARCHAR2(200) := NULL;
r_val6 VARCHAR2(200) := NULL;
r_val7 VARCHAR2(200) := NULL;
r_val8 VARCHAR2(200) := NULL;
r_val9 VARCHAR2(200) := NULL;
r_val10 VARCHAR2(200) := NULL;
r_val11 VARCHAR2(200) := NULL;
r_val12 VARCHAR2(200) := NULL;
r_val13 VARCHAR2(200) := NULL;
r_val14 VARCHAR2(200) := NULL;
r_val15 VARCHAR2(200) := NULL;
r_val16 VARCHAR2(200) := NULL;
r_val17 VARCHAR2(200) := NULL;
r_val18 VARCHAR2(200) := NULL;
r_val19 VARCHAR2(200) := NULL;
r_val20 VARCHAR2(200) := NULL;
l_rec_count NUMBER;
BEGIN
-- start activity to savepoint, check compatibility
-- and initialize message list, include debug message hint to enter api
x_return_status := cux_api.start_activity(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_api_type => g_api_type,
p_init_msg_list => p_init_msg_list,
l_api_version => l_api_version,
p_api_version => p_api_version);
-- check if activity started successfully
IF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
RAISE fnd_api.g_exc_unexpected_error;
ELSIF (x_return_status = fnd_api.g_ret_sts_error) THEN
RAISE fnd_api.g_exc_error;
END IF;
IF l_debug = 'Y' THEN
cux_debug.log('p_group_id' || p_group_id);
END IF;
SELECT COUNT(*)
INTO l_rec_count
FROM rcv_transactions_interface t
WHERE t.group_id = p_group_id;
IF l_debug = 'Y' THEN
cux_debug.log('l_rec_count :' || l_rec_count);
END IF;
-- API body
IF l_timeout IS NULL THEN
l_timeout := 300;
END IF; l_return_code := fnd_transaction.synchronous(timeout => l_timeout,
outcome => l_outcome,
message => l_message,
application => 'PO',
program => 'RCVTPO',
arg_1 => 'ONLINE',
arg_2 => p_group_id); IF l_debug = 'Y' THEN
cux_debug.log('l_return_code =' || l_return_code);
cux_debug.log('l_outcome =' || l_outcome);
cux_debug.log('l_message =' || l_message);
END IF;
IF (l_return_code = 0 AND (l_outcome NOT IN ('WARNING', 'ERROR'))) THEN
-- 成功
IF l_debug = 'Y' THEN
cux_debug.log('fnd_transaction.synchronous success');
END IF;
delete_rcv_interface(p_group_id);
ELSIF l_return_code = 1 THEN
IF check_group_id(p_group_id) THEN
fnd_message.set_name('FND', 'TM-TIMEOUT');
l_str := fnd_message.get; IF l_debug = 'Y' THEN
cux_debug.log('l_str =' || l_str);
END IF;
-- fnd_message.clear;
fnd_message.set_name(application => 'FND', NAME => 'CONC-Error running standalone');
fnd_message.set_token(token => 'PROGRAM',
VALUE => 'Receiving Transaction Manager - RCVOLTM');
fnd_message.set_token(token => 'REQUEST', VALUE => p_group_id);
fnd_message.set_token(token => 'REASON', VALUE => l_str);
fnd_msg_pub.add;
RAISE fnd_api.g_exc_error;
END IF;
ELSIF l_return_code = 2 THEN
IF check_group_id(p_group_id) THEN
fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
l_str := fnd_message.get;
fnd_message.clear; fnd_message.set_name(application => 'FND', NAME => 'CONC-Error running standalone');
fnd_message.set_token(token => 'PROGRAM',
VALUE => 'Receiving Transaction Manager - RCVOLTM');
fnd_message.set_token(token => 'REQUEST', VALUE => p_group_id);
fnd_message.set_token(token => 'REASON', VALUE => l_str);
fnd_msg_pub.add;
RAISE fnd_api.g_exc_error;
END IF;
ELSIF (l_return_code = 3 OR (l_outcome IN ('WARNING', 'ERROR'))) THEN
IF check_group_id(p_group_id) THEN
l_return_code := fnd_transaction.get_values(r_val1,
r_val2,
r_val3,
r_val4,
r_val5,
r_val6,
r_val7,
r_val8,
r_val9,
r_val10,
r_val11,
r_val12,
r_val13,
r_val14,
r_val15,
r_val16,
r_val17,
r_val18,
r_val19,
r_val20);
l_str := r_val1;
IF (r_val2 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val2;
END IF;
IF (r_val3 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val3;
END IF;
IF (r_val4 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val4;
END IF;
IF (r_val5 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val5;
END IF;
IF (r_val6 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val6;
END IF;
IF (r_val7 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val7;
END IF;
IF (r_val8 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val8;
END IF;
IF (r_val9 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val9;
END IF;
IF (r_val10 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val10;
END IF;
IF (r_val11 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val11;
END IF;
IF (r_val12 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val12;
END IF;
IF (r_val13 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val13;
END IF;
IF (r_val14 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val14;
END IF;
IF (r_val15 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val15;
END IF;
IF (r_val16 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val16;
END IF;
IF (r_val17 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val17;
END IF;
IF (r_val18 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val18;
END IF;
IF (r_val19 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val19;
END IF;
IF (r_val20 IS NOT NULL) THEN
l_str := l_str || chr(10) || r_val20;
END IF;
IF l_debug = 'Y' THEN
cux_debug.log('error or warnning ');
cux_debug.log('l_str =' || l_str);
END IF; SELECT COUNT(*) INTO l_rec_count FROM po_interface_errors t WHERE t.batch_id = p_group_id;
IF l_debug = 'Y' THEN
cux_debug.log('errors count :' || l_rec_count);
END IF;
cux_api.set_message('CUX', 'CUX_TXN_SHIP_RCV_UNEXP', 'MESSAGE', l_str);
RAISE fnd_api.g_exc_error;
END IF;
-- API end body
ELSE
l_str := fnd_message.get; IF l_debug = 'Y' THEN
cux_debug.log('l_str =' || l_str);
END IF;
cux_api.set_message('CUX', 'CUX_TXN_SHIP_RCV_UNEXP', 'MESSAGE', l_str);
RAISE fnd_api.g_exc_error;
END IF;
-- end activity, include debug message hint to exit api
cux_api.end_activity(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_commit => p_commit,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
EXCEPTION
WHEN fnd_api.g_exc_error THEN
delete_rcv_interface(p_group_id);
x_return_status := cux_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_api_type => g_api_type,
p_exc_name => cux_api.g_exc_name_error,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
WHEN fnd_api.g_exc_unexpected_error THEN
delete_rcv_interface(p_group_id);
x_return_status := cux_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_api_type => g_api_type,
p_exc_name => cux_api.g_exc_name_unexp,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
WHEN OTHERS THEN
delete_rcv_interface(p_group_id);
x_return_status := cux_api.handle_exceptions(p_pkg_name => g_pkg_name,
p_api_name => l_api_name,
p_api_type => g_api_type,
p_exc_name => cux_api.g_exc_name_others,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END process_rcv_online;
详解EBS接口开发之采购接收&退货处理之关键API--（补充）的更多相关文章
- 详解EBS接口开发之采购申请导入
更多内容可以参考我的博客 详解EBS接口开发之采购订单导入 http://blog.csdn.net/cai_xingyun/article/details/17114697 /*+++++++ ...
- 详解EBS接口开发之采购订单导入
采购订单常用标准表简介 1.1 常用标准表 如下表中列出了与采购订单导入相关的表和说明: 表名 说明 其他信息 po.po_headers_all 采购订单头 采购订单号,采购类型,供应商,地点, ...
- 详解EBS接口开发之库存事务处理采购接收--补充
除了可以用 详解EBS接口开发之库存事务处理采购接收的方法还可以用一下方法,不同之处在于带有批次和序列控制的时候实现方式不同 The script will load records into ...
- 详解EBS接口开发之库存事务处理批次更新
库存事务处理批次有时候出现导入错误需要更新可使用次程序更新,批次导入可参考博客 详解EBS接口开发之库存事务处理-物料批次导入 http://blog.csdn.net/cai_xingyun/art ...
- 供应商API补充（详解EBS接口开发之供应商导入）(转)
原文地址 供应商导入的API补充(详解EBS接口开发之供应商导入) --供应商 --创建 AP_VENDOR_PUB_PKG.Create_Vendor ( p_api_version IN NUM ...
- 详解EBS接口开发之库存事务处理采购接收和退货
(一)接收&退货常用标准表简介 1.1 常用标准表 如下表中列出了与采购接收&退货导入相关的表和说明: 表名 说明 其他信息 RCV_TRANSACTIONS 采购接收事务表 事务 ...
- 详解EBS接口开发之应收款处理
参考实例参考:杜春阳 R12应收模块收款API研究 (一)应收款常用标准表简介 1.1 常用标准表 如下表中列出了与应收款处理相关的表和说明: 表名 说明 其他信息 AR_BATCHES_ALL ...
- 详解EBS接口开发之库事务处理带提前发运通知(ASN)采购接收入库-补充
A) Via ROI Create a ASN [ship,ship] for a quantity =3 on STANDARD PURCHASE ORDER Create via R ...
- 详解EBS接口开发之应收INVOICE导入
(一)应收INVOICE常用标准表简介 1.1 常用标准表 如下表中列出了与应收INVOICE导入相关的表和说明: 表名 说明 其他信息 RA_BATCH_SOURCES_ALL AR事务处理来源 ...
随机推荐
- UVALive - 3938："Ray, Pass me the dishes!"
优美的线段树 #include<cstdio> #include<cstdlib> #include<algorithm> #include<cstring& ...
- 【NOIP2017 OFO】
·奇怪的标题可能预示着这一篇博文不是讲算法或者分享题目的吧. [一只情绪化的兔子] 今年的11月12日出奇地比去年温暖.两场比赛结束后的我们在临走前去尝试了OFO共享单车,在成都电子科技大学 ...
- hdu 5119(2014北京)
题意: 随机选择一个数,如果后面有比他小的就进行交换,直到没有为止(算一轮).求多少轮后为递增序列 思路: 倒着找,如果有比经过的最小数大的,ans+1 #include <iostream&g ...
- 【TCP网络协议问题】
题目描述 在如今的网络中,TCP 是一种被广泛使用的网络协议,它在传输层提供了可靠的通信服务.众所周知,网络是存在时延的,例如用户先后向服务器发送了两个指令 op1 和 op2,并且希望服务器先处理指 ...
- [poj1279]Art Gallery
题意:求多边形的核的面积. 敲一下半平面交模板........ 然后我wa了一早上就因为写了%lf 不知道poj什么破机制还不能用lf的,真的想跳楼 #include<iostream> ...
- 《Java技术》第三次作业
(一)学习总结 1.阅读下面程序,分析是否能编译通过?如果不能,说明原因.应该如何修改?程序的运行结果是什么?为什么子类的构造方法在运行之前,必须调用父 类的构造方法?能不能反过来? class Gr ...
- CMD远程连接服务器上的MySQL
1.打开CMD命令行. 2.输入mysql -h要远程的IP地址 -u设置的MySQL用户名 -p登录用户密码 例如:mysql -h192.168.0.110 -uroot -p1233 (如果不能 ...
- IOI2016Day2. paint
题目链接:http://uoj.ac/problem/238 题目大意: 有一个长度为n的黑白序列,告诉你所以k个极长连续黑段长度和顺序.有一些位置的颜色已知,需要判断剩下未知的位置哪些颜色 一定是白 ...
- 39. Combination Sum(medium, backtrack 的经典应用, 重要)
Given a set of candidate numbers (C) (without duplicates) and a target number (T), find all unique c ...
- Java数据库开发(一)之——JDBC连接数据库
一.MySQL数据库 1.创建数据库 CREATE DATABASE jdbc CHARACTER SET 'utf8'; 2.建表 CREATE TABLE user ( id int(10) NO ...