--[[
|
编码: GT-100-17
|
名称: 重新计算终点货位
|
作者: LZH
|
入口函数：RecalculateLoc
|
功能说明: 获取任务号、容器编码,重新计算终点货位
|
输入数据：
|
{
|
"task_no": "xxx", 单托盘任务号
|
"type": "xxx", 异常类型 1 取货无货（锁一组货位） 2 放货有货（锁一组货位,重新申请货位）3 取深浅有（锁一组货位） 4 放深浅有（锁一组货位,重新申请货位）
|
"cntr_code": "xxx" 货物RFID
|
}
|
|
处理逻辑
|
-- step1 解析接口传递的 datajson 参数
|
-- step2 校验必传字段是否为空，为空则报错
|
-- step3 重新计算终点货位
|
变更历史:
|
--]]
|
require("WMS-Equipment")
|
wms_cntr = require("wms_container")
|
wms_wh = require("wms_wh")
|
require("GT-Base")
|
require("GT_InAndOutboundPolicies")
|
wms_task = require("wms_task")
|
function RecalculateLoc(strLuaDEID)
|
local nRet, in_date, strRetInfo
|
-- step1 获取接口数据
|
nRet, in_date = m3.GetSysDataJson(strLuaDEID)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "WCStoreCallback 无法获取数据包!" .. in_date) end
|
lua.Debug(strLuaDEID, debug.getinfo(1), '重新计算终点货位参数:', in_date)
|
|
-- step2 判断 必填项 是否都有值？没值报错返回
|
local task_no = in_date.task_no
|
local cntr_code = in_date.cntr_code
|
local type = in_date.type
|
if (task_no == nil or task_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "任务号不能为空!") end
|
if (type == nil or type == '') then lua.Error(strLuaDEID, debug.getinfo(1), "异常类型不能为空!") end
|
|
-- step3 获取任务对象信息
|
local task
|
nRet, task = wms_task.GetInfo(strLuaDEID, task_no)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), task) end
|
lua.Debug(strLuaDEID, debug.getinfo(1), 'task:', task)
|
|
if (task.bs_state == 3) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "任务已完成!")
|
elseif (task.bs_state == 4) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "任务异常!")
|
end
|
|
-- 获取任务位置的【货位】信息
|
local localtion
|
local strCondition
|
if (tonumber(type) == 1 or tonumber(type) == 3) then
|
strCondition = "S_CODE = '" .. task.start_loc_code .. "'"
|
elseif (tonumber(type) == 2 or tonumber(type) == 4) then
|
strCondition = "S_CODE = '" .. task.end_loc_code .. "'"
|
end
|
nRet, localtion = m3.GetDataObjByCondition(strLuaDEID, "Location", strCondition)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "获取【货位】信息失败! " .. localtion) end
|
|
-- 给终点货位和对应的内外深位加锁
|
-- 随机生成异常的编号
|
local strCode = 'YC' .. os.date("%y%m%d") .. '-'
|
nRet, strCode = mobox.getSerialNumber("异常编码", strCode, 5)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '申请异常编码失败!' .. strCode) end
|
|
-- 解锁
|
nRet, strRetInfo = wms.wms_UnlockByTask(strLuaDEID, task.code)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "wms_UnlockByTask 失败! " .. strRetInfo) end
|
|
nRet, strRetInfo = wms.wms_LockLocation(strLuaDEID, task.end_loc_code, wms_base.Get_nConst(strLuaDEID, "锁类型-其它"),
|
strCode, strCode, "重新计算货位异常锁定")
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "wms_LockLocation 失败!" .. strRetInfo) end
|
|
nRet, strRetInfo = OuterDeepPosition(strLuaDEID, localtion.row_group, localtion.code)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '获取对应的内外深位的货位!' .. strRetInfo) end
|
|
nRet, strRetInfo = wms.wms_LockLocation(strLuaDEID, strRetInfo, wms_base.Get_nConst(strLuaDEID, "锁类型-其它"),
|
strCode, strCode, "重新计算货位异常锁定")
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "wms_LockLocation 失败!" .. strRetInfo) end
|
|
local loc_code
|
if (tonumber(type) == 2 or tonumber(type) == 4) then
|
-- 根据容器获取货品信息
|
local cg_detail
|
nRet, cg_detail = wms_cntr.Get_Container_Goods(strLuaDEID, cntr_code)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), cg_detail) end
|
if (cg_detail == nil or cg_detail == '') then
|
lua.Error(strLuaDEID, debug.getinfo(1), cg_detail)
|
end
|
nRet, cg_detail = m3.ObjAttrStrToLuaObj("CG_Detail", lua.table2str(cg_detail[1].attrs))
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "ObjAttrStrToLuaObj失败! " .. cg_detail) end
|
|
-- 获取物料类型
|
local item_type, material
|
nRet, item_type, material = GT_Get_ItemType(strLuaDEID, cg_detail.item_code)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), item_type) end
|
|
local param = {}
|
param.item_code = cg_detail.item_code -- 物料编码
|
param.batch_no = cg_detail.batch_no -- 批次号
|
param.condition = localtion.roadway -- 可入库巷道
|
param.remark = false -- 标识,false 不查询同批次的外深位
|
-- 根据物料类型重新计算立库货位（目前立库只有胶料和钢丝）
|
if (item_type == '散装胶' or item_type == '胶料' or item_type == '天然胶') then
|
nRet, loc_code = JL_StorageTactics(strLuaDEID, param)
|
elseif (item_type == '钢丝') then
|
nRet, loc_code = GS_StorageTactics(strLuaDEID, param)
|
else
|
lua.Error(strLuaDEID, debug.getinfo(1), "立库没有" .. item_type .. "类型的物料!")
|
end
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), loc_code) end
|
strCondition = "S_CODE = '" .. loc_code .. "'"
|
nRet, localtion = m3.GetDataObjByCondition(strLuaDEID, "Location", strCondition)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "获取【货位】信息失败! " .. localtion) end
|
end
|
if (loc_code ~= nil) then
|
task.end_loc_code = loc_code
|
nRet, strRetInfo = wms_task.Update(strLuaDEID, task)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "更新任务终点失败!" .. strRetInfo) end
|
else
|
lua.Error(strLuaDEID, debug.getinfo(1), "巷道库存已满!")
|
end
|
-- 拼接返回的数据
|
local data = {
|
end_loc_code = loc_code,
|
task_no = task_no,
|
roadway = localtion.roadway
|
}
|
|
mobox.returnValue(strLuaDEID, 1, lua.table2str(data))
|
end
|
