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_a