--供应商: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;
供应商地点导入(API)Demo
最新推荐文章于 2022-10-28 16:15:12 发布