--[[
|
编码: JX-24-19
|
名称: 出库单-完工回报
|
作者：HAN
|
日期：2025-1-29
|
级别：项目
|
|
函数： CompletionReturn
|
|
功能:
|
检查一下【出库单】中出库明细中的出库数量是否等于 计划出库数量，如果全部都已经出库完成
|
需要把出库情况反馈给上游系统，根据出库单的创建方式不同向不同的来源报完工
|
|
更改记录:
|
V2.0 HAN 20241126
|
拣料箱相同只出现一个
|
--]]
|
jx_base= require( "jx_base" )
|
jx_api = require ( "jx_external_api")
|
|
local function set_outbound_detail_pick_box_code( strLuaDEID, oo_no )
|
local nRet, strRetInfo, pick_box_code, n, m, strUpdateSql
|
|
local strCondition = "S_OO_NO = '"..oo_no.."'"
|
local strOrder = "N_ROW_NO"
|
local oo_detail_objs
|
nRet, oo_detail_objs = m3.QueryDataObject(strLuaDEID, "Outbound_Detail", strCondition, strOrder)
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "获取【Outbound_Detail】信息失败! " .. oo_detail_objs)
|
end
|
local obj_attrs, dc_detail_objs
|
-- 遍历出库单明细
|
for n = 1, #oo_detail_objs do
|
local picking_box_set = {}
|
obj_attrs = m3.KeyValueAttrsToObjAttr(oo_detail_objs[n].attrs)
|
|
-- 从【配盘明细】中获取 拣料箱编码
|
strCondition = "S_BS_NO = '"..oo_no.."' AND S_BS_TYPE = 'Outbound_Order' AND S_ITEM_CODE = '"..obj_attrs.S_ITEM_CODE.."'"
|
nRet, dc_detail_objs = m3.QueryDataObject(strLuaDEID, "Distribution_CNTR_Detail", strCondition, "")
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "获取【Distribution_CNTR_Detail】信息失败! " .. dc_detail_objs)
|
end
|
pick_box_code = ''
|
for m = 1, #dc_detail_objs do
|
obj_attrs = m3.KeyValueAttrsToObjAttr(dc_detail_objs[m].attrs)
|
-- V2.0 检查一下拣料箱是否已经存在
|
if ( lua.IsInTable( obj_attrs.S_PICK_BOX_CODE, picking_box_set ) == false ) then
|
table.insert( picking_box_set, obj_attrs.S_PICK_BOX_CODE )
|
if ( pick_box_code ~= '' ) then
|
pick_box_code = pick_box_code..","
|
end
|
pick_box_code = pick_box_code..obj_attrs.S_PICK_BOX_CODE
|
end
|
end
|
|
strUpdateSql = "S_PICK_BOX_CODE = '"..pick_box_code.."'"
|
strCondition = "S_ID = '"..oo_detail_objs[n].id.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Detail", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【预分配容器】信息失败!"..strRetInfo ) end
|
end
|
end
|
|
function CompletionReturn ( strLuaDEID )
|
local nRet, strRetInfo
|
local oo_obj = {}
|
nRet, oo_obj = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Order" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【出库单】对象属性失败!"..oo_obj ) end
|
|
-- 如果已经报过完工或报工,不需要报完工，如果没完成也不需要执行后面的报告
|
-- b_state = 4 出库单状态为完成
|
if ( oo_obj.cr_state ~= 0 or oo_obj.b_state ~= 4 ) then return end
|
|
if ( oo_obj.create_method == "JW-WMS" ) then
|
-- 把【配盘明细】中的 pick_box_code 加到 出库单明细中
|
set_outbound_detail_pick_box_code( strLuaDEID, oo_obj.no )
|
nRet, strRetInfo = jx_api.JW_WMS_API_subPickDown( strLuaDEID, oo_obj.no )
|
else
|
nRet = 0
|
end
|
|
-- 更新出库单的完工回报属性
|
local curTime = os.date("%Y-%m-%d %H:%M:%S")
|
strCondition = "S_NO = '"..oo_obj.no.."'"
|
local strSetAttr
|
if ( nRet == 0 ) then
|
strSetAttr = "N_B_STATE = 4, N_CR_STATE = 1, S_CR_ERR = '', T_CR = '"..curTime.."'"
|
else
|
lua.Debug( strLuaDEID, debug.getinfo(1), "JW-WMS subPickDown接口错误", strRetInfo )
|
strSetAttr = "N_B_STATE = 4, N_CR_STATE = 2, S_CR_ERR = 'JW-WMS subPickDown接口错误, 详细信息看日志!', T_CR = '"..curTime.."'"
|
end
|
|
lua.Debug( strLuaDEID, debug.getinfo(1), "strCondition", strCondition )
|
lua.Debug( strLuaDEID, debug.getinfo(1), "strSetAttr", strSetAttr )
|
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strSetAttr )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】完工回报信息失败!"..strRetInfo ) end
|
end
|
