ITPub博客

首页 > Linux操作系统 > Linux操作系统 > AR收款核销记帐on_account

AR收款核销记帐on_account

原创 Linux操作系统 作者:qgw521 时间:2013-08-02 11:00:54 0 删除 编辑
-- 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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-06-06

  • 博文量
    128
  • 访问量
    277069