首页 > 代码库 > whole LPN子库存转移 + whole LPN项目转移
whole LPN子库存转移 + whole LPN项目转移
WMS中整箱进行子库存转移和项目转移:
将货位上的物料整箱的进行转移
IF l_status = fnd_api.g_ret_sts_success THEN
dbms_output.put_line( ‘start subtransfer‘);
l_trx_hdr_id := mtl_material_transactions_s.nextval;
l_lpn_trx_result := inv_trx_util_pub.insert_line_trx(p_trx_hdr_id => l_trx_hdr_id,
p_cnt_lpn_id => l_lpn_id,
p_from_lpn_id => NULL ,
p_xfr_lpn_id => NULL ,
p_org_id => l_organization_id,
p_subinv_code => l_subinv_code, -- 来源子库
p_tosubinv_code => i.dest_subinventory_name, --
p_locator_id => l_locator_id, -- 来源货位
p_tolocator_id => l_to_locator_id,
p_item_id => -1, --
p_uom => ‘X‘, -- 没填
p_trx_action_id => 2 ,
p_trx_type_id => 2 ,
p_trx_src_type_id => 13 ,
p_trx_src_id => NULL ,
p_trx_qty => -1,
p_pri_qty => -1,
p_date => SYSDATE,
p_user_id => -1,
x_trx_tmp_id => x_trx_tmp_id,
x_proc_msg => x_proc_msg);
IF l_lpn_trx_result = -1 THEN
l_status := fnd_api.g_ret_sts_error;
l_message := ‘子库存转移出错:‘ || x_proc_msg;
END IF ;
END IF ;
IF l_status = fnd_api.g_ret_sts_success THEN
l_lpn_trx_result := inv_lpn_trx_pub.process_lpn_trx(p_trx_hdr_id => l_trx_hdr_id,
p_business_flow_code => 20 ,
x_proc_msg => x_proc_msg);
IF l_lpn_trx_result = -1 THEN
l_status := fnd_api.g_ret_sts_error;
l_message := ‘Error in inv_trx_util_pub.process_lpn_trx:‘ ||
x_proc_msg;
END IF ;
END IF ;
whole LPN子库存转移 + whole LPN项目转移
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。