EBS员工供应商创建R12

---XY9999999
--select person_id from per_people_f ppf where ppf.EMPLOYEE_NUMBER='XY9999999'

declare
l_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
x_return_status varchar2(2000);
x_msg_count number;
x_msg_data varchar2(2000);
l_vendor_id number;
l_vendor_party_id number;
begin


MO_GLOBAL.init('SQLAP');

l_vendor_rec.vendor_type_lookup_code := 'EMPLOYEE'; -- 员工类型
l_vendor_rec.segment1 := 'XY9999999'; -- 供应商编码
l_vendor_rec.vendor_name := 'weee单独'; -- 供应商名称
l_vendor_rec.employee_id := 3044;
l_vendor_rec.ext_payee_rec.default_pmt_method := 'WIRE'; -- 付款方法:银行转账
pos_vendor_pub_pkg.create_vendor(p_vendor_rec => l_vendor_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_vendor_id => l_vendor_id,
x_party_id => l_vendor_party_id);
dbms_output.put_line(x_return_status ||cux_ifa_common_utl.get_err_msg || chr(10) || l_vendor_id);
end;

标签：vendor,--,供应商,EBS,return,rec,msg,R12,id
来源： https://www.cnblogs.com/gudonkey/p/15954646.html