--[[
|
编码: JX-83-11
|
名称: 容器料格-自定义表单-选货品后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： AfterSelectGood
|
|
功能:
|
在货品查询面板中选中一个货品后
|
|
更改记录:
|
|
--]]
|
|
wms_base = require ("wms_base")
|
jx_base = require( "jx_base" )
|
|
function AfterSelectGood ( strLuaDEID )
|
local nRet, strRetInfo, select_dataobj
|
|
nRet, select_dataobj = m3.GetSysInputParameter( strLuaDEID )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取选中数据对象属性失败! "..select_dataobj ) end
|
local item_code = select_dataobj.S_ITEM_CODE
|
local item_name = select_dataobj.S_ITEM_NAME
|
local weight = lua.StrToNumber( select_dataobj.F_WEIGHT )
|
local volume = lua.StrToNumber( select_dataobj.F_VOLUME )
|
|
if ( volume == 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "选中的物料体积为0! " )
|
end
|
|
|
-- 获取当前容器的料箱类型
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_CELL_NO" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end
|
local obj_attrs = json.decode( strRetInfo )
|
local cell_no = lua.Get_StrAttrValue( obj_attrs[1].value )
|
|
local seg = lua.split( cell_no, '-' )
|
local cell_type = seg[1]
|
local cell_volume
|
nRet, cell_volume = jx_base.GetCellVolume( strLuaDEID, cell_type )
|
if ( nRet ~= 0 ) then
|
mobox.stopProgram( strLuaDEID, cell_volume )
|
return
|
end
|
|
-- 计算料格最多可以存储货品数量
|
local qty = math.floor( cell_volume/ volume )
|
|
local action = {
|
{
|
action_type = "set_dlg_attr",
|
value = {
|
{ attr = "S_ITEM_CODE", value = item_code },
|
{ attr = "S_ITEM_NAME", value = item_name },
|
{ attr = "Volume", value = volume },
|
{ attr = "Weight", value = weight },
|
{ attr = "Qty", value = qty },
|
{ attr = "MaxQty", value = qty }
|
}
|
}
|
}
|
|
lua.Debug( strLuaDEID, debug.getinfo(1),"action", action)
|
|
nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end
|
|
end
|
