码迷,mamicode.com
首页 > Windows程序 > 详细

采用API将AR应收账款未知未核销状态变成黄金

时间:2015-10-15 18:27:39      阅读:595      评论:0      收藏:0      [点我收藏+]

标签:

DECLARE
  p_api_version               NUMBER;
  p_init_msg_list             VARCHAR2(200);
  p_commit                    VARCHAR2(200);
  p_validation_level          NUMBER;
  x_return_status             VARCHAR2(200);
  x_msg_count                 NUMBER;
  x_msg_data                  VARCHAR2(200);
  p_cash_receipt_id           NUMBER;
  p_pay_from_customer         NUMBER;
  p_comments                  VARCHAR2(200);
  p_payment_trxn_extension_id NUMBER;
  x_status                    VARCHAR2(200);
  p_customer_bank_account_id  NUMBER;
  p_count                     NUMBER;
BEGIN
  --
  fnd_global.apps_initialize(1110, 50683, 222); 
  --
  p_api_version       := 1.0;
  p_init_msg_list     := fnd_api.g_true;
  p_commit            := fnd_api.g_false;
  p_validation_level  := fnd_api.g_valid_level_full;
  p_cash_receipt_id   := 78043;
  --參数仅仅能指定客户账户,没有提供事业所字段
  p_pay_from_customer := 1885;    --hz_cust_accounts.cust_account_id
  p_comments          := 'TEST RECEIPT_API';
  
  ar_receipt_update_api_pub.update_receipt_unid_to_unapp(p_api_version               => p_api_version,
                                                         p_init_msg_list             => p_init_msg_list,
                                                         p_commit                    => p_commit,
                                                         p_validation_level          => p_validation_level,
                                                         x_return_status             => x_return_status,
                                                         x_msg_count                 => x_msg_count,
                                                         x_msg_data                  => x_msg_data,
                                                         p_cash_receipt_id           => p_cash_receipt_id,
                                                         p_pay_from_customer         => p_pay_from_customer,
                                                         p_comments                  => p_comments,
                                                         p_payment_trxn_extension_id => p_payment_trxn_extension_id,
                                                         x_status                    => x_status,
                                                         p_customer_bank_account_id  => p_customer_bank_account_id);
  dbms_output.put_line('X_RETURN_STATUS = ' || x_return_status);
  dbms_output.put_line('X_MSG_COUNT = ' || x_msg_count);
  dbms_output.put_line('X_MSG_DATA = ' || x_msg_data);
  dbms_output.put_line('X_STATUS = ' || x_status);
  IF x_msg_count = 1 THEN
    dbms_output.put_line('l_msg_data ' || x_msg_data);
  ELSIF x_msg_count > 1 THEN
    LOOP
      p_count    := p_count + 1;
      x_msg_data := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
      IF x_msg_data IS NULL THEN
        EXIT;
      END IF;
      dbms_output.put_line('Message' || p_count || ' ---' || x_msg_data);
    END LOOP;
  END IF;
END;

版权声明:本文博主原创文章,博客,未经同意不得转载。

采用API将AR应收账款未知未核销状态变成黄金

标签:

原文地址:http://www.cnblogs.com/gcczhongduan/p/4882830.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有 京ICP备13008772号-2
迷上了代码!