/* Formatted on 2014-9-26 16:48:42 (QP5 v5.115.810.9015) */
DECLARE
L_IFACE_REC MTL_ITEM_CATEGORIES_INTERFACE%ROWTYPE;
L_CUR_MFG_ORG_ID NUMBER := 107; --Current Inv Organization--物料类别只需更新主组织,其他组织会自动同步
L_USER_ID NUMBER := FND_GLOBAL.USER_ID; --User ID, Sysadmin here
L_LOGIN_ID NUMBER := FND_GLOBAL.LOGIN_ID;
L_COUNT NUMBER;
L_REQ_ID NUMBER;
BEGIN
L_IFACE_REC.LAST_UPDATED_BY := L_USER_ID;
L_IFACE_REC.LAST_UPDATE_DATE := SYSDATE;
L_IFACE_REC.CREATED_BY := L_USER_ID;
L_IFACE_REC.CREATION_DATE := SYSDATE;
L_IFACE_REC.SET_PROCESS_ID := 10;
L_IFACE_REC.TRANSACTION_TYPE := 'UPDATE';
L_IFACE_REC.PROCESS_FLAG := 1;
L_IFACE_REC.ORGANIZATION_ID := L_CUR_MFG_ORG_ID;
L_IFACE_REC.INVENTORY_ITEM_ID := 14737558 ;
L_IFACE_REC.CATEGORY_SET_ID := 1;
L_IFACE_REC.CATEGORY_ID := 147230 ;
L_IFACE_REC.OLD_CATEGORY_ID := 2129;
INSERT INTO MTL_ITEM_CATEGORIES_INTERFACE
VALUES L_IFACE_REC;
END LOOP;
COMMIT;
--环境初始化
fnd_global.apps_initialize(user_id => 11236,--1533, --GBY8627
resp_id => 50606, --XYG-DG-超白玻璃-库存超级用户:具有以下请求权限的职责即可
resp_appl_id => 401); --Inventory
--提交请求:物料类别分配开放接口
l_req_id := fnd_request.submit_request(application => 'INV',
program => 'INV_ITEM_CAT_ASSIGN_OI',
description => null,
argument1 => 10, --SET_PROCESS_ID:记录集标识
argument2 => 1, --加载已处理的记录:1为是,0为否
argument3 => 1); --删除已处理的记录:1为是,0为否
dbms_output.put_line('l_req_id=' || l_req_id);
COMMIT;
END ;