--[[
|
编码: JX-24-20
|
名称: 出库单-出库完成检查
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： FinishCheck
|
|
功能:
|
检查一下【出库单】中出库明细中的出库数量是否等于 计划出库数量，如果全部都已经出库完成，设置出库单的状态=完成/4
|
-- 并且触发回报WFP
|
更改记录:
|
|
--]]
|
wms_base = require ("wms_base")
|
|
function FinishCheck ( strLuaDEID )
|
local nRet, strRetInfo
|
local oo_obj = {}
|
nRet, oo_obj = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Order" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【出库单】对象属性失败!"..oo_obj ) end
|
|
-- 只有对作业中的出库单进行是否完成出库检测
|
if ( oo_obj.b_state > 3 ) then return end
|
|
-- 判断出库单是否可以报完工
|
local strCondition = "F_QTY > (F_ACC_O_QTY + F_ACC_C_QTY) AND S_OO_NO = '"..oo_obj.no.."'"
|
|
nRet, strRetInfo = mobox.getDataObjCount( strLuaDEID, "Outbound_Detail", strCondition )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "getDataObjCount失败!"..strRetInfo ) end
|
local nCount = lua.StrToNumber( strRetInfo )
|
|
if ( nCount == 0 ) then
|
-- 出库单是已经可以完工
|
-- N_B_STATE = 4 出库完成
|
strSetAttr = "N_B_STATE = 4"
|
strCondition = "S_NO = '"..oo_obj.no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strSetAttr )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】状态息失败!"..strRetInfo ) end
|
|
-- 增加一个后台进程进行 报工处理
|
local add_wfp = {
|
wfp_type = 1, -- 触发数据对象事件（指定数据对象标识）
|
cls = "出库单",
|
obj_id = oo_obj.id,
|
obj_name = "出库单号'"..oo_obj.no.."'-->完工回报",
|
trigger_event = "完工回报"
|
}
|
nRet, strRetInfo = m3.AddSysWFP( strLuaDEID, add_wfp )
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "AddSysWFP失败!"..strRetInfo )
|
end
|
end
|
end
|
