ebs供应商接口开发实例

最新推荐文章于 2024-03-08 15:55:37 发布

原创

最新推荐文章于 2024-03-08 15:55:37 发布 · 1.7k 阅读

CC 4.0 BY-SA版权

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_