- 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博客 ” ，链接：https://blog.itpub.net/22816976/viewspace-1174308/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
最新文章
- How to enable the MOAC parameter “Operating Unit” for a Concurrent Program
- EBS Signon Password Policies
- Password Policies in Oracle E-Business Suite
- R12 Mapping Between Subledger Tables, SLA and GL Tables
- General Ledger to Fixed Assests Drilldown
- Drilldown from GL to Receiving Transactions Query
- EBS R12.2.4 忘记weblogic密码问题 - 1
- EBS R12.2.4 忘记weblogic密码问题 - 2
- Change Weblogic admin password in Oracle EBS R12.2
- 如何永久关闭选项"Close Other Forms"
