详解EBS接口开发之更新供应商付款方法

更新供应商地点层的付款方法API

DECLARE
  --API 参数
  l_external_payee_rec_type iby_disbursement_setup_pub.external_payee_rec_type;
  l_ext_payee_id_rec_type   iby_disbursement_setup_pub.ext_payee_id_rec_type;
  l_ext_payee_tab           iby_disbursement_setup_pub.external_payee_tab_type;
  l_ext_payee_id_tab        iby_disbursement_setup_pub.ext_payee_id_tab_type;
  l_ext_payee_status_tab    iby_disbursement_setup_pub.ext_payee_update_tab_type;

  --变量
  l_api_version CONSTANT NUMBER := 1;
  l_msg_data      VARCHAR2(2000);
  l_msg           VARCHAR2(4000);
  l_msg_count     NUMBER;
  l_return_status VARCHAR2(1);
  l_method_code   VARCHAR2(50);

  l_vendor_id              NUMBER;
  l_party_id               NUMBER;
  l_party_site_id          NUMBER;
  l_location_id            NUMBER;
  l_vendor_site_id         NUMBER;
  l_object_version_number  NUMBER;
  l_loc_version_number     NUMBER;
  g_def_exclusive_pay_flag VARCHAR2(1) := 'Y';
  --l_party_id              NUMBER;
  --游标
  CURSOR cur_cux_vendor IS
    SELECT l.vendor_site_code, l.attribute2, l.line_id
      FROM cux_oms_vendor_site