EBS开发_应收收款导入API

--以下脚本于20190703 在Tony环境成功实现
DECLARE

  l_api_name    CONSTANT VARCHAR2(30) := 'receipt_prc';
  l_api_version CONSTANT NUMBER := 1.0;
  x_cash_receipt_id NUMBER;
  l_attribute_rec   ar_receipt_api_pub.attribute_rec_type;
  l_org_id          NUMBER;
  x_return_status   VARCHAR2(60);
  x_msg_count       NUMBER;
  g_pkg_name        VARCHAR2(60) := 'cux_test_scripts';
  g_api_type        VARCHAR2(60) := 'cux_test_scripts';
  x_msg_data        VARCHAR2(32676);

BEGIN

  fnd_msg_pub.initialize;
  l_org_id := 82;
  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => l_org_id);

  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50597,
                             resp_appl_id => 20003);

  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => l_org_id);

  ar_receipt_api_pub.create_cash(p_api_version                => 1.0,
                                 p_init_msg_list              => 'F',
                                 p_receipt_number             => 20190703001,
                                 p_receipt_method_id          => 1001,
                                 p_currency_code              => 'CNY',
                                 p_amount                     => 1000,
                                 p_receipt_date               => SYSDATE,
                                 p_gl_date                    => SYSDATE,
                                 p_maturity_date              => SYSDATE,
                                 p_customer_id                => 1042,
                                 p_customer_site_use_id       => 1046,
                                 p_remittance_bank_account_id => 10002,
                                 p_attribute_rec              => l_attribute_rec,
                                 p_cr_id                      => x_cash_receipt_id,
                                 x_return_status              => x_return_status,
                                 x_msg_count                  => x_msg_count,
                                 x_msg_data                   => x_msg_data);
  dbms_output.put_line('x_cash_receipt_id:' || x_cash_receipt_id);
  IF (x_return_status <> 'S') THEN
    RAISE fnd_api.g_exc_error;
  END IF;

EXCEPTION
  WHEN fnd_api.g_exc_error THEN
    dbms_output.put_line('g_exc_errorx:');
    dbms_output.put_line('FND_MSG_BUG:' || fnd_msg_pub.get_detail(1, 'F'));
  WHEN OTHERS THEN
    dbms_output.put_line('others_exception:');
    dbms_output.put_line('FND_MSG_BUG:' || fnd_msg_pub.get_detail(1, 'F'));
END;