[Script]Call Inventory Transaction Manager

来源：互联网发布：网络投资微信群编辑：程序博客网时间：2024/06/06 06:39

Call Inventory Transaction Manager

set serveroutput on;declare--retmsg varchar2(1000);retmsg varchar2(240);retval number;trxhdrid number := '&1';prnmsg varchar2(256);x_msg_data varchar2(256);x_msgcnt number;beginretval := INV_LPN_TRX_PUB.PROCESS_LPN_TRX(p_trx_hdr_id => trxhdrid,p_commit => fnd_api.g_false, x_proc_msg => retmsg,p_proc_mode => 1,p_process_trx => fnd_api.g_true,p_atomic  => fnd_api.g_false);if (length(retmsg) > 200) thenprnmsg := substr(retmsg, 1, 200);elseprnmsg := retmsg;end if;if (retval = 0) thendbms_output.put_line(' All OK . msg:'||prnmsg);elsedbms_output.put_line(' Error  . msg:'||prnmsg);dbms_output.put_line(' Msg1 ='||fnd_msg_pub.get(1, 'F'));FND_MSG_PUB.Count_And_Get(p_count => x_msgcnt,                              p_data  => x_msg_data);dbms_output.put_line('msgcnt='||x_msgcnt||',msgdt='||x_msg_data);for  x in 1..x_msgcnt loopdbms_output.put_line('Msg='||substr(fnd_msg_pub.get(x, 'F'), 0, 200));end loop;end if;end;/