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;
begin
	retval := 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) then
			prnmsg := substr(retmsg, 1, 200);	
		else
			prnmsg := retmsg;
		end if;
	if (retval = 0) then
		dbms_output.put_line(\' All OK . msg:\'||prnmsg);
	else
		dbms_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 loop
			dbms_output.put_line(\'Msg=\'||substr(fnd_msg_pub.get(x, \'F\'), 0, 200));
		end loop;
	end if;
end;
/
ITPub博客

[Script]Call Inventory Transaction Manager

最新文章
