--[[
|
编码: JX-60-13
|
名称: 出库波次-后台创建出库作业
|
作者：HAN
|
日期: 2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： CreateOutOperation
|
|
功能:
|
-- 适用于后台WFP调用
|
-- 获取【出库波次】中的配盘数据对象，
|
-- 每个配盘对象创建一个{货品出库}作业，容器加出库锁
|
|
更改记录:
|
|
--]]
|
|
wms_wh = require( "wms_wh" )
|
jx_base= require( "jx_base" )
|
|
function CreateOutOperation( strLuaDEID )
|
local nRet, strRetInfo, m
|
|
local outbound_wave = {}
|
nRet, outbound_wave = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Wave" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【出库波次】对象属性失败!"..outbound_wave ) end
|
|
local strCondition, strUpdateSql
|
local distribution_objs, distribution
|
|
strCondition = "S_BS_NO = '"..outbound_wave.wave_no.."'"
|
nRet, distribution_objs = m3.QueryDataObject(strLuaDEID, "Distribution_CNTR", strCondition, "" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1),"QueryDataObject失败!"..distribution_objs ) end
|
|
-- 根据每个配盘生成出库作业
|
for m = 1, #distribution_objs do
|
distribution = m3.KeyValueAttrsToObjAttr(distribution_objs[m].attrs)
|
nRet, strRetInfo = jx_base.Create_Distribution_OutOperation ( strLuaDEID, distribution )
|
if ( nRet ~= 0 ) then
|
mobox.stopProgram( strLuaDEID, strRetInfo )
|
return
|
end
|
end
|
|
-- 更新出库波次的状态 N_B_STATE = 3 表示已经创建作业
|
strUpdateSql = "N_B_STATE = 3"
|
strCondition = "S_WAVE_NO = '"..outbound_wave.wave_no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Wave", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库波次】状态失败!"..strRetInfo ) end
|
|
-- 更新出库单状态为 作业中3
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】状态失败!"..strRetInfo ) end
|
|
end
|
