Oracle收款核销了怎么撤销,AR收款核销记帐on_account

-- Created on 2013-8-2 by ADMINISTRATOR

declare

-- Local variables here

i integer;

x_return_status varchar2(1);

x_msg_count number;

x_msg_data varchar2(2000);

v_cash_receipt_id number := 110152; --收款ID

begin

-- Test statements here

mo_global.init('AR');

mo_global.set_policy_context('S', 4555);

ar_receipt_api_pub.Apply_on_account(p_api_version => 1.0

,p_init_msg_list => fnd_api.G_TRUE

,x_return_status => x_return_status

,x_msg_count => x_msg_count

,x_msg_data => x_msg_data

,p_cash_receipt_id => v_cash_receipt_id

,p_amount_applied => 300

,p_apply_date => trunc(sysdate)

,p_apply_gl_date => trunc(last_day(sysdate))

);

dbms_output.put_line('return status:'||x_return_status);

dbms_output.put_line('msg count:'||x_msg_count);

dbms_output.put_line('msg data:'||x_msg_data);

if x_msg_count > 0 then

for i in 1 .. x_msg_count loop

dbms_output.put_line(i||':'||substr(fnd_msg_pub.Get(p_msg_index => i,p_encoded => fnd_api.G_FALSE),1,255));

end loop;

end if;

end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13387766/viewspace-767674/，如需转载，请注明出处，否则将追究法律责任。