--[[
|
编码: WMS-19-06
|
名称: 容器货品明细-删除后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： AfterDataObjDelete
|
|
功能:
|
-- 减【容器货品】中的相关货品的数量如果为0 需要删除这个记录
|
-- 如果有上架单需要扣除【上架单明细】这里的累计绑定数量
|
-- 调用 wms_Putaway_DecAccBindingQty 容器货品解绑操作，并减上架单绑定数量
|
|
更改记录:
|
|
--]]
|
|
wms_base = require( "wms_base" )
|
|
function AfterDataObjDelete ( strLuaDEID )
|
local nRet, strRetInfo
|
|
-- step1: 获取当前【容器货品明细】对象
|
local cg_detail
|
nRet, cg_detail = m3.GetSysCurEditDataObj( strLuaDEID, "CG_Detail" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..cg_detail ) end
|
|
if ( cg_detail.item_merge == 'Y') then
|
local cg_id = cg_detail.cg_id
|
local qty = cg_detail.qty
|
|
if ( cg_id == '' ) then
|
-- 这种情况是系统检测 CG_Detail 中的 S_CG_ID 已经无效后设置为空后产生的
|
lua.Warning( strLuaDEID, debug.getinfo(1), "CG_Detail 中的S_CG_ID为空! " )
|
return
|
end
|
|
-- step2: 获取【容器货品】对象中的数量如果 <= 就删除
|
local strCondition = "S_ID = '"..cg_id.."'"
|
nRet, id, strRetInfo = mobox.getDataObjAttrByKeyAttr( strLuaDEID, "Container_Good", strCondition, "F_QTY" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取条件'"..strCondition.."'的【容器货品】属性失败! "..id ) end
|
if ( strRetInfo == '' ) then return end
|
local cg_attrs = json.decode( strRetInfo )
|
local cg_qty = lua.StrToNumber( cg_attrs[1].value )
|
|
if ( cg_qty > qty ) then
|
local strSetSQL = "F_QTY = F_QTY - " ..qty
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "Container_Good", strCondition, strSetSQL)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "设置条件'"..strCondition.."'的【容器货品】数量失败!"..strRetInfo) end
|
else
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Container_Good", strCondition)
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "删除【容器货品】失败!"..strRetInfo) end
|
end
|
end
|
-- step3： 容器货品解绑操作
|
if (cg_detail.bs_no ~= '') then
|
-- V10.0
|
local strCondition
|
if ( cg_detail.bs_type == "Inbound_Order") then
|
-- 业务来源是 入库单
|
strCondition = "S_IO_NO = '"..cg_detail.bs_no.."' AND N_ROW_NO = "..cg_detail.bs_row_no
|
nRet, strRetInfo = mobox.decDataObjAccQty( strLuaDEID, "Inbound_Detail", strCondition, "F_ACC_B_QTY", cg_detail.qty)
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "decDataObjAccQty(Inbound_Detail)失败! "..strRetInfo ) end
|
end
|
end
|
|
-- V9.1 容器中的 N_DETAIL_COUNT - 1
|
local strCondition = "S_CODE = '"..cg_detail.cntr_code.."'"
|
local strUpdateSql = "N_DETAIL_COUNT = N_DETAIL_COUNT - 1"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Container", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【容器】中的明细条数失败!"..strRetInfo ) end
|
end
|
