--[[
|
编码: WMS-16-21
|
名称: 盘点计划-刷新计划盘点容器货位信息
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： ResetContainerLocInfo
|
|
功能:
|
根据计划盘点号找出 CP_Count_Container 中 N_B_STATE = 0 的容器
|
获取容器的位置信息,设置 S_LOC_CODE
|
|
更改记录:
|
|
--]]
|
wms_wh = require( "wms_wh" )
|
|
function ResetContainerLocInfo ( strLuaDEID )
|
local nRet, strRetInfo, n
|
local count_plan
|
nRet, count_plan = m3.GetSysCurEditDataObj( strLuaDEID, "Count_Plan" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..count_plan ) end
|
|
-- 如果不是执行中的 盘点计划 不做这个设置
|
if ( count_plan.b_state ~= 2 ) then
|
lua.Warning( strLuaDEID, debug.getinfo(1), "盘点计划编号 = '"..count_plan.cp_no.."' 目前的状态不能做计划盘点容器货位定制!" )
|
return
|
end
|
|
-- 获取容器所在的货位
|
local strCondition, strClsID
|
local strOrder = ''
|
strCondition = "S_CNTR_CODE IN ( Select S_CNTR_CODE From TN_CP_Count_Container Where (N_B_STATE = 0 or N_B_STATE = 1) AND"
|
strCondition = strCondition.." S_CP_NO ='"..count_plan.cp_no.."')"
|
|
-- 多页查询
|
nRet, strRetInfo = mobox.queryDataObjAttr2( strLuaDEID, "Loc_Container", strCondition, strOrder, 100, "S_LOC_CODE","S_CNTR_CODE" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2: "..strRetInfo) end
|
if ( strRetInfo == '' ) then return end
|
local success
|
local queryInfo
|
success, queryInfo = pcall( json.decode, strRetInfo )
|
if ( success == false ) then lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2 返回结果啊非法的JSON格式!" ) end
|
|
local queryID = queryInfo.queryID
|
local nPageCount = queryInfo.pageCount
|
local nPage = 1
|
local dataSet = queryInfo.dataSet -- 查询出来的数据集
|
local strSetAttr, loc_code, cntr_code
|
local loc
|
while (nPage <= nPageCount) do
|
|
for n = 1, #dataSet do
|
loc_code = dataSet[n].attrs[1].value
|
cntr_code = dataSet[n].attrs[2].value
|
|
nRet, loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet == 0 ) then
|
strCondition = "S_CP_NO = '"..count_plan.cp_no.."' AND S_CNTR_CODE = '"..cntr_code.."'"
|
strSetAttr = "S_LOC_CODE = '"..loc.code.."', S_WH_CODE = '"..loc.wh_code.."'"..
|
", S_AREA_CODE = '"..loc.area_code.."', N_AISLE = "..loc.aisle..", S_AISLE_CODE = '"..loc.aisle_code.."'"..
|
", N_ROW = "..loc.row..", N_COL = "..loc.col..", N_LAYER = "..loc.layer
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "CP_Count_Container", strCondition, strSetAttr )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "updateDataAttrByCondition失败"..strRetInfo ) end
|
end
|
end
|
|
nPage = nPage + 1
|
if ( nPage <= nPageCount ) then
|
-- 取下一页
|
nRet, strRetInfo = mobox.queryDataObjAttr2( queryID, nPage)
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "queryDataObjAttr2失败! nPage="..nPage.." "..strRetInfo )
|
end
|
queryInfo = json.decode(strRetInfo)
|
dataSet = queryInfo.dataSet
|
end
|
end
|
|
end
|
