--[[
|
编码: WMS-38-01
|
名称: 搬运指令-创建前
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： BeforeDataObjCreate
|
|
功能:
|
1）生成任务编码
|
2）对一些数值类型的属性生成这些类型的解析属性
|
更改记录:
|
|
--]]
|
|
wms_base = require( "wms_base" )
|
|
function BeforeDataObjCreate ( strLuaDEID )
|
local nRet, strRetInfo
|
local task
|
nRet, task = m3.GetCurEditDataObj( strLuaDEID )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..task ) end
|
|
local state = lua.Get_NumAttrValue( task.bs_state ) -- 状态
|
local schedule = lua.Get_NumAttrValue( task.schedule_type ) -- 调度系统类型
|
local task_type = lua.Get_NumAttrValue( task.type ) -- 任务类型
|
local eq_task_code = lua.Get_StrAttrValue( task.eq_task_code ) -- 设备任务编码
|
local strCode = lua.Get_StrAttrValue( task.code ) -- 任务编码
|
local end_loc_code = lua.Get_StrAttrValue( task.end_loc_code )
|
local start_loc_code = lua.Get_StrAttrValue( task.start_loc_code )
|
local start_aisle = 0
|
local end_aisle = 0
|
local start_aisle_code = ""
|
local end_aisle_code = ""
|
local loc
|
|
-- 获取货位的巷道值
|
if ( end_loc_code ~= '' ) then
|
nRet, loc = wms_wh.GetLocInfo( end_loc_code )
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "货位'"..end_loc_code.."'不存在!" )
|
end
|
end_aisle = loc.aisle
|
end_aisle_code = loc.aisle_code
|
end
|
if ( start_loc_code ~= '' ) then
|
nRet, loc = wms_wh.GetLocInfo( start_loc_code )
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "货位'"..start_loc_code.."'不存在!" )
|
end
|
start_aisle = loc.aisle
|
start_aisle_code = loc.aisle_code
|
end
|
|
-- 根据字典获取 N_B_STATE 的显示名称
|
local str_b_state = wms_base.GetDictItemName( strLuaDEID, "WMS_TaskState", state )
|
-- 取调度系统类型信息
|
local str_schedule_type = wms_base.GetDictItemName( strLuaDEID, "WMS_ScheduleSystemType", schedule )
|
-- 取任务类型信息
|
local str_task_type = wms_base.GetDictItemName( strLuaDEID, "WMS_TaskType", task_type )
|
|
-- 生成【任务】编码
|
if ( strCode == '' ) then
|
local strHeader = 'TA'..os.date("%y%m%d")..'-'
|
nRet,strCode = mobox.getSerialNumber( "任务", strHeader, 5 )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), '申请【任务】编码失败!'..strCode ) end
|
if (eq_task_code == '') then eq_task_code = strCode end
|
end
|
|
-- 设置信息
|
local attr_value =
|
{
|
{ attr = "S_B_STATE", value = str_b_state },
|
{ attr = "S_SCHEDULE_TYPE", value = str_schedule_type },
|
{ attr = "S_CODE", value = strCode },
|
{ attr = "S_TYPE", value = str_task_type },
|
{ attr = "N_START_AISLE", value = start_aisle },
|
{ attr = "N_END_AISLE", value = end_aisle },
|
{ attr = "S_START_AISLE_CODE", value = start_aisle_code },
|
{ attr = "S_END_AISLE_CODE", value = end_aisle_code },
|
{ attr = "S_EQ_TASK_CODE", value = eq_task_code }
|
}
|
nRet, strRetInfo = mobox.setCurEditDataObjAttr( strLuaDEID, lua.table2str(attr_value) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "设置【任务】信息失败! "..strRetInfo ) end
|
end
|
