EBS开发_AR收款核销事务处理发票

--收款核销发票 Tony环境实现 20190704
DECLARE
  l_api_name    CONSTANT VARCHAR2(30) := 'apply_prc';
  l_api_version CONSTANT NUMBER := 1.0;
  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);

  l_total_amount      NUMBER;
  l_cash_unapp_amount NUMBER;

  l_cash_sum NUMBER;
  l_trx_sum  NUMBER;
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.apply(p_api_version      => 1.0,
                           p_init_msg_list    => fnd_api.g_false,
                           p_commit           => fnd_api.g_false,
                           p_validation_level => fnd_api.g_valid_level_full,
                           x_return_status    => x_return_status,
                           x_msg_count        => x_msg_count,
                           x_msg_data         => x_msg_data,
                           p_cash_receipt_id  => 1025,--收款ID
                           p_customer_trx_id  => 1033,--事务处理ID
                           p_amount_applied   => 1.1,
                           p_apply_date       => SYSDATE,
                           p_apply_gl_date    => SYSDATE);
  dbms_output.put_line('x_return_status:' || x_return_status);
  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;