Using script to submit INV Manager to process MTI/MMTT

1.Using script to submit INV Manager to process MMTT

/* * When prompted for user_id, resp_id and resp_appl_id, ask ct enter the correct values for * these variables. The values can be obtained by logging into Inventory * reponsibility and from menu Help->Diagnostics->Examine, select block as * $PROFILES and field as the 3 variables and note down the values of each. */ SET SEVEROUTPUT ON declare l_header_id number; p_userid NUMBER := &user_id; p_respid NUMBER := &resp_id; p_applid NUMBER := &resp_appl_id; retmsg varchar2(240); retval number; prnmsg varchar2(256); begin select mtl_material_transactions_s.nextval into l_header_id from dual; update mtl_material_transactions_temp set process_flag = 'Y', lock_flag = NULL, transaction_mode = 3, error_code = NULL, error_explanation = NULL, transaction_header_id = l_header_id where nvl(transaction_status, -999) <> 2 and transaction_action_id = 8 and physical_adjustment_id is not null and transaction_source_id in (3694,3674); fnd_global.apps_initialize(p_userid, p_respid, p_applid); --Call Online TM retval := INV_LPN_TRX_PUB.PROCESS_LPN_TRX(p_trx_hdr_id => l_header_id, x_proc_msg => retmsg, p_proc_mode => 1); if (length(retmsg) > 200) then prnmsg := substr(retmsg, 1, 200); else prnmsg := retmsg; end if; if (retval = 0) then dbms_output.put_line(' All OK . msg:'||prnmsg); commit; --TM success so commit. else dbms_output.put_line(' Error . msg:'||prnmsg); rollback; --TM failed so rollback insert and update. end if; end; /2.Using script to submit INV Manager to process MTI

DECLARE l_ret_val NUMBER ; l_return_status VARCHAR2(1); l_msg_data VARCHAR2(2000); l_trans_count NUMBER ; l_msg_count NUMBER ; l_error_code VARCHAR2(100); l_error_explanation VARCHAR2(2000); BEGIN fnd_profile.put('INV_DEBUG_TRACE', '1'); fnd_profile.put('INV_DEBUG_FILE', '/sqlcom/log/mz121dv3/utl/tm28.log'); fnd_profile.put('INV_DEBUG_LEVEL', 11); fnd_profile.put('USER_ID', '1068'); -- fnd_profile.put('SECURITY_GROUP_ID', '0'); dbms_output.put_line('Calling TM'); l_ret_val := INV_TXN_MANAGER_PUB.process_Transactions( p_api_version => 1.0 , p_init_msg_list => fnd_api.g_false , p_commit => fnd_api.g_false , p_validation_level => fnd_api.g_valid_level_full , x_return_status => l_return_status , x_msg_count => l_msg_count , x_msg_data => l_msg_data , x_trans_count => l_trans_count , p_table => 1 , p_header_id => 22183447 ); dbms_output.put_line('process_lot_txns: fn ret : ' || l_ret_val); dbms_output.put_line('process_lot_txns: ret value from TM: ' || l_return_status); dbms_output.put_line('process_lot_txns: processed count: ' || l_trans_count); IF l_return_status <> 'S' THEN BEGIN SELECT error_code , error_explanation INTO l_error_code , l_error_explanation FROM mtl_transactions_interface WHERE transaction_header_id = 22183219 AND ROWNUM = 1; dbms_output.put_line('err code: ' || l_error_code); dbms_output.put_line('err expl: ' || l_error_explanation); EXCEPTION WHEN OTHERS THEN NULL; END; END IF; --END IF ret sts <> 'S' EXCEPTION WHEN OTHERS THEN dbms_output.put_line('process_lot_txns: Exception raised'); ROLLBACK; END ;转载请注明出处:http://blog.csdn.net/pan_tian/article/details/7711155
======EOF======