--[[
|
版本： Version 1.0
|
创建日期： 2025-5-16
|
创建人： HAN
|
|
WMS-Basis-Model-Version: V15.5
|
|
说明:
|
涉及数据类
|
INV_Detail 库存量表
|
INV_TXN_Log 库存交易日志
|
|
功能：
|
和库存量表相关的操作
|
|
|
更改说明：
|
|
--]]
|
|
--+-----------------------------------------------------------------------------+
|
--| 注意: wms_inv 是比较底层的业务逻辑处理层，不能再加其它和 wms_xxx 相关的 require |
|
--+-----------------------------------------------------------------------------+
|
wms_base = require ("wms_base")
|
|
local wms_inv = {_version = "0.2.1"}
|
|
-- 对入库出库单中的明细属性进行检查，S_ITEM_CODE，S_ITEM_STATE，S_STORER 必须有值，F_QTY 必须大于 0
|
-- S_ITEM_STATE，S_STORER 如果没值用缺省值进行赋值
|
local function item_detail_data_check( item_detial_data, default_storer, default_item_state )
|
-- 数据检查
|
if lua.StrIsEmpty( item_detial_data.S_ITEM_CODE ) then
|
return false, "创建【库存量表】前检查没通过! S_ITEM_CODE 为空"
|
end
|
if lua.StrIsEmpty( item_detial_data.S_ITEM_STATE ) then
|
if default_item_state == '' then
|
return false, "数据检查没通过! S_ITEM_STATE 为空并且没设置默认货品状态常量 WMS_Default_ItemState 没定义!"
|
end
|
item_detial_data.S_ITEM_STATE = default_item_state
|
end
|
if lua.StrIsEmpty( item_detial_data.S_STORER ) then
|
if default_storer == '' then
|
return false, "数据检查没通过! S_STORER 为空并且没设置默认货主常量 WMS_Default_Storer 没定义!"
|
end
|
item_detial_data.S_STORER = default_storer
|
end
|
if lua.Get_NumAttrValue( item_detial_data.F_QTY ) <= 0 then
|
return fale, "数据检查没通过! S_ITEM_CODE ='"..item_detial_data.S_ITEM_CODE.."' 的数量属性 F_QTY 不能 <= 0!"
|
end
|
return true
|
end
|
|
--[[
|
码盘结束后和货位进行绑定时库存量表的变化处理
|
--]]
|
function wms_inv.After_CntrLoc_Binding( strLuaDEID, inb_pallet, loc_code )
|
local nRet, strRetInfo
|
|
if (inb_pallet == nil or type(inb_pallet) ~= "table" ) then
|
return 1, "After_CntrLoc_Binding 函数输入参数错误 inb_pallet 为空或不合规"
|
end
|
if ( loc_code == nil or loc_code == '' ) then
|
return 1, "After_CntrLoc_Binding 函数输入参数错误 loc_code 不能为空!"
|
end
|
|
local loc
|
nRet, loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet ~= 0 ) then
|
return 1, "获取货位'"..loc_code.."'信息失败! "..loc
|
end
|
|
-- 查询【INB_Pallet_Detail】
|
local strOrder = ""
|
local data_objects
|
local strCondition = "S_IBP_NO = '"..inb_pallet.ibp_no.."'"
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "INB_Pallet_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local n, m, attr_count, base_attr_count
|
local inv_detail_data
|
local inv_txn_log_data
|
local item_detial_data
|
local check_is_ok
|
|
-- 缺省值设置
|
local default_storer = '' -- 默认货主
|
nRet, default_storer = wms_base.Get_sConst2( "WMS_Default_Storer" )
|
if ( nRet ~= 0 ) then
|
default_storer = ''
|
end
|
local default_item_state = '' -- 默认货品状态
|
nRet, default_item_state = wms_base.Get_sConst2( "WMS_Default_ItemState" )
|
if ( nRet ~= 0 ) then
|
default_item_state = ''
|
end
|
|
attr_count = #INB_PALLET_DETAIL_ATTRS
|
base_attr_count = #INV_DETAIL_BASE_ATTRS
|
|
for n = 1, #data_objects do
|
item_detial_data = m3.KeyValueAttrsToObjAttr(data_objects[n].attrs)
|
|
check_is_ok, strRetInfo = item_detail_data_check( item_detial_data, default_storer, default_item_state )
|
if not check_is_ok then
|
return 1, strRetInfo
|
end
|
-- 创建库存量表
|
inv_detail_data = m3.AllocObject2( strLuaDEID, "INV_Detail" )
|
inv_detail_data.S_WH_CODE = loc.wh_code
|
inv_detail_data.S_AREA_CODE = loc.area_code
|
inv_detail_data.S_LOC_CODE = loc.code
|
inv_detail_data.S_CNTR_CODE = inb_pallet.cntr_code
|
inv_detail_data.T_INBOUND_TIME = curTime
|
for m = 1, attr_count do
|
inv_detail_data[INB_PALLET_DETAIL_ATTRS[m]] = item_detial_data[INB_PALLET_DETAIL_ATTRS[m]]
|
end
|
nRet, inv_detail_data = m3.CreateDataObj2(strLuaDEID, inv_detail_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存量表】失败!"..inv_detail_data
|
end
|
|
-- 创建库存交易日志
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = loc.wh_code
|
inv_txn_log_data.S_AREA_CODE = loc.area_code
|
inv_txn_log_data.S_LOC_CODE = loc.code
|
inv_txn_log_data.S_CNTR_CODE = inb_pallet.cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "IN"
|
inv_txn_log_data.C_SYMBOL = "+"
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = item_detial_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
|
end
|
return 0
|
end
|
|
--[[
|
容器和货位解绑后，调用这个函数会删除 INV_Detail 中货品内容
|
输入参数:
|
cntr_code -- 容器编码
|
str_note -- 备注
|
--]]
|
function wms_inv.After_CntrLoc_UnBinding( strLuaDEID, cntr_code, str_note )
|
local nRet, strRetInfo
|
|
if ( cntr_code == nil or cntr_code == '' ) then
|
return 1, "After_CntrLoc_UnBinding 函数输入参数错误 cntr_code 不能为空!"
|
end
|
|
-- 查询【INV_Detail】
|
local strOrder = ""
|
local strCondition = "S_CNTR_CODE = '"..cntr_code.."'"
|
local data_objects
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "INV_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local n, m, attr_count, base_attr_count
|
local inv_detail_data
|
local inv_txn_log_data
|
|
attr_count = #INB_PALLET_DETAIL_ATTRS
|
base_attr_count = #INV_DETAIL_BASE_ATTRS
|
|
for n = 1, #data_objects do
|
inv_detail_data = m3.KeyValueAttrsToObjAttr(data_objects[n].attrs)
|
|
-- 创建库存交易日志
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_AREA_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_LOC_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "OUT"
|
inv_txn_log_data.C_SYMBOL = "-"
|
inv_txn_log_data.S_NOTE = str_note
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
|
end
|
-- 删除 INV_Detail
|
strCondition = "S_CNTR_CODE = '" .. cntr_code .."'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "INV_Detail", strCondition)
|
if (nRet ~= 0) then
|
return 2, "删除【INV_Detail】失败!"..strRetInfo
|
end
|
|
return 0
|
end
|
|
--[[
|
库存量货位编码从 loc_from 货位移动到 loc_to 货位
|
参数:
|
cntr_code -- 容器编码
|
from -- 移库起始货位
|
to -- 移库终点货位
|
作用:
|
改变 INV_Detail 中的仓库库位
|
--]]
|
function wms_inv.Move( strLuaDEID, cntr_code, from, to )
|
local nRet, strRetInfo
|
local loc_from, loc_to
|
|
if ( cntr_code == nil or cntr_code == '' ) then
|
return 1, "wms_inv.Move 函数输入参数错误 cntr_code 不能为空!"
|
end
|
if ( from == nil or from == '' ) then
|
return 1, "wms_inv.Move 函数输入参数错误 from 不能为空!"
|
end
|
nRet, loc_from = wms_wh.GetLocInfo( from )
|
if ( nRet ~= 0 ) then
|
return 1, "获取货位'"..from.."'信息失败! "..loc_from
|
end
|
|
if ( to == nil or to == '' ) then
|
return 1, "wms_inv.Move 函数输入参数错误 to 不能为空!"
|
end
|
nRet, loc_to = wms_wh.GetLocInfo( to )
|
if ( nRet ~= 0 ) then
|
return 1, "获取货位'"..to.."'信息失败! "..loc_to
|
end
|
|
-- 查询【INV_Detail】
|
local strCondition = "S_CNTR_CODE = '"..cntr_code.."' AND S_LOC_CODE = '"..from.."'"
|
local strOrder = ""
|
local data_objects
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "INV_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local n, m, base_attr_count
|
local inv_detail_data
|
local inv_txn_log_data
|
|
base_attr_count = #INV_DETAIL_BASE_ATTRS
|
for n = 1, #data_objects do
|
inv_detail_data = m3.KeyValueAttrsToObjAttr(data_objects[n].attrs)
|
|
-- 创建库存交易日志
|
-- 从from库位移出
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = loc_from.wh_code
|
inv_txn_log_data.S_AREA_CODE = loc_from.area_code
|
inv_txn_log_data.S_LOC_CODE = loc_from.code
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "MOVE-OUT"
|
inv_txn_log_data.C_SYMBOL = "-"
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then return 1, "创建【库存交易日志】失败!"..inv_txn_log_data end
|
|
-- 移到to库位
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = loc_to.wh_code
|
inv_txn_log_data.S_AREA_CODE = loc_to.area_code
|
inv_txn_log_data.S_LOC_CODE = loc_to.code
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "MOVE-IN"
|
inv_txn_log_data.C_SYMBOL = "+"
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then return 1, "创建【库存交易日志】失败!"..inv_txn_log_data end
|
end
|
|
--更新CG_Detail
|
strCondition = "S_CNTR_CODE = '"..cntr_code.."' AND S_LOC_CODE = '"..from.."'"
|
local strUpdateSql = "S_WH_CODE = '"..loc_to.wh_code.."', S_AREA_CODE = '"..loc_to.area_code.."', S_LOC_CODE = '"..loc_to.code.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "INV_Detail", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then
|
return 2, "更新[INV_Detail]信息失败!"..strRetInfo
|
end
|
return 0
|
end
|
|
--[[
|
根据 条件 strCondition 来扣减 INV_detail 中货品的数量
|
参数：
|
cntr_code 容器编码
|
strCondition 查询条件
|
strOrder INV_Detail 的排序
|
qty 扣减物料数量
|
note 备注
|
返回：
|
nRet 非0 失败
|
如果没有匹配到返回 0，"none"
|
-- ]]
|
function wms_inv.Reduce_INV_Detail_Qty( strLuaDEID, cntr_code, strCondition, strOrder, qty, note )
|
local nRet, strRetInfo, m
|
|
if ( cntr_code == nil or cntr_code == '' ) then
|
return 1, "Reduce_INV_Detail_Qty 函数中 cntr_code 不能为空!"
|
end
|
if ( strCondition == nil or strCondition == '' ) then
|
return 1, "Reduce_INV_Detail_Qty 函数中 strCondition 不能为空!"
|
end
|
if ( type(qty) ~= "number") then
|
return 1, "Reduce_INV_Detail_Qty 函数中 qty 必须是数值类型!"
|
end
|
if ( qty <= 0 ) then
|
return 1, "Reduce_INV_Detail_Qty 函数中 qty 必须大于0!"
|
end
|
|
if note == nil then note = '' end
|
|
local data_objects
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "INV_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local n
|
local obj_attr, inv_detail_data
|
local value
|
local inv_txn_log_data
|
|
base_attr_count = #INV_DETAIL_BASE_ATTRS
|
for n = 1, #data_objects do
|
inv_detail_data = m3.KeyValueAttrsToObjAttr(data_objects[n].attrs)
|
value = lua.Get_NumAttrValue( inv_detail.F_QTY )
|
|
-- 创建 INV_Log
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_AREA_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_LOC_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "ADJ-OUT"
|
inv_txn_log_data.C_SYMBOL = "-"
|
inv_txn_log_data.S_NOTE = note
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
|
if ( qty >= value ) then
|
-- 删除 INV_Detail
|
strCondition = "S_ID = '"..data_objects[n].id.."'"
|
nRet, strRetInfo = mobox.deleteDataObject( strLuaDEID, "INV_Detail", strCondition )
|
if ( nRet ~= 0) then return 1, "删除相关的【INV_Detail】失败! "..strRetInfo end
|
inv_txn_log_data.F_QTY = inv_detail.F_QTY
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
if ( qty == value ) then goto done end
|
else
|
-- 减少 INV_Detail 中的数量
|
inv_detail.F_QTY = value - qty
|
nRet, strRetInfo = wms_cntr.INV_Detail_Update( strLuaDEID, inv_detail )
|
if ( nRet ~= 0) then return 1, "wms_cntr.INV_Detail_Update 失败! "..strRetInfo end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
goto done
|
end
|
qty = qty - value
|
end
|
|
::done::
|
return 0, ""
|
end
|
|
--[[
|
根据条件加 INV_Detail 中的数量，
|
参数：
|
cntr_code 容器编码
|
strCondition 查询条件
|
strOrder INV_Detail 的排序
|
qty 扣减物料数量
|
note 备注
|
返回：
|
nRet 非0 失败
|
如果没有匹配到返回 0，"none"
|
-- ]]
|
function wms_inv.Add_INV_Detail_Qty( strLuaDEID, cntr_code, strCondition, strOrder, qty, note )
|
local m, nRet, strRetInfo
|
|
if ( cntr_code == nil or cntr_code == '' ) then
|
return 1, "Add_INV_Detail_Qty 函数中 cntr_code 不能为空!"
|
end
|
if ( strCondition == nil or strCondition == '' ) then
|
return 1, "Add_INV_Detail_Qty 函数中 strCondition 不能为空!"
|
end
|
if ( type(qty) ~= "number") then
|
return 1, "Add_INV_Detail_Qty 函数中 qty 必须是数值类型!"
|
end
|
if ( qty <= 0 ) then
|
return 1, "Add_INV_Detail_Qty 函数中 qty 必须大于0!"
|
end
|
if note == nil then note = '' end
|
|
local data_objects
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "INV_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local strUpdateCondition = "S_ID = '"..data_objects[n].id.."'"
|
local strSetAttr = "F_QTY = F_QTY + "..qty
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "INV_Detail", strUpdateCondition, strSetAttr )
|
if ( nRet ~= 0 ) then
|
return 2, "更新【容器货品明细】信息失败!"..strRetInfo
|
end
|
local inv_txn_log_data
|
-- 创建库存交易日志
|
local inv_detail_data = m3.KeyValueAttrsToObjAttr(data_objects[1].attrs)
|
|
-- 创建 INV_Log
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_AREA_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_LOC_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "ADJ-IN"
|
inv_txn_log_data.C_SYMBOL = "+"
|
inv_txn_log_data.S_NOTE = note
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
|
return 0, ""
|
end
|
|
--[[
|
把预分配容器明细加入 INV_Detail 适用料箱带料格的预分配料箱入库
|
pac_no -- 预分配容器流水号
|
loc_code -- 当前容器位置
|
]]
|
function wms_inv.Add_INV_Detail_By_PAC_Detail( strLuaDEID, cntr_code, pac_no, loc_code )
|
local nRet, strRetInfo, n
|
|
if ( pac_no == nil or pac_no == '' ) then
|
return 1, "wms_inv.Add_INV_Detail_By_PAC_Detail 函数中 pac_no 必须有值!"
|
end
|
if ( cntr_code == nil or cntr_code == '' ) then
|
return 1, "wms_inv.Add_INV_Detail_By_PAC_Detail 函数中 cntr_code 必须有值!"
|
end
|
local loc
|
nRet, loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet ~= 0 ) then
|
return 1, "获取货位'"..loc_code.."'信息失败! "..loc
|
end
|
local forced_fill_cell = {} -- 强制置满的料格
|
local curTime = os.date("%Y-%m-%d %H:%M:%S")
|
|
-- 查询【Pre_Alloc_CNTR_Detail】
|
local strOrder = ""
|
local strCondition = "S_PAC_NO = '"..pac_no.."'"
|
local data_objects
|
nRet, data_objects = m3.QueryDataObject(strLuaDEID, "Pre_Alloc_CNTR_Detail", strCondition, strOrder )
|
if ( nRet ~= 0 ) then return 2, "QueryDataObject失败!"..data_objects end
|
if ( data_objects == '') then return 0 end
|
|
local n, m, attr_count, base_attr_count
|
local inv_detail_data, inv_detail
|
local inv_txn_log_data
|
local item_detial_data
|
local check_is_ok
|
|
attr_count = #INB_PALLET_DETAIL_ATTRS
|
base_attr_count = #INV_DETAIL_BASE_ATTRS
|
|
-- 缺省值设置
|
local default_storer = '' -- 默认货主
|
nRet, default_storer = wms_base.Get_sConst2( "WMS_Default_Storer" )
|
if ( nRet ~= 0 ) then
|
default_storer = ''
|
end
|
local default_item_state = '' -- 默认货品状态
|
nRet, default_item_state = wms_base.Get_sConst2( "WMS_Default_ItemState" )
|
if ( nRet ~= 0 ) then
|
default_item_state = ''
|
end
|
|
for n = 1, #data_objects do
|
item_detial_data = m3.KeyValueAttrsToObjAttr(data_objects[n].attrs)
|
if ( item_detial_data.C_FORCED_FILL == 'Y' ) then
|
table.insert( forced_fill_cell, item_detial_data.S_CELL_NO )
|
end
|
check_is_ok, strRetInfo = item_detail_data_check( item_detial_data, default_storer, default_item_state )
|
if not check_is_ok then
|
return 1, strRetInfo
|
end
|
|
if lua.Get_NumAttrValue( item_detial_data.F_ACT_QTY ) > 0 then
|
-- 创建库存量表
|
inv_detail_data = m3.AllocObject2( strLuaDEID, "INV_Detail" )
|
inv_detail_data.S_WH_CODE = loc.wh_code
|
inv_detail_data.S_AREA_CODE = loc.area_code
|
inv_detail_data.S_LOC_CODE = loc.code
|
inv_detail_data.S_CNTR_CODE = cntr_code
|
inv_detail_data.T_INBOUND_TIME = curTime
|
for m = 1, attr_count do
|
inv_detail_data[INB_PALLET_DETAIL_ATTRS[m]] = item_detial_data[INB_PALLET_DETAIL_ATTRS[m]]
|
end
|
inv_detail_data.F_QTY = item_detial_data.F_ACT_QTY
|
|
nRet, inv_detail_data = m3.CreateDataObj2(strLuaDEID, inv_detail_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存量表】失败!"..inv_detail_data
|
end
|
|
-- 创建库存交易日志
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = loc.wh_code
|
inv_txn_log_data.S_AREA_CODE = loc.area_code
|
inv_txn_log_data.S_LOC_CODE = loc.code
|
inv_txn_log_data.S_CNTR_CODE = cntr_code
|
inv_txn_log_data.S_LOG_TYPE = "IN"
|
inv_txn_log_data.C_SYMBOL = "+"
|
for m = 1, base_attr_count do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = item_detial_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
end
|
end
|
|
local nCount = #forced_fill_cell
|
if ( nCount == 0 ) then return 0 end
|
|
-- 设置料格强制置满属性
|
local str_cell_no = lua.strArray2string( forced_fill_cell )
|
if ( str_cell_no == '' ) then return 0 end
|
local strCondition, srtSetAttr
|
strCondition = " S_CELL_NO IN ("..str_cell_no..") AND S_CNTR_CODE = '"..cntr_code.."'"
|
srtSetAttr = "C_FORCED_FILL = 'Y', N_EMPTY_FULL = 2"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Container_Cell", strCondition, srtSetAttr )
|
if ( nRet ~= 0 ) then
|
lua.Warning( strLuaDEID, debug.getinfo(1), "更新【容器箱格】信息失败! condition = "..strCondition )
|
return 2, "更新【容器箱格】信息失败!"..strRetInfo
|
end
|
|
return 0
|
end
|
|
--[[
|
库存量加预分配量
|
输入参数:
|
inv_detail_data --- 需要进行分配量增加的 INV_Detial
|
qty -- 分配量
|
bs_type -- 增加分配量的业务类型 bs_no 为业务单号
|
--]]
|
function wms_inv.INV_Detail_Add_AllocQty( strLuaDEID, inv_detail_data, qty, bs_type, bs_no )
|
local nRet, strRetInfo
|
local strCondition
|
local inv_detail_id = inv_detail_data.S_ID or ''
|
|
if inv_detail_id == '' then
|
return 1, "wms_inv.INV_Detail_Add_AllocQty 函数失败! inv_detail_data 中S_ID为空!"
|
end
|
if qty <= 0 or qty == nil then
|
return 1, "wms_inv.INV_Detail_Add_AllocQty 函数失败! qty 必须大于 0!"
|
end
|
|
strCondition = "S_ID = '"..inv_detail_data.S_ID.."'"
|
local strSetAttr = "F_ALLOC_QTY = F_ALLOC_QTY+"..qty
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "INV_Detail", strCondition, strSetAttr )
|
if (nRet ~= 0) then
|
return 2, "设置【INV_Detail】数量分配量信息失败!"..strRetInfo
|
end
|
|
-- 创建库存锁定日志
|
local m
|
local inv_lock_log_data = m3.AllocObject2( strLuaDEID, "INV_Lock_Log" )
|
|
for m = 1, #INV_LOG_BASE_ATTRS do
|
inv_lock_log_data[INV_LOG_BASE_ATTRS[m]] = inv_detail_data[INV_LOG_BASE_ATTRS[m]]
|
end
|
inv_lock_log_data.S_LOG_TYPE = "allocate" -- 订单分配库存量
|
inv_lock_log_data.F_QTY = qty
|
inv_lock_log_data.S_BS_TYPE = bs_type
|
inv_lock_log_data.S_BS_NO = bs_no
|
inv_lock_log_data.G_INV_DETAIL_ID = inv_detail_data.S_ID
|
|
nRet, inv_lock_log_data = m3.CreateDataObj2(strLuaDEID, inv_lock_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存锁定日志】失败!"..inv_lock_log_data
|
end
|
return 0
|
end
|
|
local function create_inv_detail_allocate_out_log( strLuaDEID, inv_detail_data, qty, alloc_qty, bs_type, bs_no )
|
local nRet, m
|
|
-- 创建库存交易日志
|
local inv_txn_log_data
|
inv_txn_log_data = m3.AllocObject2( strLuaDEID, "INV_TXN_Log" )
|
inv_txn_log_data.S_WH_CODE = inv_detail_data.S_WH_CODE
|
inv_txn_log_data.S_AREA_CODE = inv_detail_data.S_AREA_CODE
|
inv_txn_log_data.S_LOC_CODE = inv_detail_data.S_LOC_CODE
|
inv_txn_log_data.S_LOG_TYPE = "OUT"
|
inv_txn_log_data.C_SYMBOL = "-"
|
|
for m = 1, #INV_DETAIL_BASE_ATTRS do
|
inv_txn_log_data[INV_DETAIL_BASE_ATTRS[m]] = inv_detail_data[INV_DETAIL_BASE_ATTRS[m]]
|
end
|
inv_txn_log_data.F_QTY = qty
|
nRet, inv_txn_log_data = m3.CreateDataObj2(strLuaDEID, inv_txn_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存交易日志】失败!"..inv_txn_log_data
|
end
|
|
-- 创建库存锁定日志
|
local inv_lock_log_data = m3.AllocObject2( strLuaDEID, "INV_Lock_Log" )
|
|
for m = 1, #INV_LOG_BASE_ATTRS do
|
inv_lock_log_data[INV_LOG_BASE_ATTRS[m]] = inv_detail_data[INV_LOG_BASE_ATTRS[m]]
|
end
|
inv_lock_log_data.S_LOG_TYPE = "allocate_release" -- 订单分配库存量释放
|
inv_lock_log_data.F_QTY = alloc_qty
|
inv_lock_log_data.S_BS_TYPE = bs_type
|
inv_lock_log_data.S_BS_NO = bs_no
|
inv_lock_log_data.G_INV_DETAIL_ID = inv_detail_data.id
|
inv_lock_log_data.F_QTY = alloc_qty
|
nRet, inv_lock_log_data = m3.CreateDataObj2(strLuaDEID, inv_lock_log_data )
|
if (nRet ~= 0 ) then
|
return 1, "创建【库存锁定日志】失败!"..inv_lock_log_data
|
end
|
return 0
|
end
|
|
--[[
|
INV_Detail 中分配的数量出库
|
-- qty 是实际出库数量 alloc_qty 是分配量
|
--]]
|
function wms_inv.INV_Detail_Out( strLuaDEID, inv_detail_id, qty, alloc_qty, bs_type, bs_no )
|
local nRet, strRetInfo, strCondition
|
|
if ( inv_detail_id == '' or inv_detail_id == nil ) then
|
return 2, "wms_inv.Allocate_Qty_Out 函数中 参数 inv_detail_id 不能为空!"
|
end
|
local inv_detail_data
|
nRet, inv_detail_data = m3.GetDataObject2( strLuaDEID, "INV_Detail", inv_detail_id )
|
if ( nRet ~= 0 ) then
|
return 2, inv_detail_data
|
end
|
|
strCondition = "S_ID = '"..inv_detail_id.."'"
|
local strSetAttr = "F_QTY = F_QTY-"..qty..", F_ALLOC_QTY = F_ALLOC_QTY-"..alloc_qty
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "INV_Detail", strCondition, strSetAttr )
|
if (nRet ~= 0) then return 2, "设置【INV_Detail】数量分配量信息失败!"..strRetInfo end
|
|
nRet, strRetInfo = create_inv_detail_allocate_out_log( strLuaDEID, inv_detail_data, qty, alloc_qty, bs_type, bs_no )
|
if nRet ~= 0 then
|
return 2, strRetInfo
|
end
|
return 0
|
end
|
|
-- 根据输入的 strCondition 扣减 INV_Detail 中某数量和分配量, 会有多条 INV_Detail 需要批分
|
-- qty 是真实际出库数量 alloc_qty 是分配量
|
function wms_inv.INV_Detail_SplitOut( strLuaDEID, strCondition, strOrder, qty, alloc_qty, bs_type, bs_no )
|
local nRet, strRetInfo
|
|
if ( strCondition == '' or strCondition == nil ) then
|
return 2, "函数 wms_inv.INV_Detail_SplitOut 里strCondition 不能为空!"
|
end
|
if ( strOrder == nil ) then strOrder = '' end
|
|
local inv_detail_objs
|
nRet, inv_detail_objs = m3.QueryDataObject(strLuaDEID, "INV_Detail", strCondition, strOrder )
|
if (nRet ~= 0) then
|
return 2, "查询CG_Detail失败! "..inv_detail_objs
|
end
|
if ( inv_detail_objs == '' ) then return 0 end
|
|
local n, inv_detail_data
|
local strSetAttr, inv_detail_qty, inv_detail_alloc_qty
|
local strSetQtyAttr, strSetAllocQtyAttr
|
local Q, AQ
|
|
for n = 1, #inv_detail_objs do
|
inv_detail_data = m3.KeyValueAttrsToObjAttr(inv_detail_objs[n].attrs)
|
inv_detail_data.id = lua.trim_guid_str( inv_detail_objs[n].id )
|
inv_detail_qty = lua.Get_NumAttrValue( inv_detail_data.F_QTY )
|
inv_detail_alloc_qty = lua.Get_NumAttrValue( inv_detail_data.F_ALLOC_QTY )
|
|
strSetAttr = ''
|
Q = 0
|
AQ = 0
|
if ( qty > 0 ) then
|
if ( inv_detail_qty < qty ) then
|
strSetQtyAttr = "F_QTY = F_QTY-"..inv_detail_qty
|
qty = qty - inv_detail_qty
|
Q = inv_detail_qty
|
else
|
strSetQtyAttr = "F_QTY = F_QTY-"..qty
|
Q = qty
|
qty = 0
|
end
|
strSetAttr = strSetQtyAttr
|
end
|
|
if ( alloc_qty > 0 ) then
|
if ( inv_detail_alloc_qty < alloc_qty ) then
|
strSetAllocQtyAttr = "F_ALLOC_QTY = F_ALLOC_QTY-"..inv_detail_alloc_qty
|
AQ = inv_detail_alloc_qty
|
alloc_qty = alloc_qty - inv_detail_alloc_qty
|
else
|
strSetAllocQtyAttr = "F_ALLOC_QTY = F_ALLOC_QTY-"..alloc_qty
|
AQ = alloc_qty
|
alloc_qty = 0
|
end
|
if ( strSetAttr ~= '' ) then strSetAttr = strSetAttr.."," end
|
strSetAttr = strSetAttr..strSetAllocQtyAttr
|
end
|
|
if ( strSetAttr == '' ) then break end
|
|
strCondition = "S_ID = '"..inv_detail_data.id.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "INV_Detail", strCondition, strSetAttr )
|
if (nRet ~= 0) then
|
return 2, "设置【INV_Detail】数量分配量信息失败!"..strRetInfo
|
end
|
-- 创建日志
|
nRet, strRetInfo = create_inv_detail_allocate_out_log( strLuaDEID, inv_detail_data, Q, AQ, bs_type, bs_no )
|
if nRet ~= 0 then
|
return 2, strRetInfo
|
end
|
end
|
return 0
|
end
|
|
return wms_inv
|
