EBS R12使用接口表往已存在的供应商地址下创建新的地点

linuxvpn

　　在供应商 "测试供应商A" 下已经有了两个地址，分别为 "地址A"，"地址B"，现在由于某些原因，需要在地址A下面创建新的地点。
　　由于业务需要，所以使用的是将数据导入ap_supplier_sites_int接口表，再使用 "供应商站点开放接口导入" 请求来创建新的地点。
　　参考代码如下：根据实际业务补充。



SELECT * FROM ap.ap_supplier_sites_int;
/
truncate TABLE ap.ap_supplier_sites_int;
/
SELECT pv.vendor_id,
hl.location_id,
hp.party_id,
hps.party_site_id,
hl.country,
hl.address1,
hps.party_site_name,
hl.address1,
hl.address2,
hl.address3,
hl.address4,
hl.city,
hl.state,
hl.province,
hl.country,
hl.county,
hl.language,
hl.address_style
FROM hz_locations   hl,
hz_parties     hp,
po_vendors     pv,
hz_party_sites hps
WHERE pv.party_id = hp.party_id
AND hps.party_id = hp.party_id
AND hps.location_id = hl.location_id
AND pv.vendor_name = '简单的供应商导入1'
AND hl.address_lines_phonetic = 'Y';
/
DECLARE
-- Local variables here

l_iface_site_rec ap_supplier_sites_int%ROWTYPE;
BEGIN
-- Test statements here
FOR cc IN (SELECT pv.vendor_id,
hl.location_id,
hp.party_id,
hps.party_site_id,
hps.party_site_name,
hl.address1,
hl.address2,
hl.address3,
hl.address4,
hl.city,
hl.state,
hl.province,
hl.country,
hl.county,
hl.language,
hl.address_style
FROM hz_locations   hl,
hz_parties     hp,
po_vendors     pv,
hz_party_sites hps
WHERE pv.party_id = hp.party_id
AND hps.party_id = hp.party_id
AND hps.location_id = hl.location_id
AND pv.vendor_name = '简单的供应商导入1'
AND hl.address_lines_phonetic = 'Y') LOOP
l_iface_site_rec.vendor_id     := cc.vendor_id; --供应商ID
l_iface_site_rec.location_id   := cc.location_id;
l_iface_site_rec.address_line1 := cc.address1;
l_iface_site_rec.address_line2 := cc.address2;
l_iface_site_rec.address_line3 := cc.address3;
l_iface_site_rec.address_line4 := cc.address4;
l_iface_site_rec.city          := cc.city;
l_iface_site_rec.state         := cc.state;
-- l_iface_site_rec.zip            :=     --此字段我未找到
l_iface_site_rec.province      := cc.province;
l_iface_site_rec.country       := cc.country;
l_iface_site_rec.county        := cc.county;
l_iface_site_rec.language      := cc.language;
l_iface_site_rec.address_style := cc.address_style;
--付款标识
l_iface_site_rec.pay_site_flag := 'Y';
--采购标识
l_iface_site_rec.purchasing_site_flag := 'Y';
l_iface_site_rec.org_id               := 161; --地点对应的业务实体  
l_iface_site_rec.vendor_site_code     := substr('地点0626_1',
1,
15);
END LOOP;
INSERT INTO ap.ap_supplier_sites_int VALUES l_iface_site_rec;
COMMIT;
END;
/
SELECT * FROM ap.ap_supplier_sites_int;
　　
　　
　　再执行"供应商站点开放接口导入"请求，导入地点。
　　
　　参考文章：
　　交易方地点名称与地址详细信息不一致。
　　此供应商已经存在地址/交易方地点名称。请重新输入唯一名称。
　　Oracle EBS R12 接口导 供应商
　　供应商接口的使用
　　供应商导入