该段代码展示了在Oracle EBS系统中处理PAC（Process Accounting Cost）成本更新的事务处理过程。通过声明变量、设置成本类型、组织信息等，将数据插入到mtl_transactions_interface接口表中，然后调用inv_txn_manager_pub过程处理事务。如果处理失败，程序会抛出错误提示。
PAC成本更新事务处理
DECLARE
l_itfs_rec mtl_transactions_interface% ROWTYPE;
BEGIN
--插入接口表
SELECT mtl_material_transactions_s.nextval
INTO l_txn_header_id
FROM dual;
v_date := p_end_date - 1 || ' 06:00:00';
l_end_date := to_date(v_date,
'dd/mm/yy hh24:mi:ss');
l_itfs_rec.transaction_header_id := l_txn_header_id;
l_itfs_rec.source_code := 'CUXPACIP';
l_itfs_rec.source_line_id := 0;
l_itfs_rec.source_header_id := 0;
l_itfs_rec.process_flag := 1;
l_itfs_rec.transaction_mode := 2;
l_itfs_rec.validation_required := 1;
l_itfs_rec.transaction_type_id := 26; --固定
l_itfs_rec.transaction_source_type_id := 14
扫一扫
390
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
