AR：撤消收款核销记帐

-- 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
  v_receivable_application_id number := 357971/*357969*/;  --核销标识RECEIVABLE_APPLICATION_ID
begin
  -- Test statements here
   mo_global.init('AR');
   mo_global.set_policy_context('S', 4555);
   ar_receipt_api_pub.Unapply_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_receivable_application_id => v_receivable_application_id
                                        );
      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-767678/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13387766/viewspace-767678/