--[[
|
编码: WMS-20-29
|
名称: 点领用按钮后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： ClickReceiveButton
|
|
功能:
|
-- 点击领用按钮
|
|
更改记录:
|
V3.0 HAN 20241231 改成后台线程来处理空料箱呼出计算，因为这个过程是一个比较长的事务，有并发锁表的风险
|
本次改进的目的就是将这些长事务统一交给后台一个线程排队处理
|
V4.0 HAN 20250312 对选中的入库单进行检查如果已经有入库波次的不进行领用
|
--]]
|
|
wms_base = require ("wms_base")
|
|
function ClickReceiveButton ( strLuaDEID )
|
local nRet, strRetInfo, n
|
local data_json
|
|
nRet, data_json = m3.GetSysDataJson( strLuaDEID )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), data_json ) end
|
local nCount = #data_json
|
if ( nCount == 0 ) then
|
mobox.setInfo( strLuaDEID, "必须选中一个入库单!" )
|
return
|
end
|
--V4.0 HAN 2025/3/12
|
local inbound_obj
|
local checked_data_json = {}
|
local msg = ''
|
for n = 1, nCount do
|
-- 获取出库单对象
|
nRet, inbound_obj = m3.GetDataObject( strLuaDEID, "Inbound_Order", data_json[n].id )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), inbound_obj ) end
|
-- 如果选择的出库单已经有出库波次号
|
if ( inbound_obj.wave_no ~= '' or inbound_obj.b_state ~= 0 ) then
|
msg = msg.."\r\n单号='"..inbound_obj.no.."'的入库单已经有入库波次!"
|
else
|
table.insert( checked_data_json, data_json[n] )
|
end
|
end
|
if ( #checked_data_json == 0 ) then
|
mobox.setInfo( strLuaDEID, msg )
|
return
|
end
|
|
-- 获取输入界面中的工作台属性
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "Station" )
|
local input_value = json.decode( strRetInfo )
|
local station = lua.Get_StrAttrValue( input_value[1].value )
|
|
if ( station == '' ) then
|
mobox.setInfo( strLuaDEID, "必须选择一个工作站!" )
|
return
|
end
|
local strUserLogin, strUserName
|
nRet, strUserLogin, strUserName = mobox.getCurUserInfo( strLuaDEID )
|
if ( nRet ~= 0 ) then
|
mobox.setInfo( strLuaDEID, "获取当前操作人员信息失败! "..strUserLogin )
|
return
|
end
|
|
-- V4.0
|
-- 如果有选中的入库单不符合要求，前端显示一下
|
if ( msg ~= '' ) then
|
mobox.setInfo( strLuaDEID, msg )
|
end
|
|
-- 组织后台脚本执行的输入参数
|
local paramter = {
|
station = station,
|
login = strUserLogin,
|
user_name = strUserName,
|
data_json = checked_data_json
|
}
|
|
nRet, strRetInfo = mobox.addBackendScriptProc( "Inbound_Order","入库空料箱计算", lua.table2str( paramter ) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), strRetInfo ) end
|
|
local data_json = {proc_id = strRetInfo}
|
local action =
|
{
|
{
|
action_type = "wait",
|
value = {
|
time = 1,
|
event = {
|
cls_name = "入库单",
|
event_name = "获取入库空料箱计算结果",
|
data_json = data_json
|
}
|
}
|
},
|
}
|
nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end
|
|
end
|
