创建银行账户 -- 未验证

最新推荐文章于 2022-10-28 16:15:12 发布

李逍遥L11

最新推荐文章于 2022-10-28 16:15:12 发布

阅读量1k

点赞数

分类专栏： AR 文章标签： oracle ebs

本文链接：https://blog.csdn.net/chosen1brain/article/details/48135839

版权

AR 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

这段PL/SQL代码演示了如何在Oracle E-Business Suite (EBS) 中创建一个外部银行账户。代码初始化参数，如账户拥有者、银行和分行ID，然后调用IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_ACCT API来创建账户。最后，它处理返回的状态、消息和账户ID。

摘要由CSDN通过智能技术生成

declare
  p_api_version       NUMBER := 1.0;
  p_init_msg_list     VARCHAR2(1) := 'F';
  x_return_status     VARCHAR2(2000);
  x_msg_count         NUMBER(5);
  x_msg_data          VARCHAR2(2000);
  x_response          iby_fndcpt_common_pub.result_rec_type;
  p_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
  v_supplier_party_id NUMBER := 55816; -- EXISTING SUPPLIERS/CUSTOMER      
  PARTY_ID            v_bank_id NUMBER := 208587; -- EXISTING BANK PARTY ID
  v_bank_branch_id    NUMBER := 278411; -- EXISTING BRANCH PARTY ID
  x_acct_id           NUMBER;
  p_count             NUMBER;
BEGIN

  p_ext_bank_acct_rec.object_version_number    := 1.0;
  p_ext_bank_acct_rec.acct_owner_party_id      := v_supplier_party_id;
  p_ext_bank_acct_rec.bank_account_name        := 'XXTEST BANK ACCNT';
  p_ext_bank_acct_rec.bank_account_num         := 14278596531;
  p_ext_bank_acct_rec.alternate_acct_name      := 'XXTEST BANK ACCNT ALT';
  p_ext_bank_acct_rec.bank_id                  := v_bank_id;
  p_ext_bank_acct_rec.branch_id                := v_bank_branch_id;
  p_ext_bank_acct_rec.start_date               := SYSDATE;
  p_ext_bank_acct_rec.country_code             := 'US';
  p_ext_bank_acct_rec.currency                 := 'USD';
  p_ext_bank_acct_rec.foreign_payment_use_flag := 'Y';
  p_ext_bank_acct_rec.payment_factor_flag      := 'N';
  IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_ACCT(p_api_version       => p_api_version,
                                            p_init_msg_list     => p_init_msg_list,
                                            p_ext_bank_acct_rec => p_ext_bank_acct_rec,
                                            x_acct_id           => x_acct_id,
                                            x_return_status     => x_return_status,
                                            x_msg_count         => x_msg_count,
                                            x_msg_data          => x_msg_data,
                                            x_response          => x_response);

  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_acct_id = ' || x_acct_id);
  DBMS_OUTPUT.put_line('x_response.Result_Code = ' ||
                       x_response.result_code);
  DBMS_OUTPUT.put_line('x_response.Result_Category = ' ||
                       x_response.result_category);
  DBMS_OUTPUT.put_line('x_response.Result_Message = ' ||
                       x_response.result_message);

  IF x_msg_count = 1 THEN
    DBMS_OUTPUT.put_line('x_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;