供应商地点导入（API）Demo

--供应商：3G Communications, Inc.-- API to Create Supplier SiteDECLARE  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;