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.
*/