wms_cntr = require("wms_container")
|
require("WMS-Roadway")
|
wms_op = require("wms_operation")
|
-- index 必须是table才能作为引用参数，函数内的变化才会返回
|
local function get_empty_loc(strLuaDEID, strCondition, empty_loc_set, index, priority)
|
local nRet, strRetInfo
|
local strOrder = "N_COL, N_LAYER" -- 最近巷道口
|
|
-- 最多获取 10 条
|
nRet, strRetInfo = mobox.queryDataObjAttr3(strLuaDEID, "Location", strCondition, 10, strOrder)
|
if (nRet ~= 0) then
|
return 1, "获取货位信息错误! " .. strRetInfo .. " SQL条件: " .. strCondition
|
end
|
|
if (strRetInfo ~= '') then
|
local loc
|
local retObjs = json.decode(strRetInfo)
|
|
for n = 1, #retObjs do
|
nRet, loc = m3.ObjAttrStrToLuaObj("Location", lua.table2str(retObjs[n].attrs))
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "m3.ObjAttrStrToLuaObj(Location) 失败! " .. loc) end
|
|
local empty_loc = {}
|
empty_loc.priority = priority -- 分配优先级最高
|
empty_loc.loc_code = loc.code
|
empty_loc.row = loc.row
|
empty_loc.col = loc.col
|
empty_loc.layer = loc.layer
|
empty_loc_set[index.value] = empty_loc
|
index.value = index.value + 1
|
if (index.value == index.max) then break end
|
end
|
end
|
return 0, ""
|
end
|
|
-- 空货位根据优先级排序 priority, priority 相等根据 col, layer 排序
|
local function empty_loc_sort(a, b)
|
if (a.priority < b.priority) then
|
return true
|
elseif (a.priority == b.priority) then
|
if (a.col < b.col) then
|
return true
|
elseif (a.col == b.col) then
|
return a.layer < b.layer
|
else
|
return false
|
end
|
else
|
return false
|
end
|
end
|
|
-- 巷道任务数量少的放前面, 任务数量 相同balanc值小的放前面
|
local function roadway_balance_sort(a, b)
|
if (a.op_num < b.op_num) then
|
return true
|
elseif (a.op_num == b.op_num) then
|
return a.balance < b.balance
|
else
|
return false
|
end
|
end
|
|
-- 获取【巷道】对象
|
local function get_roadway_dataobject(roadway_list, zone_code)
|
for n = 1, #roadway_list do
|
if (roadway_list[n].zone_code == zone_code) then
|
return roadway_list[n]
|
end
|
end
|
return nil
|
end
|
|
-- 获取 物料\空托 在立库中的内深位对应的外深位
|
--[[
|
输入:
|
area_code -- 库区
|
roadway -- 巷道
|
batch_no -- 批次号
|
is_kt -- true:空托 false:非空托
|
cntr_code -- 托盘号
|
is_true -- true:起点为一楼左侧回库口,设备限制只能入5、6巷道
|
返回:
|
0,{loc_code:xxx}
|
--]]
|
function QueryLocInfo(strLuaDEID, data)
|
local nRet, strRetInfo
|
-- 设置返回获取的货位
|
local ret_value = {}
|
local str_area_code = data.area_code -- 库区
|
local str_roadway = data.roadway -- 巷道
|
local str_batch_no = data.batch_no -- 批次号
|
local is_kt = data.is_kt -- 是否是空托
|
local cntr_code = data.cntr_code -- 托盘号
|
local is_true = data.is_true -- 获取空托外深位时,如果起点为一楼左侧回库口则设备限制只能入5、6巷道
|
|
-- 获取前10条的货位信息
|
local strCondition = "N_LOCK_STATE = 0 AND N_POS = 2 AND S_AREA_CODE = '" .. str_area_code .. "' AND S_CODE IN"
|
if (is_kt == false) then
|
strCondition = strCondition .. " (SELECT S_LOC_CODE FROM TN_Loc_Container WHERE S_CNTR_CODE IN"
|
strCondition = strCondition ..
|
"(SELECT S_CNTR_CODE FROM TN_CG_Detail WHERE S_BATCH_NO = '" .. str_batch_no .. "'))"
|
else
|
-- 托盘和胶框的前6位编码规则不同
|
-- 托盘工装(9000片):106EGPAA0001~106EGPAA3000
|
-- 胶框(42000片):106EGRCA0001~106EGRCA9999和106EGRCB0001~106EGRCB4001
|
local cntr_rule = string.sub(cntr_code, 1, 6) -- 截取前6位字符,用来判断胶框、托盘
|
strCondition = strCondition ..
|
" (SELECT S_LOC_CODE FROM TN_Loc_Container WHERE S_CNTR_CODE LIKE '" .. cntr_rule .. "%'"
|
strCondition = strCondition .. " AND S_CNTR_CODE NOT IN (SELECT S_CNTR_CODE FROM TN_CG_Detail))"
|
|
-- 获取空托外深位时,如果起点为一楼左侧回库口则设备限制只能入5、6巷道
|
if (is_true == true) then
|
str_roadway = wms_base.Get_sConst(strLuaDEID, "佳通-一楼左侧回库口巷道")
|
end
|
end
|
-- 巷道不为空则根据条件筛选巷道
|
if (str_roadway ~= nil and str_roadway ~= '') then
|
strCondition = strCondition .. " AND N_ROADWAY IN (" .. str_roadway .. ")"
|
end
|
nRet, strRetInfo = mobox.queryDataObjAttr3(strLuaDEID, "Location", strCondition, 50, "")
|
if (nRet ~= 0) then
|
return 2, "queryDataObjAttr3失败!" .. strRetInfo
|
end
|
|
-- 没有相同批次物料的货位直接返回
|
if (strRetInfo == '') then return 0, "" end
|
local retObjs = json.decode(strRetInfo)
|
|
local next_loc = {} -- 用来存放外深位编号
|
for i = 1, #retObjs do
|
local attr, roadway, row_group
|
attr = retObjs[i].attrs
|
attr = m3.KeyValueAttrsToObjAttr(attr) -- 数组下标为 i 的货位信息
|
if (attr == nil) then goto coroutine end
|
row_group = tonumber(attr.N_ROW_GROUP) -- 当前货位的排组号
|
local loc_code = attr.S_CODE
|
local loc_code_table = lua.split(loc_code, "-") -- 通过符号分割字符串为数组
|
local loc_row = loc_code_table[2]
|
|
-- 通过库区、排组号 定位巷道信息
|
strCondition = "S_AREA_CODE = '" .. str_area_code .. "' AND (N_LEFT_ROW_GROUP = "
|
.. row_group .. " or N_RIGHT_ROW_GROUP = " .. row_group .. " )"
|
nRet, roadway = mobox.queryDataObjAttr3(strLuaDEID, "Roadway", strCondition, 1, "")
|
if (nRet ~= 0) then
|
return 2, "queryDataObjAttr3失败!" .. strRetInfo
|
end
|
|
roadway = json.decode(roadway)
|
roadway = roadway[1].attrs
|
roadway = m3.KeyValueAttrsToObjAttr(roadway) -- 巷道信息
|
if (roadway == nil) then goto coroutine end
|
|
local row = "" -- 所属巷道信息中的 （内/外 深位）2排 的字符串信息（例: 21,22,）
|
if (row_group == tonumber(roadway.N_LEFT_ROW_GROUP)) then
|
row = roadway.S_LEFT_ROW
|
else
|
row = roadway.S_RIGHT_ROW
|
end
|
local row_table = lua.split(row, ",")
|
local str = ""
|
for j = 1, #row_table do
|
if (loc_row ~= row_table[j]) then
|
str = row_table[j]
|
end
|
end
|
|
if (str == "") then goto coroutine end
|
if (#str == 1) then str = "0" .. str end
|
|
local new_loc_code = loc_code_table[1] .. "-" .. str .. "-" .. loc_code_table[3] .. "-" .. loc_code_table[4]
|
strCondition = "N_LOCK_STATE = 0 AND N_CURRENT_NUM = 0 AND S_CODE = '" .. new_loc_code .. "'"
|
nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, "Location", strCondition)
|
if (nRet ~= 0) then return 1, strRetInfo end
|
if (tonumber(strRetInfo) > 0) then
|
if (#next_loc == 0) then
|
ret_value.loc_code = new_loc_code
|
end
|
end
|
::coroutine::
|
end
|
lua.Debug(strLuaDEID, debug.getinfo(1), 'ret_value', ret_value)
|
return 0, ret_value
|
end
|
|
-- 获取立库内深位对应的外深位
|
function QueryOutLoc(strLuaDEID, loc_code)
|
local loc_code_table = lua.split(loc_code, "-") -- 通过符号分割字符串为数组
|
local loc_row = loc_code_table[2]
|
|
-- 获取货位的信息
|
local nRet, loc_info = wms_wh.GetLocInfo(loc_code)
|
if (nRet ~= 0) then return 2, 'GetLocInfo失败!' .. loc_info end
|
|
-- 通过库区、排组号 定位巷道信息
|
local roadway
|
local strCondition = "S_AREA_CODE = 'LK' AND (N_LEFT_ROW_GROUP = "
|
.. loc_info.row_group .. " or N_RIGHT_ROW_GROUP = " .. loc_info.row_group .. " )"
|
nRet, roadway = mobox.queryDataObjAttr3(strLuaDEID, "Roadway", strCondition, 1, "")
|
if (nRet ~= 0) then return 2, "queryDataObjAttr3失败!" .. strRetInfo end
|
|
roadway = json.decode(roadway)
|
roadway = roadway[1].attrs
|
roadway = m3.KeyValueAttrsToObjAttr(roadway) -- 巷道信息
|
if (roadway == nil) then return 2, "巷道信息获取失败!" end
|
|
local row = "" -- 所属巷道信息中的 （内/外 深位）2排 的字符串信息（例: 21,22,）
|
if (loc_info.row_group == tonumber(roadway.N_LEFT_ROW_GROUP)) then
|
row = roadway.S_LEFT_ROW
|
else
|
row = roadway.S_RIGHT_ROW
|
end
|
local row_table = lua.split(row, ",")
|
local str = ""
|
for j = 1, #row_table do
|
if (loc_row ~= row_table[j]) then
|
str = row_table[j]
|
end
|
end
|
|
if (str == "") then return 2, "获取排失败!" end
|
if (#str == 1) then str = "0" .. str end
|
|
local new_loc_code = loc_code_table[1] .. "-" .. str .. "-" .. loc_code_table[3] .. "-" .. loc_code_table[4]
|
return 0, new_loc_code
|
end
|
|
-- 获取库区里的巷道对象
|
--[[
|
输入:
|
area_code 库区编码
|
bNoLock 可以不输入，默认= false， true 表示获取的zoon不能被禁用
|
返回:
|
字符串 [{roadway-data-object},{}]
|
--]]
|
function GetRoadWayList(strLuaDEID, area_code, bNoLock, condition)
|
local nRet, strRetInfo, strCondition
|
local strOrder = "N_ROADWAY"
|
|
if (bNoLock == nil) then
|
bNoLock = false
|
else
|
bNoLock = true
|
end
|
|
if (area_code == nil or area_code == '') then
|
lua.Error(strLuaDEID, debug.getinfo(1), "调用 WMS_GetZoneListByGroup 函数时参数不正确，库区编码不能为空!")
|
end
|
|
if (condition ~= nil and condition ~= '') then
|
strCondition = "S_AREA_CODE = '" .. area_code .. "' AND N_ROADWAY IN (" .. condition .. ")"
|
else
|
strCondition = "S_AREA_CODE = '" .. area_code .. "'"
|
end
|
|
if (bNoLock) then
|
strCondition = strCondition .. " AND N_LOCK_STATE = 0"
|
end
|
nRet, strRetInfo = mobox.queryDataObjAttr(strLuaDEID, "Roadway", strCondition, strOrder)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "获取【巷道】信息失败! " .. strRetInfo) end
|
|
local return_data = {}
|
if (strRetInfo ~= '') then
|
local retObjs = json.decode(strRetInfo)
|
local n
|
|
for n = 1, #retObjs do
|
local roadway = {}
|
nRet, roadway = m3.ObjAttrStrToLuaObj("Roadway", lua.table2str(retObjs[n].attrs))
|
roadway.id = lua.trim_guid_str(retObjs[n].id)
|
roadway.cls = "Roadway"
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1),
|
"m3.ObjAttrStrToLuaObj(CG_Detail) 失败! " .. cg_detail)
|
end
|
return_data[n] = roadway
|
end
|
end
|
return return_data
|
end
|
|
--[[
|
注：对深位>2的无效
|
area_code -- 库区编码
|
roadway_balance -- 巷道信息
|
ext_condition -- 扩展条件，比如 S_BATCH_NO = 'A1'
|
|
返回：
|
[{loc_code:"",priority:1~3, row:x, col:y, layer:12 }]
|
--]]
|
function GT_GetEmptyLocInRoadway(strLuaDEID, area_code, roadway_balance, ext_condition)
|
local nRet, strRetInfo
|
local strCondition = ''
|
local empty_loc_set = {} -- 空货位集
|
local index = {}
|
index.value = 1
|
index.max = 11 -- 空货位集最多10个
|
|
if (roadway_balance == nil) then
|
return 1, "无效参数!"
|
end
|
if (ext_condition == nil) then ext_condition = '' end
|
|
-- 获取最里面的空货位
|
-- 左边是双深位
|
if (roadway_balance.left_deep == 2) then
|
-- 获取左边最里面的空货位
|
strCondition = "N_CURRENT_NUM = 0 AND S_AREA_CODE = '" ..
|
area_code .. "' AND N_ROW_GROUP = " .. roadway_balance.left_row_group
|
strCondition = strCondition .. " AND N_LOCK_STATE = 0 AND C_ENABLE = 'Y' AND N_POS = 2"
|
if (ext_condition ~= '') then
|
strCondition = strCondition .. "AND N_LAYER IN (" .. ext_condition .. ")"
|
end
|
nRet, strRetInfo = get_empty_loc(strLuaDEID, strCondition, empty_loc_set, index, 2)
|
if (nRet ~= 0) then return 1, strRetInfo end
|
if (index.value >= index.max) then goto go_back end
|
end
|
-- 右边是双深位
|
if (roadway_balance.right_deep == 2) then
|
-- 获取右边最里面的空货位
|
strCondition = "N_CURRENT_NUM = 0 AND S_AREA_CODE = '" ..
|
area_code .. "' AND N_ROW_GROUP = " .. roadway_balance.right_row_group
|
strCondition = strCondition .. " AND N_LOCK_STATE = 0 AND C_ENABLE = 'Y' AND N_POS = 2"
|
if (ext_condition ~= '') then
|
strCondition = strCondition .. "AND N_LAYER IN (" .. ext_condition .. ")"
|
end
|
nRet, strRetInfo = get_empty_loc(strLuaDEID, strCondition, empty_loc_set, index, 2)
|
if (nRet ~= 0) then return 1, strRetInfo end
|
if (index.value >= index.max) then goto go_back end
|
end
|
|
-- 获取左边最外面的空货位
|
strCondition = "N_CURRENT_NUM = 0 AND S_AREA_CODE = '" ..
|
area_code .. "' AND N_ROW_GROUP = " .. roadway_balance.left_row_group
|
strCondition = strCondition .. " AND N_LOCK_STATE = 0 AND C_ENABLE = 'Y' AND N_POS = 1"
|
if (ext_condition ~= '') then
|
strCondition = strCondition .. "AND N_LAYER IN (" .. ext_condition .. ")"
|
end
|
nRet, strRetInfo = get_empty_loc(strLuaDEID, strCondition, empty_loc_set, index, 3)
|
if (nRet ~= 0) then return 1, strRetInfo end
|
if (index.value >= index.max) then goto go_back end
|
|
-- 获取右边最外面的空货位
|
strCondition = "N_CURRENT_NUM = 0 AND S_AREA_CODE = '" ..
|
area_code .. "' AND N_ROW_GROUP = " .. roadway_balance.right_row_group
|
strCondition = strCondition .. " AND N_LOCK_STATE = 0 AND C_ENABLE = 'Y' AND N_POS = 1"
|
if (ext_condition ~= '') then
|
strCondition = strCondition .. "AND N_LAYER IN (" .. ext_condition .. ")"
|
end
|
nRet, strRetInfo = get_empty_loc(strLuaDEID, strCondition, empty_loc_set, index, 3)
|
if (nRet ~= 0) then return 1, strRetInfo end
|
|
::go_back::
|
-- 排序
|
table.sort(empty_loc_set, empty_loc_sort)
|
return 0, empty_loc_set
|
end
|
|
-- 初始化巷道物料均衡值
|
-- 输入参数:
|
-- roadway_list 【巷道】数据对象
|
-- input_paramter 入库的物料信息，{"item_code":"","batch_no":"zz",...}
|
-- 返回: 0 -- 成功 1 -- 没有空余库位 2 -- 错误
|
--[[
|
[
|
{
|
"roadway":1~, "zone_code":"a","amount":0~999, "balance":1~3,"op_num":0,
|
"left_deep":2,"right_deep":1,"left_row_group":1,"right_row_group":2,
|
"location":{"code":"","priority":1~3}},
|
-- roadway 巷道编号 zone_code -- 巷道逻辑库区编码 amount -- 巷道内符合条件的货品所在货位数量
|
-- balance 均衡度
|
-- op_num 作业数量
|
-- location 巷道内优先上架的货位
|
...
|
]
|
-- balance 是货物在巷道内的均衡度 巷道内同批次物料数量为0时，该值=1
|
-- 巷道内同批次物料数量小于目前同批次物料（总数/巷道数）时该值=2，其余为3
|
--]]
|
function Set_roadway_balance(strLuaDEID, roadway_list, input_paramter)
|
local nRet, strRetInfo
|
|
if (input_paramter.batch_no == nil or input_paramter.batch_no == '') then
|
return 2, "输入参数中必须要有物料批次信息(batch_no)"
|
end
|
|
-- 获取 roadway_list 中的逻辑库区编码集合
|
local roadway_code
|
nRet, roadway_code = wms_wh.GetRoadwayZoneCodeSet(roadway_list)
|
if (nRet ~= 0) then return nRet, roadway_code end
|
|
local nTotal, nNum
|
local cg_detail_condtion = "S_BATCH_NO = '" .. input_paramter.batch_no .. "'"
|
local roadway_balance_set = {}
|
|
if (#roadway_code == 0) then
|
return 2, "无可用巷道"
|
end
|
-- 获取逻辑库区中的数量信息,判断如果巷道没空货位就不继续判断
|
nRet, strRetInfo = wms.wms_GetZoneNumInfo(lua.table2str(roadway_code))
|
|
|
-- 返回 [{ "code": "XXX", "store_max": X, "available_in": X, "empty_min": X, "empty_max": X },..]
|
if (nRet ~= 0) then
|
return 2, "wms_GetZoneNumInfo失败!" .. strRetInfo
|
end
|
local roadway_code_info = json.decode(strRetInfo)
|
local nIndex = 1
|
|
nTotal = 0 -- 已经存在的货品在要分配货位巷道中的总数量
|
|
local obj
|
for n = 1, #roadway_code_info do
|
-- 如果有空货位
|
if (roadway_code_info[n].available_in > 0) then
|
-- 获取巷道内存储货品批次 = batch_no 的货位数量
|
nNum = wms_cntr.Get_CG_Detail_Count_InZone(strLuaDEID, roadway_code_info[n].code, cg_detail_condtion)
|
-- 统计该逻辑库区 执行中的任务的 批次入库数量
|
-- 条件
|
-- 1、任务的巷道为当前逻辑库区
|
-- 2、任务的容器批次号要和当前入库批次相同
|
-- 3、任务的类型为 5 立库入库搬运,任务的状态为 1 已推送
|
local strCondition =
|
"S_CODE IN (SELECT S_OP_CODE FROM TN_TASK WHERE N_TYPE = 5 AND N_B_STATE = 1 AND N_ROADWAY = (SELECT N_ROADWAY FROM TN_Roadway WHERE S_ZONE_CODE = '" ..
|
roadway_code_info[n].code .. "'))"
|
strCondition = strCondition ..
|
" AND S_CNTR_CODE IN (SELECT S_CNTR_CODE FROM TN_CG_Detail WHERE " .. cg_detail_condtion .. ")"
|
nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, "Operation", strCondition)
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "getDataObjCount 失败! " .. strRetInfo)
|
end
|
local num = lua.StrToNumber(strRetInfo)
|
nNum = nNum + num -- 巷道内存储货品批次 = batch_no 的货位数量 + 搬运执行中 货品批次 = batch_no 的货位数量
|
|
nTotal = nTotal + nNum
|
|
local roadway_balance = {}
|
roadway_balance.zone_code = roadway_code_info[n].code
|
roadway_balance.amount = nNum
|
roadway_balance.balance = 0
|
roadway_balance.location = {}
|
-- 获取巷道对象
|
obj = get_roadway_dataobject(roadway_list, roadway_balance.zone_code)
|
-- 通过逻辑库区编码获取执行中的巷道任务数量
|
strCondition = "N_ROADWAY = (SELECT N_ROADWAY FROM TN_Roadway WHERE S_ZONE_CODE = '" .. roadway_balance.zone_code .. "') AND N_B_STATE = 1"
|
nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, "Task", strCondition)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "getDataObjCount 失败! " .. strRetInfo) end
|
local op_num = lua.StrToNumber(strRetInfo)
|
|
if (obj ~= nil) then
|
roadway_balance.op_num = op_num
|
roadway_balance.left_deep = obj.left_deep
|
roadway_balance.right_deep = obj.right_deep
|
roadway_balance.left_row_group = obj.left_row_group
|
roadway_balance.right_row_group = obj.right_row_group
|
else
|
roadway_balance.op_num = op_num
|
roadway_balance.left_deep = 0
|
roadway_balance.right_deep = 0
|
roadway_balance.left_row_group = 0
|
roadway_balance.right_row_group = 0
|
end
|
|
roadway_balance_set[nIndex] = roadway_balance
|
nIndex = nIndex + 1
|
end
|
end
|
|
local nCount = #roadway_balance_set
|
if (nCount == 0) then
|
return 1, "巷道没有空余货位!"
|
end
|
|
-- 计算 balance
|
local fAverage = nTotal / nCount -- 巷道平均值
|
for n = 1, nCount do
|
if (roadway_balance_set[n].amount == 0) then
|
roadway_balance_set[n].balance = 1
|
elseif (roadway_balance_set[n].amount <= fAverage) then
|
roadway_balance_set[n].balance = 2
|
else
|
roadway_balance_set[n].balance = 3
|
end
|
end
|
|
-- 根据 balance 排序
|
table.sort(roadway_balance_set, roadway_balance_sort)
|
return 0, roadway_balance_set
|
end
|
|
-- 初始化巷道空工装均衡值
|
-- 输入参数:
|
-- roadway_list 【巷道】数据对象
|
-- 返回: 0 -- 成功 1 -- 没有空余库位 2 -- 错误
|
--[[
|
[
|
{
|
"roadway":1~, "zone_code":"a","amount":0~999, "balance":1~3,"op_num":0,
|
"left_deep":2,"right_deep":1,"left_row_group":1,"right_row_group":2,
|
"location":{"code":"","priority":1~3}},
|
-- roadway 巷道编号 zone_code -- 巷道逻辑库区编码 amount -- 巷道内符合条件的货品所在货位数量
|
-- balance 均衡度
|
-- op_num 作业数量
|
-- location 巷道内优先上架的货位
|
...
|
]
|
-- balance 是KGZ在巷道内的均衡度 巷道内KGZ数量为0时，该值=1
|
-- 巷道内KGZ数量小于目前KGZ（总数/巷道数）时该值=2，其余为3
|
--]]
|
function Set_KGZ_roadway_balance(strLuaDEID, roadway_list)
|
local nRet, strRetInfo
|
-- 获取 roadway_list 中的逻辑库区编码集合
|
local roadway_code
|
nRet, roadway_code = wms_wh.GetRoadwayZoneCodeSet(roadway_list)
|
if (nRet ~= 0) then return nRet, roadway_code end
|
|
local nTotal, nNum
|
local cg_detail_condtion = "S_ITEM_CODE = 'KGZ'"
|
local roadway_balance_set = {}
|
|
if (#roadway_code == 0) then
|
return 2, "无可用巷道"
|
end
|
-- 获取逻辑库区中的数量信息,判断如果巷道没空货位就不继续判断
|
nRet, strRetInfo = wms.wms_GetZoneNumInfo(lua.table2str(roadway_code))
|
|
|
-- 返回 [{ "code": "XXX", "store_max": X, "available_in": X, "empty_min": X, "empty_max": X },..]
|
if (nRet ~= 0) then
|
return 2, "wms_GetZoneNumInfo失败!" .. strRetInfo
|
end
|
local roadway_code_info = json.decode(strRetInfo)
|
local nIndex = 1
|
|
nTotal = 0 -- 已经存在的货品在要分配货位巷道中的总数量
|
|
local obj
|
for n = 1, #roadway_code_info do
|
-- 如果有空货位
|
if (roadway_code_info[n].available_in > 0) then
|
-- 获取巷道内存储货品批次 = batch_no 的货位数量
|
nNum = wms_cntr.Get_CG_Detail_Count_InZone(strLuaDEID, roadway_code_info[n].code, cg_detail_condtion)
|
-- 统计该逻辑库区 执行中的任务的 批次入库数量
|
-- 条件
|
-- 1、任务的巷道为当前逻辑库区
|
-- 2、任务的容器批次号要和当前入库批次相同
|
-- 3、任务的类型为 5 立库入库搬运,任务的状态为 1 已推送
|
local strCondition =
|
"S_CODE IN (SELECT S_OP_CODE FROM TN_TASK WHERE N_TYPE = 5 AND N_B_STATE = 1 AND N_ROADWAY = (SELECT N_ROADWAY FROM TN_Roadway WHERE S_ZONE_CODE = '" ..
|
roadway_code_info[n].code .. "'))"
|
strCondition = strCondition ..
|
" AND S_CNTR_CODE IN (SELECT S_CNTR_CODE FROM TN_CG_Detail WHERE " .. cg_detail_condtion .. ")"
|
nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, "Operation", strCondition)
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "getDataObjCount 失败! " .. strRetInfo)
|
end
|
local num = lua.StrToNumber(strRetInfo)
|
nNum = nNum + num -- 巷道内存储货品批次 = batch_no 的货位数量 + 搬运执行中 货品批次 = batch_no 的货位数量
|
|
nTotal = nTotal + nNum
|
|
local roadway_balance = {}
|
roadway_balance.zone_code = roadway_code_info[n].code
|
roadway_balance.amount = nNum
|
roadway_balance.balance = 0
|
roadway_balance.location = {}
|
-- 获取巷道对象
|
obj = get_roadway_dataobject(roadway_list, roadway_balance.zone_code)
|
-- 通过逻辑库区编码获取执行中的巷道任务数量
|
strCondition = "N_ROADWAY = (SELECT N_ROADWAY FROM TN_Roadway WHERE S_ZONE_CODE = '" .. roadway_balance.zone_code .. "') AND N_B_STATE = 1"
|
nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, "Task", strCondition)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "getDataObjCount 失败! " .. strRetInfo) end
|
local op_num = lua.StrToNumber(strRetInfo)
|
|
if (obj ~= nil) then
|
roadway_balance.op_num = op_num
|
roadway_balance.left_deep = obj.left_deep
|
roadway_balance.right_deep = obj.right_deep
|
roadway_balance.left_row_group = obj.left_row_group
|
roadway_balance.right_row_group = obj.right_row_group
|
else
|
roadway_balance.op_num = op_num
|
roadway_balance.left_deep = 0
|
roadway_balance.right_deep = 0
|
roadway_balance.left_row_group = 0
|
roadway_balance.right_row_group = 0
|
end
|
|
roadway_balance_set[nIndex] = roadway_balance
|
nIndex = nIndex + 1
|
end
|
end
|
|
local nCount = #roadway_balance_set
|
if (nCount == 0) then
|
return 1, "巷道没有空余货位!"
|
end
|
|
-- 计算 balance
|
local fAverage = nTotal / nCount -- 巷道平均值
|
for n = 1, nCount do
|
if (roadway_balance_set[n].amount == 0) then
|
roadway_balance_set[n].balance = 1
|
elseif (roadway_balance_set[n].amount <= fAverage) then
|
roadway_balance_set[n].balance = 2
|
else
|
roadway_balance_set[n].balance = 3
|
end
|
end
|
|
-- 根据 balance 排序
|
table.sort(roadway_balance_set, roadway_balance_sort)
|
return 0, roadway_balance_set
|
end
|
