供应商API补充（详解EBS接口开发之供应商导入）(转)

--供应商
--创建
AP_VENDOR_PUB_PKG.Create_Vendor
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY  VARCHAR2,
x_msg_count        OUT    NOCOPY  NUMBER,
x_msg_data        OUT    NOCOPY  VARCHAR2,
p_vendor_rec        IN    r_vendor_rec_type,
x_vendor_id        OUT    NOCOPY  AP_SUPPLIERS.VENDOR_ID%TYPE,
x_party_id        OUT    NOCOPY  HZ_PARTIES.PARTY_ID%TYPE
);
--更新
AP_VENDOR_PUB_PKG.Update_Vendor
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_rec        IN    r_vendor_rec_type,
p_vendor_id        IN    NUMBER
);

--亲们,提供个R12失效供应商的程序供参考:
DECLARE
--
lv_return_status VARCHAR2(1);
lv_msg_count     NUMBER;
lv_msg_data      VARCHAR2(2000);
--
lv_vendor_id   ap_suppliers.vendor_id%TYPE;
lv_vendor_rec  AP_VENDOR_PUB_PKG.r_vendor_rec_type;
L_USER_ID      NUMBER := 0;
L_RESP_ID      NUMBER := 50192;
L_RESP_APPL_ID NUMBER := 20003;
--
cursor c_vendorid is
select vendor_id from TMP_DISABLE_VENDOR where STATUS='N';

BEGIN
--
EXECUTE IMMEDIATE 'ALTER session SET nls_language = ''American''';

fnd_global.apps_initialize(L_USER_ID, L_RESP_ID, L_RESP_APPL_ID);
mo_global.init('S');
--
for cc in c_vendorid loop
lv_vendor_id                  := cc.vendor_id;
lv_vendor_rec.END_DATE_ACTIVE :=SYSDATE; --如果要取消失效时间，请设置为：FND_API.G_MISS_DATE;
--
AP_VENDOR_PUB_PKG.Update_Vendor(p_api_version      => 1.0
,p_init_msg_list    => fnd_api.g_true
,p_commit           => fnd_api.g_false
,p_validation_level => fnd_api.g_valid_level_full
,x_return_status    => lv_return_status
,x_msg_count        => lv_msg_count
,x_msg_data         => lv_msg_data
,p_vendor_rec       => lv_vendor_rec
,p_vendor_id        => lv_vendor_id);
--

-- dbms_output.put_line(lv_return_status || '-' || lv_msg_count || '-' || lv_msg_data);
--
UPDATE TMP_DISABLE_VENDOR
SET STATUS ='Y'
WHERE vendor_id = lv_vendor_id;
end loop;
COMMIT;
END;

