---
|
--- Created by wsz.
|
--- DateTime: 2025/6/19 下午4:23
|
---
|
|
--[[
|
编码: WMS-01-23
|
名称:
|
作者：
|
日期：2025-06-19
|
|
函数： emptyBoxFormQuery
|
功能: 空容器设置下拉项 | 初始化 、 loc值变化
|
|
更改记录:
|
|
--]]
|
|
local json = require("json")
|
local mobox = require("OILua_JavelinExt")
|
local lua = require("oi_base_func")
|
local m3 = require("oi_base_mobox")
|
|
------------------------------------------------------------------------------------------------------------------------
|
-- page 常量定义
|
local ERR
|
local luaDEID
|
|
|
------------------------------------------------------------------------------------------------------------------------
|
-- 独立方法区
|
local function deduplicate_array(arr)
|
local seen = {}
|
local result = {}
|
for _, v in ipairs(arr) do
|
if not seen[v] then
|
seen[v] = true
|
table.insert(result, v)
|
end
|
end
|
return result
|
end
|
|
|
------------------------------------------------------------------------------------------------------------------------
|
-- 1. 取得mac映射配置的库区 return area-code 注意此实现需要保证机台配置 mac-库区 1-1 且不可为空，不满足时准确不可保证
|
local function getMacArea()
|
-- 登录人
|
local user
|
do
|
local nRet, strRetInfo = mobox.getCurUserInfo(luaDEID)
|
user = strRetInfo
|
end
|
|
-- mac地址
|
local mac
|
do
|
local nRet, strRetInfo = mobox.getUserInfo(user, 1, 1)
|
|
if nRet == 0 then
|
local loginInfo = json.decode(strRetInfo)
|
mac = loginInfo.client_info.mac
|
else
|
mobox.setInfo(luaDEID, "查询登录人mac地址为空！")
|
error("查询mac地址为空", 0)
|
end
|
end
|
|
-- 库区
|
local area
|
do
|
local strCondition -- 查询条件
|
|
-- 查询全部-统一处理
|
local nRet, strRetInfo = mobox.queryDataObjAttr(luaDEID, "Machine_Station", {})
|
|
local kvmap = {}
|
for _, item in pairs(json.decode(strRetInfo)) do
|
local luadata = m3.KeyValueAttrsToObjAttr(item.attrs)
|
kvmap[luadata.S_MAC_ADDRESS] = luadata.S_STORAGE_AREA
|
end
|
|
area = kvmap[mac]
|
end
|
|
return area
|
end
|
|
-- 2. 取得指定库区下all 空容器 的货位 返回 为空 {} 列表型table location-code ，视 queryMultiTable 限制，可能为1000 或 2000 限制
|
local function getAllLocation(area)
|
|
local locList = {}
|
|
local strTable = [[
|
tn_container con
|
inner join tn_loc_container lc on lc.s_cntr_code = con.s_code
|
left join tn_inv_detail ind on lc.s_cntr_code = ind.s_cntr_code
|
inner join tn_location loc on loc.s_code = lc.s_loc_code
|
inner join tn_area area on loc.s_area_code = area.s_code
|
]]
|
|
local strAttrs = [[ loc.s_code ]]
|
|
local strCondition = string.format([[
|
(ind.S_CNTR_CODE is null or ind.F_QTY = 0)
|
and con.N_LOCK_STATE == 0
|
and area.S_CODE = '%s'
|
]], area)
|
|
local nRet, strRetInfo = mobox.queryMultiTable(luaDEID, strAttrs, strTable, 2000, strCondition)
|
|
local luadata_conlist = #strRetInfo == 0 and {} or json.decode(strRetInfo)
|
|
for _, item in ipairs(luadata_conlist) do
|
local it = item[1]
|
table.insert(locList, it)
|
end
|
|
-- 查询主体的原因，需要去重
|
locList = deduplicate_array(locList)
|
|
return locList
|
end
|
|
|
-- 3. 取得指定货位下 全体 空容器 返回 为空 {} 列表型table con-code ，视 queryMultiTable 限制，可能为1000 或 2000 限制
|
local function getContainer(area,loc)
|
|
local conList = {}
|
|
local strTable = [[
|
tn_container con
|
inner join tn_loc_container lc on lc.s_cntr_code = con.s_code
|
left join tn_inv_detail ind on lc.s_cntr_code = ind.s_cntr_code
|
inner join tn_location loc on loc.s_code = lc.s_loc_code
|
inner join tn_area area on loc.s_area_code = area.s_code
|
]]
|
|
local strAttrs = [[ con.s_code ]]
|
|
local strCondition = string.format([[
|
(ind.S_CNTR_CODE is null or ind.F_QTY = 0)
|
and con.N_LOCK_STATE == 0
|
and area.s_code = '%s'
|
]], area)
|
|
strCondition = loc == "" and strCondition or strCondition .. string.format(" and loc.s_code = '%s' ", loc)
|
|
|
local nRet, strRetInfo = mobox.queryMultiTable(luaDEID, strAttrs, strTable, 2000, strCondition)
|
|
local luadata_conlist = #strRetInfo == 0 and {} or json.decode(strRetInfo)
|
|
for _, item in ipairs(luadata_conlist) do
|
local it = item[1]
|
table.insert(conList, it)
|
end
|
|
return conList
|
end
|
|
-- 4. 取得页面输入的库位、容器 未输入|初始化时为 ""
|
local function getPagaInput()
|
local loc, con = "", ""
|
do
|
local nRet, parameter_attrs = m3.GetSysInputParameter(luaDEID)
|
-- 当初始化时 parameter_attrs 为 "" 空字串
|
if type(parameter_attrs) == "table" then
|
local parameter = m3.KeyValueAttrsToObjAttr(parameter_attrs)
|
if parameter ~= nil then
|
loc = lua.Get_StrAttrValue(parameter.S_POSITION)
|
con = lua.Get_StrAttrValue(parameter.S_CODE)
|
end
|
end
|
end
|
print(loc, "--", con)
|
return loc, con
|
end
|
|
|
-- 核心功能实现
|
local function main()
|
|
local area = getMacArea()
|
|
local loc, con = getPagaInput()
|
|
local action_dlgAttr = { action_type = "set_dlg_attr", value = {} }
|
--[[
|
1. loc= "" 时 需要全量 初始化 loc 和 con 仅 area 指定
|
2. loc有值时 设置con 为指定库位的数据
|
]]
|
|
if loc == "" then
|
print("库位未输入")
|
local locList = getAllLocation(area)
|
if #locList > 0 then
|
local action_input1 = {
|
attr = "S_POSITION",
|
choice_list = locList,
|
}
|
table.insert(action_dlgAttr.value, action_input1)
|
end
|
end
|
|
--
|
local conList = getContainer(area,loc)
|
if #conList > 0 then
|
local action_input2 = {
|
attr = "S_CODE",
|
choice_list = conList,
|
}
|
table.insert(action_dlgAttr.value, action_input2)
|
end
|
|
-- --------------------------------------------------------------------------
|
|
local action = { action_dlgAttr }
|
local strjson = json.encode(action)
|
local nRet, strRetInfo = mobox.setAction(luaDEID, strjson)
|
print(nRet)
|
print(strRetInfo)
|
if nRet ~= 0 then mobox.setInfo( luaDEID,"设置表单失败",5 ) end
|
|
end
|
|
------------------------------------------------------------------------------------------------------------------------
|
-----
|
local function errorHandler(err)
|
ERR = err
|
lua.Debug(luaDEID, debug.getinfo(1), "err-捕获", err)
|
return err
|
end
|
|
--[[ 入口函数 ]]
|
function emptyBoxFormQuery(strLuaDEID)
|
|
luaDEID = strLuaDEID
|
|
-- lua交换区数据记录
|
m3.PrintLuaDEInfo(strLuaDEID)
|
|
-- core_main 为目标函数，从第2个参数后均为core_main的传入参数
|
local success, result = xpcall(main, errorHandler)
|
|
if not success then
|
-- 函数执行失败时处理
|
print("发生错误", ERR)
|
lua.Error(strLuaDEID, debug.getinfo(1), ERR)
|
else
|
--函数成功时处理
|
end
|
end
|
