DECLARE l_group_id NUMBER; l_error_message VARCHAR2(1000); l_error_code NUMBER; BEGIN SELECT bom.bom_explosion_temp_s.nextval --取下一個序列 INTO l_group_id FROM dual; BEGIN apps.bompexpl.exploder_userexit(verify_flag => NULL, org_id => 122, order_by => 1, grp_id => l_group_id, session_id => NULL, levels_to_explode => 10, ----展開十層 bom_or_eng => 1, impl_flag => 1, plan_factor_flag => NULL, explode_option => 2, module => 2, cst_type_id => NULL, std_comp_flag => 2, expl_qty => 1, item_id => 32523, --:inventory_item_id_parent, --- (select inventory_item_id from mtl_system_items_b where organization_id=89 and segment1='FWP14(A)-PLN'), alt_desg => NULL, comp_code => NULL, rev_date => to_char(SYSDATE, 'yyyy/mm/dd hh24:mi:ss'), --版本日期 err_msg => l_error_message, ERROR_CODE => l_error_code); COMMIT; END; dbms_output.put_line(l_error_code || l_error_message); END;
DECLARE err_meg VARCHAR2(100); ERROR_CODE VARCHAR2(100); BEGIN bompxinq.exploder_userexit(verify_flag => 0, org_id => 122, order_by => 1, grp_id => 0, session_id => 0, levels_to_explode => 10, bom_or_eng => 1, -- 1 bom 2 eng impl_flag => 2, plan_factor_flag => 1, explode_option => 1, module => 2, cst_type_id => 2, --average std_comp_flag => 2, expl_qty => 1, item_id => 35463, unit_number_from => NULL, unit_number_to => NULL, alt_desg => '', comp_code => '', rev_date => '', err_msg => err_meg, ERROR_CODE => ERROR_CODE); END;