oracle成批事务处理,Oracle EBS OPM 生产批创建事务处理
--生产批创建事物处理
--created by jenrry
DECLARE
p_mmti_rec mtl_transactions_interface%ROWTYPE;
p_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
x_return_status VARCHAR2 (2000);
p_validation_level NUMBER;
p_init_msg_list VARCHAR2 (2000);
p_commit VARCHAR2 (2000);
x_message_count NUMBER;
x_message_list VARCHAR2 (2000);
l_msg_count NUMBER;
l_msg_data VARCHAR2 (2000);
x_mmt_rec mtl_material_transactions%ROWTYPE;
x_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
l_txn_count NUMBER;
l_count_t NUMBER;
l_count_i NUMBER;
setup_failure EXCEPTION;
p_org_code VARCHAR2 (3) := ‘PR1‘;
g_debug VARCHAR2 (5) := fnd_profile.VALUE (‘AFLOG_LEVEL‘);
l_user_name VARCHAR2 (80);
l_user_id NUMBER;
CURSOR get_user_id (v_user_name IN VARCHAR2)
IS
SELECT user_id
FROM fnd_user
WHERE user_name = v_user_name;
PROCEDURE display_messages (p_msg_count IN NUMBER)
IS
MESSAGE VARCHAR2 (2000);
dummy NUMBER;
l_api_name CONSTANT VARCHAR2 (30) := ‘DISPLAY_MESSAGES‘;
BEGIN
FOR i IN 1 .. p_msg_count
LOOP
fnd_msg_pub.get (p_msg_index => i,
p_data => MESSAGE,
p_encoded => ‘F‘,
p_msg_index_out => dummy
);
DBMS_OUTPUT.put_line (‘Message ‘ || TO_CHAR (i) || ‘ ‘ || MESSAGE);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
fnd_msg_pub.add_exc_msg (‘wrapper for Create_Material_txn‘, l_api_name);
END display_messages;
BEGIN
DBMS_OUTPUT.ENABLE (20000);
l_user_name := ‘SYSADMIN‘;
OPEN get_user_id (l_user_name);
FETCH get_user_id
INTO l_user_id;
IF get_user_id%NOTFOUND
THEN
DBMS_OUTPUT.put_line (‘Invalid User ‘ || l_user_name);
CLOSE get_user_id;
RAISE NO_DATA_FOUND;
END IF;
CLOSE get_user_id;
fnd_profile.initialize (l_user_id);
fnd_global.apps_initialize (user_id => l_user_id,
resp_id => NULL,
resp_appl_id => NULL
);
x_return_status := fnd_api.g_ret_sts_success;
fnd_msg_pub.initialize;
gme_common_pvt.g_error_count := 0;
gme_common_pvt.set_timestamp;
gme_common_pvt.g_move_to_temp := fnd_api.g_false;
p_mmti_rec.organization_id := 1199;
p_mmti_rec.source_code := ‘OPM‘;
p_mmti_rec.source_header_id := 147;
p_mmti_rec.transaction_source_id := 414962;
p_mmti_rec.trx_source_line_id := 576266;
--p_mmti_rec.last_updated_by := gme_common_pvt.g_user_ident;
--p_mmti_rec.last_update_login := gme_common_pvt.g_user_ident ;
--p_mmti_rec.last_update_date := gme_common_pvt.g_timestamp ;
--p_mmti_rec.creation_date := gme_common_pvt.g_timestamp ;
--p_mmti_rec.created_by := gme_common_pvt.g_user_ident;
p_mmti_rec.inventory_item_id := 234657;
p_mmti_rec.revision := NULL;
p_mmti_rec.organization_id := 1199;
p_mmti_rec.transaction_date := SYSDATE;
p_mmti_rec.transaction_type_id := 44/*gme_common_pvt.g_ing_issue*/;
p_mmti_rec.transaction_action_id := gme_common_pvt.g_ing_issue_txn_action;
p_mmti_rec.transaction_quantity := 20;
--p_mmti_rec.primary_quantity :=
p_mmti_rec.transaction_uom := ‘袋‘;
p_mmti_rec.subinventory_code := ‘CWK‘;
p_mmti_rec.locator_id := 983;
p_mmti_rec.transaction_source_type_id := 5;
--p_mmti_rec.transaction_source_name :=
p_mmti_rec.wip_entity_type := 10;
--p_mmti_rec.reason_id :=
p_mmli_tbl(1).last_update_date := gme_common_pvt.g_timestamp ;
p_mmli_tbl(1).last_updated_by := gme_common_pvt.g_user_ident ;
p_mmli_tbl(1).creation_date := gme_common_pvt.g_timestamp ;
p_mmli_tbl(1).created_by := gme_common_pvt.g_user_ident ;
p_mmli_tbl(1).lot_number := ‘L20170814‘ ;
--p_mmli_tbl(1).parent_lot_number := ‘GRNEWPARENTAPI‘ ;
p_mmli_tbl(1).transaction_quantity := 20 ;
gme_api_pub.create_material_txn
(p_api_version => 2.0,
p_validation_level => gme_common_pvt.g_max_errors,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_true,
x_message_count => x_message_count,
x_message_list => x_message_list,
x_return_status => x_return_status,
p_org_code => ‘F06‘,
p_mmti_rec => p_mmti_rec,
p_mmli_tbl => p_mmli_tbl,
p_batch_no => NULL,
p_line_no => NULL,
p_line_type => NULL,
p_create_lot => fnd_api.g_true,
p_generate_lot => NULL,
p_generate_parent_lot => NULL,
x_mmt_rec => x_mmt_rec,
x_mmln_tbl => x_mmln_tbl
);
DBMS_OUTPUT.put_line ( ‘msg_count from process trxns=‘
|| TO_CHAR (l_msg_count)
);
IF l_msg_count > 1
THEN
display_messages (l_msg_count);
END IF;
DBMS_OUTPUT.put_line ( ‘after process transactions x_return_status=‘
|| TO_CHAR (x_return_status)
);
-- Output the results
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_id = ‘
|| TO_CHAR (x_mmt_rec.transaction_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_type_id = ‘
|| TO_CHAR (x_mmt_rec.transaction_type_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_action_id = ‘
|| TO_CHAR (x_mmt_rec.transaction_action_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_source_id = ‘
|| TO_CHAR (x_mmt_rec.transaction_source_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.trx_source_line_id = ‘
|| TO_CHAR (x_mmt_rec.trx_source_line_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.source_line_id = ‘
|| TO_CHAR (x_mmt_rec.source_line_id),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_quantity = ‘
|| TO_CHAR (x_mmt_rec.transaction_quantity),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_uom = ‘
|| TO_CHAR (x_mmt_rec.transaction_uom),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.transaction_date = ‘
|| TO_CHAR (x_mmt_rec.transaction_date),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmln_tbl.count = ‘
|| TO_CHAR (x_mmln_tbl.COUNT),
1,
255
)
);
IF (x_mmln_tbl.COUNT > 0)
THEN
FOR i IN 1 .. x_mmln_tbl.COUNT
LOOP
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmln_tbl((i).lot_number = ‘
|| TO_CHAR (x_mmln_tbl.COUNT),
1,
255
)
);
END LOOP;
END IF;
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.LAST_UPDATE_DATE = ‘
|| TO_CHAR (x_mmt_rec.last_update_date),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.LAST_UPDATED_BY = ‘
|| TO_CHAR (x_mmt_rec.last_updated_by),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.CREATION_DATE = ‘
|| TO_CHAR (x_mmt_rec.creation_date),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.CREATED_BY = ‘
|| TO_CHAR (x_mmt_rec.created_by),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR ( ‘x_mmt_rec.LAST_UPDATE_LOGIN = ‘
|| TO_CHAR (x_mmt_rec.last_update_login),
1,
255
)
);
DBMS_OUTPUT.put_line (SUBSTR (‘x_return_status = ‘ || x_return_status,
1,
255
)
);
DBMS_OUTPUT.put_line (‘x_message_count = ‘ || TO_CHAR (x_message_count));
DBMS_OUTPUT.put_line (SUBSTR (‘x_message_list = ‘ || x_message_list, 1,
255)
);
gme_common_pvt.count_and_get (x_count => x_message_count,
p_encoded => fnd_api.g_false,
x_data => x_message_list
);
IF x_message_count > 1
THEN
display_messages (x_message_count);
END IF;
EXCEPTION
WHEN setup_failure
THEN
DBMS_OUTPUT.put_line (‘ in setup failure‘);
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SUBSTR ( ‘Error ‘
|| TO_CHAR (SQLCODE)
|| ‘: ‘
|| SQLERRM,
1,
255
)
);
RAISE;
END;
/
原文:https://www.cnblogs.com/jenrry/p/10021108.html
oracle成批事务处理,Oracle EBS OPM 生产批创建事务处理相关推荐
- Oracle宣布在云上正式上线 自治事务处理数据库
在 8 月7日,Oracle 宣布在云上正式上线自治事务处理数据库,这个名词 ATP应对于早前发布的 ADW(今年 3月份 Oracle 宣布正式上线的自治数据仓库数据库). 完整的发布会视频链接在这 ...
- Oracle: 三、Oracle的隐藏事务与视图的创建
内容简介 1,Oracle的隐藏事务.2,视图(View)的创建. 技术与环境 操作系统: windows 语言类别: SQL之PL/SQL thankyou: sunshine, 谢谢你的默默付出 ...
- Oracle数据库用户角色、表空间创建、删除命令
Oracle数据库用户角色.表空间创建.删除命令 //创建数据表空间 create tablespace BCC datafile 'D:\oracle\oradata\BCC\BCC.dbf' si ...
- oracle查看创建索引语句,ORACLE下如何获得全部的索引创建语句
ORACLE下如何获得全部的索引创建语句 ORACLE下如何获得全部的索引创建语句 今天打算将一个数据库的索引在另一个测试库上重新创建一遍,研究了一下. set pagesize 0 set long ...
- oracle基础授权,Oracle基础学习3--Oracle创建用户并授权
Oracle服务器端的操作一般如下: 1)安装Oracle服务器软件 2) 创建数据库(安装时自动创建) 3) 配置监听(安装时自动配置) 4) 启动Oracle实 ...
- Oracle dataGuard专题:Rman通过duplicate创建standby
rman提供了更便捷的方式来创建standby,方法就是通过duplicate命令,下面做一个详细介绍: 1. 试验环境 [oracle@gaojf orcl]$ sqlplus "/as ...
- 29 Oracle数据库SQL开发之 SQLPlus使用——创建简单报表
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 29.O ...
- Oracle用OEM和命令行方式创建用户及表空间
目录 一.登录OEM 二.OEM分账户管理 2.1 创建永久表空间 2.2 创建临时表空间 2.3 创建用户 三.用命令行创建用户及表空间 3.1 创建临时表空间 3.2 创建永久表空间 3.3 创建 ...
- oracle 延迟段,DUL 支持Oracle 19c , 如何手动处理延迟段创建的表
oracle dul是oracle的恢复利器, 它的传奇功能不再解释,但是dul和其它工具一样也是需要段(SEGMENT)块信息恢复数据,但是从oracle 11g开始支持了延迟段创建,那么使用dul ...
最新文章
- 实践指南 | 用PyTea检测 PyTorch 中的张量形状错误
- 远程教育中教师能力特点分析(转载)
- 什么是时间导数(Time derivative)
- 《SolidWorks 2016中文版机械设计从入门到精通》——1.10 范例
- 游戏测试:如何有效地报告 Bug?
- Nginx学习之三-ngx_http_request_t结构体
- Python+Opencv实现无参数、全自动的Canny算法
- ural 1129 (求数据)
- 工作回报如何影响人的生产力_如何在减少工作的同时提高生产力
- c 调用c语言头文件,混合使用C、C++和汇编语之:在C++中使用C头文件-嵌入式系统-与非网...
- 夏普 DN7C3A006 PM2.5 传感器测量步骤及存在问题
- Java——IO基础
- 如何直接删除mysql中的重复数据_如何删除mysql数据库中重复的数据(部分重复)?...
- UserWarning: Error checking compiler version for cl
- jwplayer html插件,Angular4使用经验之:jwplayer插件运用到angular4插件普适法
- 怎么去掉抖音短视频上的水印
- A. Captain Flint and Crew Recruitment
- 【计算机网络】(4)什么是路由+ARP协议
- Pygame中blit( )方法讲解(Surface对象)
- 微信公众号模板消息源码
热门文章
- 留几手:互联网创业到底是咋回事(说得真经典,创业者不创业的都值得一看)
- (三)SpringCloud实战之openfeign服务调用
- vue纵向表头通俗易懂
- 全网最全的35个微信小游戏
- c语言12cr,计算机二级C语言讲义12.doc
- JS/Jquery版本的俄罗斯方块(附源码分析)
- 不是java的原始数据类型6_以下哪个不是 Java 的原始数据类型_________。_中药鉴别技术答案_学小易找答案...
- npm ERR missing script: server npm ERR npm ERR Did you mean this? npm ERR serve npm ERR A
- Long型 时间戳转换 得到格林时间 格式:2020-02-25T16:00:00.00Z
- 图片如何加水印?教你几招轻松加