供应商地点导入（API）Demo

--供应商：3G Communications, Inc.
-- API to Create Supplier Site

DECLARE
  l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
  lc_return_status  VARCHAR2(10);
  ln_msg_count      NUMBER;
  lc_msg_data       VARCHAR2(1000);
  ln_vendor_site_id NUMBER;
  ln_party_site_id  NUMBER;
  ln_location_id    NUMBER;

BEGIN
  -- --------------- 
  -- Required  
  -- --------------- 
  /*select *
   from po_vendors pv
  where pv.VENDOR_NAME = '3G Communications, Inc.'*/
  l_vendor_site_rec.vendor_id        := 783;
  l_vendor_site_rec.vendor_site_code := '王二';  --地点名称
  l_vendor_site_rec.address_line1    := '青浦**工厂店';
  l_vendor_site_rec.city             := 'ShangHai';
  l_vendor_site_rec.country          := 'CN';
  l_vendor_site_rec.org_id           := 204;
 
  --关键采购设置
  l_vendor_site_rec.ORG_NAME := 'Vision Operations'; --业务实体
  l_vendor_site_rec.SHIP_TO_LOCATION_ID := 17843;-- 收货地点(Beijing-China)
  l_vendor_site_rec.BILL_TO_LOCATION_ID := 17395;-- 收单地点（Beverley Hills Durban）
  l_vendor_site_rec.SHIP_VIA_LOOKUP_CODE := 'UPS';--发运方式
  l_vendor_site_rec.PAY_ON_CODE := null;--付款方式
  l_vendor_site_rec.DEFAULT_PAY_SITE_ID := null;--替代支付地点
  l_vendor_site_rec.PAY_ON_RECEIPT_SUMMARY_CODE := null;--发票汇总层
  --l_vendor_site_rec.CREATE_DEBIT_MEMO_FLAG := null;--根据 RTS 事务处理创建借项通知单
  l_vendor_site_rec.GAPLESS_INV_NUM_FLAG := null;--连续发票编号
  l_vendor_site_rec.SELLING_COMPANY_IDENTIFIER := null;--销售公司标识
  l_vendor_site_rec.FOB_LOOKUP_CODE := null;--FOB
  l_vendor_site_rec.FREIGHT_TERMS_LOOKUP_CODE := null;--运费条款
  l_vendor_site_rec.SHIPPING_CONTROL := null;--已安排运输
  --l_vendor_site_rec.COUNTRY_OF_ORIGIN_CODE := null;--原产地
  --关键付款设置
  l_vendor_site_rec.INVOICE_AMOUNT_LIMIT := null;--发票金额限制
  --l_vendor_site_rec.TOLERANCE_ID := null;--发票允差
  l_vendor_site_rec.MATCH_OPTION := 'R';--发票匹配选项
  l_vendor_site_rec.INVOICE_CURRENCY_CODE := 'USD';--发票币种
  l_vendor_site_rec.HOLD_ALL_PAYMENTS_FLAG := null;--所有发票
  l_vendor_site_rec.HOLD_UNMATCHED_INVOICES_FLAG := null;--不匹配的发票
  l_vendor_site_rec.HOLD_FUTURE_PAYMENTS_FLAG := null;--未验证的发票
  l_vendor_site_rec.HOLD_REASON := null;--付款暂挂原因
  --l_vendor_site_rec.SERVICES_TOLERANCE_ID := null;--服务允差
  l_vendor_site_rec.PAYMENT_CURRENCY_CODE := 'USD';--付款币种
  l_vendor_site_rec.PAYMENT_PRIORITY := 99;--付款优先级
  l_vendor_site_rec.PAY_GROUP_LOOKUP_CODE := null;--支付组
  l_vendor_site_rec.BANK_CHARGE_BEARER := 'I';--从付款中扣除银行手续费
  l_vendor_site_rec.TERMS_ID := 10001;--条件
  l_vendor_site_rec.TERMS_DATE_BASIS := 'Invoice';--条件日期基准
  l_vendor_site_rec.PAY_DATE_BASIS_LOOKUP_CODE := 'DUE';--支付日期基准
  --l_vendor_site_rec.RETAINAGE_RATE := null;--保留金比率 (%)
  l_vendor_site_rec.ALWAYS_TAKE_DISC_FLAG := null;--始终采用折扣
  --l_vendor_site_rec.EXCLUDE_FREIGHT_FROM_DISCOUNT := null;--从折扣中扣除运费
  
  -- --------------  
  -- Optional  
  -- --------------
  l_vendor_site_rec.purchasing_site_flag := 'N';
  l_vendor_site_rec.pay_site_flag        := 'N';
  l_vendor_site_rec.rfq_only_site_flag   := 'N';

  pos_vendor_pub_pkg.create_vendor_site(
                                        -- ------------------------------ 
                                        -- Input data elements 
                                        -- ------------------------------ 
                                        p_vendor_site_rec => l_vendor_site_rec,
                                        -- --------------------------------- 
                                        -- Output data elements 
                                        -- --------------------------------- 
                                        x_return_status  => lc_return_status,
                                        x_msg_count      => ln_msg_count,
                                        x_msg_data       => lc_msg_data,
                                        x_vendor_site_id => ln_vendor_site_id,
                                        x_party_site_id  => ln_party_site_id,
                                        x_location_id    => ln_location_id);

  IF lc_return_status <> fnd_api.g_ret_sts_success THEN
    FOR i IN 1 .. ln_msg_count LOOP
      lc_msg_data := fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F');
      dbms_output.put_line('11111111:' || lc_msg_data);
    END LOOP;
  END IF;
  
  dbms_output.put_line('ln_vendor_site_id:'||ln_vendor_site_id);
  dbms_output.put_line('ln_party_site_id:'||ln_party_site_id);
  dbms_output.put_line('ln_location_id:'||ln_location_id);
END;