--[[
|
编码: WMS-04-04
|
名称: 货位-货位信息校正
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： CheckLocAttr
|
|
功能:
|
-- 把当前容量>=1 并且该货位没有绑定容器的货位表属性 N_CURRENT_NUM 设置为 0
|
|
更改记录:
|
|
--]]
|
wms_base = require( "wms_base" )
|
|
function CheckLocAttr ( strLuaDEID )
|
local nRet, strRetInfo
|
|
local strCondition = "N_CURRENT_NUM >= 1 and S_CODE NOT IN ( select S_LOC_CODE FROM TN_Loc_Container )"
|
|
-- 获取货位信息存在问题的货位
|
local strOrder = "S_CODE"
|
nRet, strRetInfo = mobox.queryDataObjAttr(strLuaDEID, "Location", strCondition, strOrder,"S_CODE" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【货位】信息失败! " .. strRetInfo) end
|
if ( strRetInfo == '' ) then return end
|
local location = {}
|
local n, nCount
|
local success
|
local attrs
|
|
success, location = pcall( json.decode, strRetInfo)
|
if ( success == false ) then lua.Error( strLuaDEID, debug.getinfo(1), "非法的JSON格式!"..warehouse ) end
|
|
nCount = #location
|
if ( nCount == 0 ) then return end
|
-- 组织prompt 信息
|
local dirty_loc_code_set = ''
|
for n = 1, nCount do
|
attrs = location[n].attrs
|
dirty_loc_code_set = dirty_loc_code_set..'"'..attrs[1].value..'",'
|
end
|
if ( dirty_loc_code_set ~= "") then
|
mobox.setInfo( strLuaDEID, dirty_loc_code_set )
|
end
|
|
local strUpdateSql = "N_CURRENT_NUM = 0"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Location", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【货位】信息失败!"..strRetInfo ) end
|
end
|
