ebs供应商接口开发实例

declare
lv_ap_suppliers_int ap_suppliers_int%rowtype;
lv_ap_supplier_sites_int ap_supplier_sites_int%rowtype;
lv_ap_sup_site_contact_int ap_sup_site_contact_int%rowtype;

lv_vendor_interface_id number;
lv_vendor_site_interface_id number;

lv_request_id number;

lv_Wait BOOLEAN;
lv_Phase VARCHAR2(80);
lv_Status VARCHAR2(80);
lv_Dev_Phase VARCHAR2(80);
lv_Dev_Status VARCHAR2(80);
lv_Message VARCHAR2(80);
begin
--fnd_global.apps_initialize(user_id => 1110,
-- resp_id => 20639,
-- resp_appl_id => 200);
lv_vendor_interface_id := ap_suppliers_int_s.nextval;
lv_ap_suppliers_int.vendor_interface_id := lv_vendor_interface_id;
lv_ap_suppliers_int.vendor_name := 'zhm20180523-006';
lv_ap_suppliers_int.segment1 := 'zhm20180523-006';
lv_ap_suppliers_int.vendor_type_lookup_code := 'VENDOR';
lv_ap_suppliers_int.creation_date := sysdate;
lv_ap_suppliers_int.created_by := -1;

INSERT INTO ap_suppliers_int VALUES lv_ap_suppliers_int;
lv_vendor_site_interface_id := ap_supplier_sites_int_s.nextval;
lv_ap_supplier_sites_int.vendor_interface_id := lv_vendor_interface_id;
lv_ap_supplier_sites_int.vendor_site_interface_id := lv_vendor_site_interface_id;
lv_ap_supplier_sites_int.vendor_site_code := '1001';
lv_ap_supplier_sites_int.address_line1 := 'BEIJING201805231549';
lv_ap_supplier_sites_int.address_line2 := null;
lv_ap_supplier_sites_int.address_line3 := null;
lv_ap_supplier_sites_int.address_line4 := null;
lv_ap_supplier_sites_int.org_id := '101';
lv_ap_supplier_sites_int.country := 'CN';
lv_ap_supplier_sites_int.purchasing_site_flag := 'Y';
lv_ap_supplier_sites_int.pay_site_flag := 'Y';
lv_ap_supplier_sites_int.rfq_only_site_flag := 'N';
lv_ap_supplier_sites_int.creation_date := sysdate;
lv_ap_supplier_sites_int.created_by := -1;
INSERT INTO ap_supplier_sites_int VALUES lv_ap_supplier_sites_int;
/*
lv_ap_sup_site_contact_int.vendor_contact_interface_id := ap_supplier_sites_int_s.nextval;
lv_ap_sup_site_contact_int.vendor_interface_id := lv_vendor_interface_id;
lv_ap_sup_site_contact_int.org_id := 101;
--lv_ap_sup_site_contact_int.vendr_site_id := '';
lv_ap_sup_site_contact_int.first_name := '张';
lv_ap_sup_site_contact_int.last_name := '学友';
lv_ap_sup_site_contact_int.middle_name := null;
lv_ap_sup_site_contact_int.prefix := null;
lv_ap_sup_site_contact_int.title := null;
lv_ap_sup_site_contact_int.mail_stop := null;
lv_ap_sup_site_contact_int.area_code := null;
lv_ap_sup_site_contact_int.phone := null;
lv_ap_sup_site_contact_int.creation_date := sysdate;
lv_ap_sup_site_contact_int.created_by := null;
insert into ap_sup_site_contact_int values lv_ap_sup_site_contact_int;
--*/
-- commit;

lv_request_id := fnd_request.submit_request(application => 'SQLAP',
program => 'APXSUIMP',
description => '',
start_time => SYSDATE,
sub_request => NULL,
argument1 => 'ALL',
argument2 => 1000,
argument3 => 'N',
argument4 => 'Y',
argument5 => 'Y'
);
commit;
if lv_request_id > 0 then
dbms_output.put_line(lv_request_id);
lv_Wait := fnd_concurrent.wait_for_request(request_id => lv_request_id,
interval => 3,
max_wait => 0,
phase => lv_Phase,
status => lv_status,
dev_phase => lv_dev_phase ,
dev_status => lv_dev_status,
message => lv_message);

lv_request_id := fnd_request.submit_request(application => 'SQLAP',
program => 'APXSSIMP',
description => '',
start_time => SYSDATE,
sub_request => NULL,
argument1 => 'ALL',
argument2 => 1000,
argument3 => 'N',
argument4 => 'Y',
argument5 => 'Y'
);
dbms_output.put_line(lv_request_id);
else
dbms_output.put_line('请求提交失败');
end if;--*/
commit;
end;
--供应商开放接口导入
--供应商站点开放接口导入
--供应商地点联系人开放接口导入

declare
lv_request_id number;

lv_Wait BOOLEAN;
lv_Phase VARCHAR2(80);
lv_Status VARCHAR2(80);
lv_Dev_Phase VARCHAR2(80);
lv_Dev_Status VARCHAR2(80);
lv_Message VARCHAR2(80);
begin
fnd_global.apps_initialize(user_id => 1110,
resp_id => 20639,
resp_appl_id => 200);
lv_request_id := fnd_request.submit_request(application => 'SQLAP',
program => 'APXSUIMP',
description => '',
start_time => SYSDATE,
sub_request => NULL,
argument1 => 'ALL',
argument2 => 1000,
argument3 => 'N',
argument4 => 'Y',
argument5 => 'Y',
argument6 => chr(0)
);
commit;
if lv_request_id > 0 then
dbms_output.put_line(lv_request_id);
lv_Wait := fnd_concurrent.wait_for_request(request_id => lv_request_id,
interval => 3,
max_wait => 0,
phase => lv_Phase,
status => lv_status,
dev_phase => lv_dev_phase ,
dev_status => lv_dev_status,
message => lv_message);

lv_request_id := fnd_request.submit_request(application => 'SQLAP',
program => 'APXSSIMP',
description => '',
start_time => SYSDATE,
sub_request => NULL,
argument1 => 'ALL',
argument2 => 1000,
argument3 => 'N',
argument4 => 'Y',
argument5 => 'Y',
argument6 => chr(0)
);
dbms_output.put_line(lv_request_id);
else
dbms_output.put_line('请求提交失败');
end if;
commit;
end;

select * from ap_suppliers_int;

select*
from ap_supplier_sites_int psint
-- for update
;

select * from ap_sup_site_contact_int for update;

select *
delete
from ap_supplier_int_rejections;

select *
from po_vendors
where vendor_name = 'zhm20180523-002'
;
select *
from po_vendor_sites_all psite
where psite.VENDOR_ID = 7006
;
select *
from fnd_user fu
where fu.user_name = 'YYSOFT_ZHM' ;

SELECT *
FROM fnd_responsibility_tl frt
WHERE frt.responsibility_name = '应付款系统管理员'
;
SELECT *
FROM fnd_application

ebs供应商接口开发实例

猜你喜欢