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/，如需转载，请注明出处，否则将追究法律责任。

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