--[[
|
编码: JX-108-15
|
名称: 巨星任务-巨星空料箱出库-空料箱出库
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： CallEmptyBoxOut
|
|
功能:
|
-- 从料箱库计算出一个空的巨星料箱
|
-- 创建‘巨星出库’作业
|
|
更改记录:
|
|
--]]
|
jx_base= require( "jx_base" )
|
|
function CallEmptyBoxOut ( strLuaDEID )
|
local nRet, strRetInfo
|
|
local strUserLogin, strUserName
|
nRet, strUserLogin, strUserName = mobox.getCurUserInfo( strLuaDEID )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前操作人员信息失败! "..strUserLogin ) end
|
|
-- 获取【巨星空料箱出库】的输入信息
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_STATION_NO", "Number" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end
|
local obj_attrs = json.decode( strRetInfo )
|
local station = lua.Get_StrAttrValue( obj_attrs[1].value )
|
local empty_box_num = lua.Get_NumAttrValue( obj_attrs[2].value ) -- 需要出的空料箱数量
|
|
if ( station == '' ) then
|
mobox.setInfo( strLuaDEID, "需要确定站台信息!")
|
return
|
end
|
if ( empty_box_num <= 0 ) then
|
mobox.setInfo( strLuaDEID, "空料箱数量必须大于 0 !")
|
return
|
end
|
|
-- 数据准备
|
-- box_type = 2 就是巨星的料箱
|
local storage_arae = wms_base.Get_sConst( strLuaDEID, "料箱库存储区" )
|
local station_data
|
local loc_code, cntr_code, n
|
local start_loc, end_loc
|
|
nRet, station_data = jx_base.Get_Station_ExtData( strLuaDEID, station )
|
if ( nRet ~= 0 ) then return 2, station_data end
|
local storage_cache_arae = lua.Get_StrAttrValue( station_data.entry_area_code )
|
if ( storage_cache_arae == '') then
|
mobox.setInfo( strLuaDEID, "'机台-"..station.."'没有定义入库口区域编码信息!" )
|
return
|
end
|
loc_code = station_data.loc_code
|
nRet, end_loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet ~= 0 ) then
|
mobox.setInfo( strLuaDEID, "获取货位'"..loc_code.."'信息失败!"..end_loc )
|
return
|
end
|
|
-- 申请空料箱
|
local trans_id = lua.guid() -- 容器锁事务
|
local start_loc
|
local nCount = 0
|
local empty_box_list = {}
|
|
nRet, empty_box_list = jx_base.Get_EmptyBox_Loc( strLuaDEID, trans_id, storage_arae, 2, empty_box_num )
|
if ( nRet ~= 0 ) then
|
wms.wms_AbortCntrLockTrans( trans_id )
|
lua.Error( strLuaDEID, debug.getinfo(1), empty_box_list )
|
end
|
|
lua.Debug( strLuaDEID, debug.getinfo(1), "呼出巨星空料箱--->empty_box_list", empty_box_list )
|
nCount = #empty_box_list
|
if ( nCount == 0 ) then
|
mobox.setInfo( strLuaDEID, "库区"..area_code.."没有巨星空料箱!" )
|
return
|
end
|
|
for n = 1, nCount do
|
cntr_code = empty_box_list[n].cntr_code
|
loc_code = empty_box_list[n].loc_code
|
|
-- 创建巨星任务和出库搬运作业
|
nRet, start_loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet ~= 0 ) then
|
wms.wms_AbortCntrLockTrans( trans_id )
|
lua.Error( strLuaDEID, debug.getinfo(1), "获取货位'"..loc_code.."'信息失败!"..start_loc )
|
end
|
|
-- 创建巨星任务
|
jx_task = m3.AllocObject(strLuaDEID, "JX_Task")
|
|
jx_task.start_wh_code = start_loc.wh_code
|
jx_task.start_area_code = storage_arae
|
jx_task.start_loc_code = start_loc.code
|
jx_task.station = station
|
jx_task.end_wh_code = end_loc.wh_code
|
jx_task.end_area_code = end_loc.area_code
|
jx_task.end_loc_code = end_loc.code
|
jx_task.cntr_code = cntr_code
|
jx_task.source_sys = "巨星"
|
jx_task.priority = 1
|
jx_task.task_type = "巨星空料箱出库"
|
jx_task.create_method = "HH-WMS"
|
|
nRet, jx_task = m3.CreateDataObj(strLuaDEID, jx_task)
|
if (nRet ~= 0) then
|
wms.wms_AbortCntrLockTrans( trans_id )
|
lua.Error(strLuaDEID, debug.getinfo(1), "创建任务池失败！" .. jx_task)
|
end
|
|
operation = m3.AllocObject(strLuaDEID,"Operation")
|
operation.bs_state = 8
|
operation.start_wh_code = start_loc.wh_code
|
operation.start_area_code = start_loc.area_code
|
operation.start_loc_code = start_loc.code
|
|
operation.end_wh_code = end_loc.wh_code
|
operation.end_area_code = end_loc.area_code
|
operation.end_loc_code = end_loc.code
|
operation.lock_cntr = "N" -- 作业启动时不需要锁容器
|
operation.cntr_code = cntr_code
|
|
operation.op_type = wms_base.Get_nConst(strLuaDEID, "作业类型-出库")
|
operation.op_def_name = "巨星出库"
|
operation.bs_type = "JX_Task"
|
operation.bs_no = jx_task.sour_no
|
operation.source_sys = "巨星"
|
|
nRet, operation = m3.CreateDataObj( strLuaDEID, operation )
|
if ( nRet ~= 0 ) then
|
wms.wms_AbortCntrLockTrans( trans_id )
|
lua.Error( strLuaDEID, debug.getinfo(1), '创建【作业】失败!'..operation )
|
end
|
|
-- 设置巨星任务状态为执行 N_B_STATE = 1 任务执行
|
strUpdateSql = "N_B_STATE = 1, S_OP_CODE = '"..operation.code.."'"
|
strCondition = "S_SOURNO = '"..jx_task.sour_no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "JX_Task", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then
|
wms.wms_AbortCntrLockTrans( trans_id )
|
lua.Error( strLuaDEID, debug.getinfo(1), "更新【巨星任务】信息失败!"..strRetInfo )
|
end
|
end
|
wms.wms_CommitCntrLockTrans( trans_id )
|
|
local action = {
|
{
|
action_type = "refresh",
|
value = ""
|
}
|
}
|
|
mobox.setInfo( strLuaDEID, "成功创建 "..nCount.." 个巨星空料箱出库!" )
|
nRet, strRetInfo = mobox.setAction(strLuaDEID, lua.table2str( action ))
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction错误: "..strRetInfo) end
|
|
end
|
