--[[
|
编码: JX-102-02
|
名称: 创建后
|
作者：
|
日期: 2025-1-29
|
|
函数： AfterDataObjDelete
|
|
功能:
|
-- 删除【波次组成】【波次明细】
|
-- 删除入库波次计划出库的料箱等，更新入库单信息
|
|
更改记录:
|
|
--]]
|
|
wms_base = require ("wms_base")
|
|
function AfterDataObjDelete( strLuaDEID )
|
local nRet, strRetInfo
|
|
-- 获取 S_NO
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_WAVE_NO", "N_B_STATE" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end
|
|
local obj_attrs = json.decode( strRetInfo )
|
local wave_no = obj_attrs[1].value
|
local b_state = lua.StrToNumber( obj_attrs[2].value )
|
|
if ( wave_no == '' or wave_no == nil ) then return end
|
|
-- 删除波次组成
|
local strCondition = "S_WAVE_NO = '"..wave_no.."'"
|
nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "IW_Compose", strCondition )
|
if ( nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除入库波次相关的【波次组成】失败! "..strRetInfo ) end
|
|
-- 删除入库波次组成
|
local strCondition = "S_WAVE_NO = '"..wave_no.."'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "IW_Detail", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【IW_Detail】失败!"..strRetInfo) end
|
|
-- 更新【入库单】中的 S_WAVE_NO，S_STATION_NO， S_OPERATOR_NAME, S_OPERATOR, N_B_STATE
|
local strUpdateSql = "N_B_STATE = 0, S_WAVE_NO = '', S_STATION_NO ='', S_OPERATOR_NAME = '', S_OPERATOR = ''"
|
local strCondition = "S_WAVE_NO = '"..wave_no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Inbound_Order", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then return 2, "更新【入库单】信息失败!"..strRetInfo end
|
|
|
-- 如果业务状态不等于完成 要把容器解锁
|
if ( b_state ~= 3 ) then
|
-- 释放预分配的料格数量
|
strCondition = "S_BS_NO = '"..wave_no.."'"
|
nRet, data_objs = m3.QueryDataObject(strLuaDEID, "Pre_Alloc_CNTR_Detail", strCondition, "S_CNTR_CODE" )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "QueryDataObject失败!"..data_objs ) end
|
|
if ( data_objs ~= '' ) then
|
local n, m
|
local pac_detail
|
local cntr_list = {}
|
local find
|
for n = 1, #data_objs do
|
pac_detail = m3.KeyValueAttrsToObjAttr(data_objs[n].attrs)
|
find = false
|
local cell = { cell_no = pac_detail.S_CELL_NO }
|
for m = 1, #cntr_list do
|
if ( cntr_list[m].cntr_code == pac_detail.S_CNTR_CODE ) then
|
find = true
|
table.insert( cntr_list[m].cell_list, cell )
|
break
|
end
|
end
|
if ( find == false ) then
|
local cntr = {
|
cntr_code = pac_detail.S_CNTR_CODE,
|
cell_list = {}
|
}
|
table.insert( cntr.cell_list, cell )
|
table.insert( cntr_list, cntr )
|
end
|
end
|
|
local cell_num
|
for m = 1, #cntr_list do
|
strCondition = "S_CODE = '"..cntr_list[m].cntr_code.."'"
|
cell_num = #cntr_list[m].cell_list
|
nRet, strRetInfo = mobox.decDataObjAccQty( strLuaDEID, "Container", strCondition, "N_ALLOC_CELL_NUM", cell_num )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "decDataObjAccQty(Container)失败! "..strRetInfo ) end
|
end
|
|
-- 把料格状态=3（预约）的设置为 0
|
strUpdateSql = "N_EMPTY_FULL = 0, S_ALLOC_OP_CODE = ''"
|
strCondition = "N_EMPTY_FULL = 3 AND S_ALLOC_OP_CODE = '"..wave_no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Container_Cell", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【Container_Cell】状态信息失败!"..strRetInfo ) end
|
end
|
end
|
|
-- 删除[预分配容器/Pre_Alloc_Container]
|
local strCondition = "S_BS_TYPE = 'Inbound_Wave' AND S_BS_NO = '"..wave_no.."'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Pre_Alloc_Container", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【Pre_Alloc_Container】失败!"..strRetInfo) end
|
|
-- 删除[组盘明细/Pre_Alloc_CNTR_Detail]
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Pre_Alloc_CNTR_Detail", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【Pre_Alloc_CNTR_Detail】失败!"..strRetInfo) end
|
|
end
|