--验证
AP_VENDOR_PUB_PKG.Validate_Vendor
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_rec        IN OUT    NOCOPY r_vendor_rec_type,
p_mode            IN    VARCHAR2,
p_calling_prog        IN    VARCHAR2,
x_party_valid        OUT    NOCOPY VARCHAR2,
x_payee_valid        OUT    NOCOPY VARCHAR2,
p_vendor_id        IN    NUMBER
);
--供应商地点
--创建
AP_VENDOR_PUB_PKG.Create_Vendor_Site
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_site_rec    IN    r_vendor_site_rec_type,
x_vendor_site_id    OUT    NOCOPY NUMBER,
x_party_site_id        OUT    NOCOPY NUMBER,
x_location_id        OUT    NOCOPY NUMBER
);
--更新
AP_VENDOR_PUB_PKG.Update_Vendor_Site
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_site_rec    IN    r_vendor_site_rec_type,
p_vendor_site_id    IN    NUMBER,
p_calling_prog        IN    VARCHAR2 DEFAULT 'NOT ISETUP'
);
--验证
AP_VENDOR_PUB_PKG.Validate_Vendor_Site
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_site_rec    IN OUT    NOCOPY r_vendor_site_rec_type,
p_mode            IN    VARCHAR2,
p_calling_prog        IN    VARCHAR2,
x_party_site_valid    OUT    NOCOPY VARCHAR2,
x_location_valid    OUT    NOCOPY VARCHAR2,
x_payee_valid        OUT    NOCOPY VARCHAR2,
p_vendor_site_id    IN    NUMBER
);
--供应商联系人
--创建
AP_VENDOR_PUB_PKG.Create_Vendor_Contact
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_contact_rec    IN    r_vendor_contact_rec_type,
x_vendor_contact_id    OUT    NOCOPY NUMBER,
x_per_party_id        OUT    NOCOPY NUMBER,
x_rel_party_id        OUT     NOCOPY NUMBER,
x_rel_id        OUT    NOCOPY NUMBER,
x_org_contact_id    OUT    NOCOPY NUMBER,
x_party_site_id        OUT    NOCOPY NUMBER
);
--更新
AP_VENDOR_PUB_PKG.Update_Vendor_Contact
(     p_api_version       IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE    ,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER    :=  FND_API.G_VALID_LEVEL_FULL,
p_vendor_contact_rec    IN    r_vendor_contact_rec_type,
x_return_status        OUT    NOCOPY VARCHAR2              ,
x_msg_count            OUT    NOCOPY NUMBER,
x_msg_data            OUT    NOCOPY VARCHAR2
);
--验证
AP_VENDOR_PUB_PKG.Validate_Vendor_Contact
(     p_api_version           IN    NUMBER,
p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,
p_commit            IN      VARCHAR2 := FND_API.G_FALSE,
p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,
x_return_status        OUT    NOCOPY VARCHAR2,
x_msg_count        OUT    NOCOPY NUMBER,
x_msg_data        OUT    NOCOPY VARCHAR2,
p_vendor_contact_rec    IN OUT    NOCOPY r_vendor_contact_rec_type,
x_rel_party_valid     OUT     NOCOPY VARCHAR2,
x_per_party_valid     OUT     NOCOPY VARCHAR2,
x_rel_valid         OUT     NOCOPY VARCHAR2,
x_org_party_id        OUT    NOCOPY NUMBER,
x_org_contact_valid     OUT     NOCOPY VARCHAR2,
x_location_id        OUT     NOCOPY NUMBER,
x_party_site_valid      OUT     NOCOPY VARCHAR2
);
--导入供应商
--供应商
AP_VENDOR_PUB_PKG.Import_Vendors
(       p_api_version           IN      NUMBER,
p_source                IN      VARCHAR2 DEFAULT 'IMPORT',
p_what_to_import        IN      VARCHAR2 DEFAULT NULL,
p_commit_size           IN      NUMBER   DEFAULT 1000,
x_return_status         OUT NOCOPY VARCHAR2,
x_msg_count             OUT NOCOPY NUMBER,
x_msg_data              OUT NOCOPY VARCHAR2
);
--地点
AP_VENDOR_PUB_PKG.Import_Vendor_Sites
(       p_api_version           IN  NUMBER,
p_source                IN  VARCHAR2 DEFAULT 'IMPORT',
p_what_to_import        IN  VARCHAR2 DEFAULT NULL,
p_commit_size           IN  NUMBER   DEFAULT 1000,
p_org_id                IN  NUMBER   DEFAULT NULL, --bug13801271
x_return_status         OUT NOCOPY VARCHAR2,
x_msg_count             OUT NOCOPY NUMBER,
x_msg_data              OUT NOCOPY VARCHAR2
);
--联系人
AP_VENDOR_PUB_PKG.Import_Vendor_Contacts
(       p_api_version           IN  NUMBER,
p_source                IN  VARCHAR2 DEFAULT 'IMPORT',
p_what_to_import        IN  VARCHAR2 DEFAULT NULL,
p_commit_size           IN  NUMBER   DEFAULT 1000,
x_return_status         OUT NOCOPY VARCHAR2,
x_msg_count             OUT NOCOPY NUMBER,
x_msg_data              OUT NOCOPY VARCHAR2
);