--[[
|
编码: WMS-03-11
|
名称: 库区-库区初始化
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： ClearStorageArea
|
|
功能:
|
主要用在实施测试阶段，清空某库区用
|
|
-- 清除和这个库区相关的 锁
|
-- 库区货位绑定容器全部解绑
|
-- 货位表 Location N_LOCK_STATE = 0 S_LOCK_OP = ‘’ T_EMPTY_TIME = 当前日期 T_FULL_TIME = 1900 N_CURRENT_NUM = 0
|
-- 逻辑库区量 重置
|
-= 库区量表 清空
|
更改记录:
|
|
--]]
|
|
wms_wh = require( "wms_wh" )
|
|
local function area_initial( strLuaDEID, wh_code, area_code )
|
local nRet, strRetInfo
|
|
-- 删除锁表
|
local strCondition = "S_AREA_CODE = '" .. area_code .."'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Lock", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【锁】失败!"..strRetInfo) end
|
|
-- 删除【货位容器绑定】Loc_Container
|
strCondition = "S_LOC_CODE IN (SELECT S_CODE FROM TN_Location WHERE S_AREA_CODE = '"..area_code.."')"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Loc_Container", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【货位容器绑定】失败!"..strRetInfo) end
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "LC_Log", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【货位容器绑定记录】失败!"..strRetInfo) end
|
|
-- 更新货位表信息
|
local curTime = os.date("%Y-%m-%d %H:%M:%S")
|
local strSetSQL = "S_LOCK_STATE ='无', N_LOCK_STATE = 0, S_LOCK_OP = '', N_CURRENT_NUM = 0, T_FULL_TIME = '1900-1-1 0:0:0',T_EMPTY_TIME = '"..curTime.."'"
|
strCondition = "S_AREA_CODE = '"..area_code.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "Location", strCondition, strSetSQL)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "设置【货位】信息失败!"..strRetInfo) end
|
|
-- 减去仓库量表
|
-- 获取库区量表
|
strCondition = "S_AREA_CODE = '"..area_code.."'"
|
nRet, strRetInfo = mobox.queryDataObjAttr2( strLuaDEID, "AZ_Inventory", strCondition, "", 100, "S_ITEM_CODE",
|
"S_ITEM_NAME","S_ITEM_SPEC","F_QTY")
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "查询【库区量表】信息失败!"..strRetInfo) end
|
|
if ( strRetInfo ~= '' ) then
|
local queryInfo = json.decode(strRetInfo)
|
local queryID = queryInfo.queryID
|
local nPageCount = queryInfo.pageCount
|
local nPage = 1
|
local dataSet = queryInfo.dataSet
|
local n
|
local attrs
|
local strAddAttr, strBaseAttr
|
local nOpType = 4 -- 出库减量表
|
local strItemInfo = {}
|
local strChgItem
|
local strZoneCode = ''
|
|
strItemInfo.wh_code = wh_code
|
strItemInfo.area_code = area_code
|
|
while (nPage <= nPageCount) do
|
strChgItem = ''
|
for n = 1, #dataSet do
|
attrs = m3.KeyValueAttrsToObjAttr(dataSet[n].attrs)
|
|
-- 获取查询出来的数据属性,减库存量
|
strItemInfo.item_code = attrs.S_ITEM_CODE
|
strItemInfo.item_name = attrs.S_ITEM_NAME
|
strItemInfo.qty = attrs.F_QTY
|
strChgItem = strChgItem..lua.table2str(strItemInfo)..','
|
|
end
|
if ( strChgItem ~= '') then
|
strChgItem = '['..lua.trim_laster_char( strChgItem )..']'
|
nRet, strRetInfo = wms.wms_AddWHInventoryChange( strLuaDEID, nOpType, strChgItem )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "wms_AddWHInventoryChange 失败!"..strRetInfo) 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), "查询【库区量表】失败! nPage="..nPage.." "..strRetInfo )
|
end
|
queryInfo = json.decode(strRetInfo)
|
dataSet = queryInfo.dataSet
|
end
|
end
|
end
|
|
-- 删除库区量表
|
local strCondition = "S_AREA_CODE = '" .. area_code .."'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "AZ_Inventory", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【库区量表】失败!"..strRetInfo) end
|
|
-- 更新逻辑库区
|
local strSetSQL = "S_LOCK_STATE ='无', N_LOCK_STATE = 0"
|
strCondition = "S_AREA_CODE = '"..area_code.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "Zone", strCondition, strSetSQL)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "设置【货位】信息失败!"..strRetInfo) end
|
|
-- 调用 WMS 服务后台函数 重置逻辑库区 存储量
|
-- 获取库区里的逻辑库区
|
local zone_list = wms_wh.GetAreaZoneList(area_code)
|
local n
|
local zone_code = ''
|
for n = 1, #zone_list do
|
zone_code = zone_code..zone_list[n]..';'
|
end
|
-- 重置逻辑库区中货位的可用量，后面的参数=1 表示要先重置货位中的容量，包括内存中的
|
nRet, strRetInfo = wms.wms_ResetZoneStoreNum( strLuaDEID, zone_code, 1 )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), strRetInfo ) end
|
end
|
|
function ClearStorageArea ( strLuaDEID )
|
local nRet, strRetInfo
|
|
-- step1 获取当前选中的库区
|
local data_json
|
nRet, data_json = m3.GetSysDataJson( strLuaDEID )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), data_json ) end
|
|
local obj_attrs = {}
|
for n = 1, #data_json do
|
obj_attrs = m3.KeyValueAttrsToObjAttr( data_json[n].attrs )
|
area_initial( strLuaDEID, obj_attrs.S_WH_CODE, obj_attrs.S_CODE )
|
end
|
|
end
|
