ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

EBS员工供应商创建R12

2022-03-02 13:32:21  阅读:50  来源: 互联网

标签:vendor -- 供应商 EBS return rec msg R12 id


---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

专注分享技术,共同学习,共同进步。侵权联系[admin#icode9.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有