--初始化
/*
begin
fnd_global.apps_initialize(user_id => 8162,
resp_id => 50692,
resp_appl_id => 20003);
mo_global.init('M');
end;
*/
--插入库存事务接口表
declare
l_api_name CONSTANT VARCHAR2(80) := 'insert_transaction_iface';
l_api_version CONSTANT NUMBER := 1.0;
l_savepoint_name VARCHAR2(80) := 'insert_transaction_iface01';
l_progress VARCHAR2(240);
l_uom_code VARCHAR2(30);
l_document_number VARCHAR2(240);
l_project_id NUMBER;
l_doc_type_code VARCHAR2(30);
l_doc_seq NUMBER;
l_tag VARCHAR2(10);
l_project_number VARCHAR2(240);
l_transaction_action_id NUMBER;
l_material_expense_account NUMBER;
l_handle_quantity NUMBER;
l_onhand_qty NUMBER;
l_lot_control VARCHAR2(10);
l_default_task_id NUMBER;
l_ccid NUMBER;
l_org_segment VARCHAR2(240);
l_project_segment VARCHAR2(240);
l_account_segment VARCHAR2(240);
l_transaction_header_id NUMBER;
l_transaction_reference VARCHAR2(240);
l_retval NUMBER;
l_mtl_txn_interface_rec mtl_transactions_interface%ROWTYPE;
l_iface_lot_rec mtl_transaction_lots_interface%ROWTYPE;
l_section_header_id NUMBER;
l_using_department cux_inv_document_headers.using_department%TYPE;
l_department_segment cux_inv_document_headers.using_department%TYPE;
l_doc_object VARCHAR2(240);
l_api_name CONSTANT VARCHAR2(30) := 'process_txn_iface';
l_savepoint_name CONSTANT VARCHAR2(30) := 'process_txn_iface01';
l_txn_count NUMBER;
l_count NUMBER := 0;
X_return_status VARCHAR2(4);
X_msg_count NUMBER;
X_msg_data VARCHAR2(2000);
x_trans_count NUMBER;
x_err_msg VARCHAR2(2000);
x_transaction_header_id NUMBER;
BEG
/*
begin
fnd_global.apps_initialize(user_id => 8162,
resp_id => 50692,
resp_appl_id => 20003);
mo_global.init('M');
end;
*/
--插入库存事务接口表
declare
l_api_name CONSTANT VARCHAR2(80) := 'insert_transaction_iface';
l_api_version CONSTANT NUMBER := 1.0;
l_savepoint_name VARCHAR2(80) := 'insert_transaction_iface01';
l_progress VARCHAR2(240);
l_uom_code VARCHAR2(30);
l_document_number VARCHAR2(240);
l_project_id NUMBER;
l_doc_type_code VARCHAR2(30);
l_doc_seq NUMBER;
l_tag VARCHAR2(10);
l_project_number VARCHAR2(240);
l_transaction_action_id NUMBER;
l_material_expense_account NUMBER;
l_handle_quantity NUMBER;
l_onhand_qty NUMBER;
l_lot_control VARCHAR2(10);
l_default_task_id NUMBER;
l_ccid NUMBER;
l_org_segment VARCHAR2(240);
l_project_segment VARCHAR2(240);
l_account_segment VARCHAR2(240);
l_transaction_header_id NUMBER;
l_transaction_reference VARCHAR2(240);
l_retval NUMBER;
l_mtl_txn_interface_rec mtl_transactions_interface%ROWTYPE;
l_iface_lot_rec mtl_transaction_lots_interface%ROWTYPE;
l_section_header_id NUMBER;
l_using_department cux_inv_document_headers.using_department%TYPE;
l_department_segment cux_inv_document_headers.using_department%TYPE;
l_doc_object VARCHAR2(240);
l_api_name CONSTANT VARCHAR2(30) := 'process_txn_iface';
l_savepoint_name CONSTANT VARCHAR2(30) := 'process_txn_iface01';
l_txn_count NUMBER;
l_count NUMBER := 0;
X_return_status VARCHAR2(4);
X_msg_count NUMBER;
X_msg_data VARCHAR2(2000);
x_trans_count NUMBER;
x_err_msg VARCHAR2(2000);
x_transaction_header_id NUMBER;
BEG