Oracle EBS AP 供应商API
--创建供应商地址上的电话号码 created by jenrry 20170419
DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);
l_vendor_contact_rec hz_contact_point_v2pub.contact_point_rec_type;
l_vendor_edi_rec hz_contact_point_v2pub.edi_rec_type;
l_vendor_email_rec hz_contact_point_v2pub.email_rec_type;
l_vendor_phone_rec hz_contact_point_v2pub.phone_rec_type;
l_vendor_fax_rec hz_contact_point_v2pub.telex_rec_type;
l_vendor_web_rec hz_contact_point_v2pub.web_rec_type;
l_vendor_contact_id NUMBER;
BEGIN
fnd_global.apps_initialize(0, 50737, 20005);
mo_global.init('SQLAP');
--
l_vendor_contact_rec.owner_table_name := 'HZ_PARTY_SITES';
l_vendor_contact_rec.owner_table_id := 7037;
l_vendor_contact_rec.contact_point_type := 'PHONE';
l_vendor_contact_rec.created_by_module := 'POS_SUPPLIER_MGMT';
l_vendor_phone_rec.phone_area_code := '010';
l_vendor_phone_rec.phone_number := '017809091134';
l_vendor_phone_rec.phone_line_type := 'GEN';--电话
hz_contact_point_v2pub.create_contact_point(p_init_msg_list => fnd_api.g_true,
p_contact_point_rec => l_vendor_contact_rec,
p_edi_rec => l_vendor_edi_rec,
p_email_rec => l_vendor_email_rec,
p_phone_rec => l_vendor_phone_rec,
p_telex_rec => l_vendor_fax_rec,
p_web_rec => l_vendor_web_rec,
x_contact_point_id => l_vendor_contact_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
dbms_output.put_line('l_return_status:' || l_return_status);
dbms_output.put_line('l_msg_count:' || l_msg_count);
dbms_output.put_line('l_msg_data:' || l_msg_data);
dbms_output.put_line('l_vendor_contact_id:' || l_vendor_contact_id);
dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));
END;
--创建供应商地址上的传真号码
DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);
l_vendor_contact_rec hz_contact_point_v2pub.contact_point_rec_type;
l_vendor_edi_rec hz_contact_point_v2pub.edi_rec_type;
l_vendor_email_rec hz_contact_point_v2pub.email_rec_type;
l_vendor_phone_rec hz_contact_point_v2pub.phone_rec_type;
l_vendor_fax_rec hz_contact_point_v2pub.telex_rec_type;
l_vendor_web_rec hz_contact_point_v2pub.web_rec_type;
l_vendor_contact_id NUMBER;
BEGIN
fnd_global.apps_initialize(0, 50737, 20005);
mo_global.init('SQLAP');
--
l_vendor_contact_rec.owner_table_name := 'HZ_PARTY_SITES';
l_vendor_contact_rec.owner_table_id := 7037;
l_vendor_contact_rec.contact_point_type := 'PHONE';
l_vendor_contact_rec.created_by_module := 'POS_SUPPLIER_MGMT';
l_vendor_phone_rec.phone_area_code := '010';
l_vendor_phone_rec.phone_number := '017809091134';
l_vendor_phone_rec.phone_line_type := 'FAX';--传真
hz_contact_point_v2pub.create_contact_point(p_init_msg_list => fnd_api.g_true,
p_contact_point_rec => l_vendor_contact_rec,
p_edi_rec => l_vendor_edi_rec,
p_email_rec => l_vendor_email_rec,
p_phone_rec => l_vendor_phone_rec,
p_telex_rec => l_vendor_fax_rec,
p_web_rec => l_vendor_web_rec,
x_contact_point_id => l_vendor_contact_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
dbms_output.put_line('l_return_status:' || l_return_status);
dbms_output.put_line('l_msg_count:' || l_msg_count);
dbms_output.put_line('l_msg_data:' || l_msg_data);
dbms_output.put_line('l_vendor_contact_id:' || l_vendor_contact_id);
dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));
END;
创建供应商联系人目录的联系人信息
DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);
l_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
l_vendor_contact_id NUMBER;
l_per_party_id NUMBER;
l_rel_party_id NUMBER;
l_rel_id NUMBER;
l_org_contact_id NUMBER;
l_party_site_id NUMBER;
BEGIN
fnd_global.apps_initialize(1670, 50728, 200);
mo_global.init('SQLAP');
--
l_vendor_contact_rec.vendor_id := 133003;
l_vendor_contact_rec.person_last_name := '赵六';
l_vendor_contact_rec.person_title := '销售经理';
l_vendor_contact_rec.area_code := '010';
l_vendor_contact_rec.phone := '12345678';
l_vendor_contact_rec.fax_area_code := '010';
l_vendor_contact_rec.fax_phone := '12345678';
l_vendor_contact_rec.email_address := 'xxx@163.com';
ap_vendor_pub_pkg.create_vendor_contact(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 => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_vendor_contact_rec => l_vendor_contact_rec,
x_vendor_contact_id => l_vendor_contact_id,
x_per_party_id => l_per_party_id,
x_rel_party_id => l_rel_party_id,
x_rel_id => l_rel_id,
x_org_contact_id => l_org_contact_id,
x_party_site_id => l_party_site_id);
dbms_output.put_line('l_return_status:' || l_return_status);
dbms_output.put_line('l_msg_count:' || l_msg_count);
dbms_output.put_line('l_msg_data:' || l_msg_data);
dbms_output.put_line('l_vendor_contact_id:' || l_vendor_contact_id);
dbms_output.put_line('l_per_party_id:' || l_per_party_id);
dbms_output.put_line('l_rel_party_id:' || l_rel_party_id);
dbms_output.put_line('l_rel_id:' || l_rel_id);
dbms_output.put_line('l_org_contact_id:' || l_org_contact_id);
dbms_output.put_line('l_party_site_id:' || l_party_site_id);
dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));
END;
创建供应商银行账户/创建银行账户
--创建供应商银行账户 created by jenrry 20170419
DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);
x_bank_acct_id number;
l_joint_acct_owner_id number;
l_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
x_response_rec iby_fndcpt_common_pub.result_rec_type;
BEGIN
fnd_global.apps_initialize(0, 50737, 20005);
mo_global.init('SQLAP');
--
l_ext_bank_acct_rec.bank_account_name := '银行账号006';
l_ext_bank_acct_rec.bank_account_num := '20170418006';
l_ext_bank_acct_rec.acct_owner_party_id := 9057;
l_ext_bank_acct_rec.country_code := 'CN';
l_ext_bank_acct_rec.bank_id := 5050;
l_ext_bank_acct_rec.branch_id := 5051;
l_ext_bank_acct_rec.START_DATE := sysdate;
iby_ext_bankacct_pub.create_ext_bank_acct(p_api_version => 1.0,
p_init_msg_list => fnd_api.G_FALSE,
p_ext_bank_acct_rec => l_ext_bank_acct_rec,
p_association_level => 'AO',
p_supplier_site_id => 3007,
p_party_site_id => 7037,
p_org_id => 142,
p_org_type => 'OPERATING_UNIT', --Bug7136876: new parameter
x_acct_id => x_bank_acct_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_response => x_response_rec);
dbms_output.put_line('l_return_status:' || l_return_status);
dbms_output.put_line('l_msg_count:' || l_msg_count);
dbms_output.put_line('l_msg_data:' || l_msg_data);
dbms_output.put_line('x_bank_acct_id:' || x_bank_acct_id);
dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));
END;
/*
The details of the mandatory parameters to be passed for each level is given below:
1.Supplier level: p_association_level should have 'S' (case sensitive)
2.Supplier site level: p_association_level should have 'SS'(case sensitive)
p_supplier_site_id should have the supplier id.
3.Address level: p_association_level should have 'A'(case sensitive)
p_party_site_id should have the party_site_id of particular address
4.Address- operating unit: p_association_level should have 'AO'(case sensitive)
p_party_site_id should have the party_site_id of the address
p_org_id should have the org_id.
*/
土豆君
