--以下脚本于20180114在Tony环境实现
DECLARE
l_bom_header_rec bom_bo_pub.bom_head_rec_type;
l_bom_component_tbl bom_bo_pub.bom_comps_tbl_type;
x_bom_header_rec bom_bo_pub.bom_head_rec_type;
x_bom_revision_tbl bom_bo_pub.bom_revision_tbl_type;
x_bom_component_tbl bom_bo_pub.bom_comps_tbl_type;
x_bom_ref_designator_tbl bom_bo_pub.bom_ref_designator_tbl_type;
x_bom_sub_component_tbl bom_bo_pub.bom_sub_component_tbl_type;
x_bom_comp_ops_tbl bom_bo_pub.bom_comp_ops_tbl_type;
x_return_status VARCHAR2(1);
x_msg_count NUMBER;
x_message_list error_handler.error_tbl_type;
l_index NUMBER := 1;
l_index1 NUMBER := 2;
l_user_id NUMBER := 1110; --User ID, Sysadmin here
l_cur_mfg_org_code VARCHAR2(240) := 'XIU';
BEGIN
-- Initialize first, or create_by will be -1
fnd_global.apps_initialize(user_id => 1110,
resp_id => 50597,
resp_appl_id => 20003);
-- BOM
l_bom_header_rec.transaction_type := 'CREATE';
l_bom_header_rec.organization_code
DECLARE
l_bom_header_rec bom_bo_pub.bom_head_rec_type;
l_bom_component_tbl bom_bo_pub.bom_comps_tbl_type;
x_bom_header_rec bom_bo_pub.bom_head_rec_type;
x_bom_revision_tbl bom_bo_pub.bom_revision_tbl_type;
x_bom_component_tbl bom_bo_pub.bom_comps_tbl_type;
x_bom_ref_designator_tbl bom_bo_pub.bom_ref_designator_tbl_type;
x_bom_sub_component_tbl bom_bo_pub.bom_sub_component_tbl_type;
x_bom_comp_ops_tbl bom_bo_pub.bom_comp_ops_tbl_type;
x_return_status VARCHAR2(1);
x_msg_count NUMBER;
x_message_list error_handler.error_tbl_type;
l_index NUMBER := 1;
l_index1 NUMBER := 2;
l_user_id NUMBER := 1110; --User ID, Sysadmin here
l_cur_mfg_org_code VARCHAR2(240) := 'XIU';
BEGIN
-- Initialize first, or create_by will be -1
fnd_global.apps_initialize(user_id => 1110,
resp_id => 50597,
resp_appl_id => 20003);
-- BOM
l_bom_header_rec.transaction_type := 'CREATE';
l_bom_header_rec.organization_code

这篇博客介绍了如何在Oracle E-Business Suite(EBS)中通过PL/SQL脚本创建物料清单(BOM)。脚本详细定义了BOM头记录和组件记录,并调用了bom_bo_pub过程来处理BOM,同时包含了错误处理和回滚逻辑。
最低0.47元/天 解锁文章
396

被折叠的 条评论
为什么被折叠?



