--[[
|
编码: WMS-80-10
|
名称: 机台-生成设备常量
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： ResetDevConst
|
|
功能:
|
-- 生成一个分类=【巨星机台】名为 "机台-A" 的常量， 值是一个机台属性的json
|
|
更改记录:
|
|
--]]
|
wms_base = require ("wms_base")
|
|
function ResetDevConst ( strLuaDEID )
|
local nRet, strRetInfo
|
|
local strCondition = "S_GROUP = '巨星设备'"
|
nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "WMS_Const", strCondition )
|
if ( nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【常量】失败! "..strRetInfo ) end
|
|
local n, data_objs, area_code
|
|
nRet, area_code = wms_base.Get_sConst2( strLuaDEID, "料箱库存储区")
|
if ( nRet ~= 0 ) then
|
lua.Stop( strLuaDEID, "系统无法获取常量'料箱库存储区'")
|
return
|
end
|
|
-- 生成库区堆垛机设备及巷道
|
local strCondition = "S_AREA_CODE = '"..area_code.."' AND N_TYPE = 5"
|
nRet, data_objs = m3.QueryDataObject(strLuaDEID, "Equipment", strCondition, "S_CODE" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1),"QueryDataObject失败!"..data_objs ) end
|
if ( data_objs == '' ) then return end
|
|
local n
|
local obj_attrs
|
local dev_info = {}
|
local dev = {}
|
-- 生成要入库的货品链表 item_list
|
for n = 1, #data_objs do
|
obj_attrs = m3.KeyValueAttrsToObjAttr(data_objs[n].attrs)
|
dev_info = {
|
dev_no = obj_attrs.S_CODE,
|
cntr_num = 0, -- 入库口接驳位料箱数量
|
aisle = lua.StrToNumber( obj_attrs.N_AISLE) -- 巷道
|
}
|
table.insert( dev, dev_info )
|
end
|
|
local const = m3.AllocObject( strLuaDEID, "WMS_Const")
|
const.name = "Area-"..area_code.."-StackerCrane"
|
const.value = lua.table2str( dev )
|
const.group = "WMS-Basis"
|
const.sys = "N"
|
const.note = "程序生成"
|
nRet, strRetInfo = m3.CreateDataObj(strLuaDEID, const)
|
if (nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1),"创建WMS常量失败!"..strRetInfo) end
|
mobox.setInfo(strLuaDEID, "重置设备常量成功!!" )
|
end
|
