--[[
|
版本： Version 1.0
|
创建日期： 2025-4-20
|
创建人： HAN
|
|
WMS-Basis-Model-Version: V15.5
|
|
功能：
|
在处理入库作业时，将入库单明细中的货品预先分配到具体容器料格的过程在WMS系统里叫 预分配容器
|
一般用在料箱库，空料箱有多种规格，根据货品中的设置呼出适配的料格
|
|
--]]
|
wms_cntr = require ("wms_container")
|
wms_wh = require ("wms_wh")
|
|
local wms_pac = {_version = "0.1.1"}
|
|
--[[
|
预分配料箱，物料预先指定存储料格及料格中最大存储数量，或重量
|
如果货品
|
Designated Material Grid -- 简称 DMG 意思是每个货品都指定了一种料格进行存储
|
特点:
|
一种货品保存在一种类型的料格
|
料格中货品最大存储数量计算方法有两种， 1 -- 系统设置最大储藏数量 2 -- 系统设置重量后根据料格载重进行计算
|
在匹配料箱时，一个料箱只能用相同的数量计算方法
|
|
来源项目: 艾默生料箱库
|
|
输入参数:
|
alloc_rule -- 补料规则（呼出补料料箱匹配规则）
|
{
|
replenishment_call_out = false/true -- 是否启用未满料格呼出补料
|
matching_attrs = {"S_ITEM_CODE","S_ITEM_STATE",...} -- 这些属性相同的料格可以进行补料
|
matching_method = "latest_storage_time" -- 可以为空，latest_storage_time -- 只匹配最近一次入库的相同货品料格
|
}
|
|
wh_code --入库仓库编码
|
area_code -- 入库库区
|
aisle -- 如果是立库这里设置了哪些巷道可用
|
station -- 入库站台（不是必须）
|
bs_type -- 来源业务类型（比如入库单，入库波次）
|
bs_no -- 来源业务单据编码
|
|
---- 下面两个参数是系统运算后的结果返回 ----
|
|
pac_list -- Pre_Alloc_Container 对象列表
|
pac_detail_list Pre_Alloc_CNTR_Detail 列表
|
--]]
|
function wms_pac.Pre_Alloc_CNTR_By_DMG( strLuaDEID, alloc_rule, wh_code, area_code, aisle, station, bs_type, bs_no, pac_list, pac_detail_list )
|
local nRet, strRetInfo, n
|
|
-- step1: 输入参数合法性检查
|
if ( bs_no == nil or bs_no == '') then return 1, "Pre_Alloc_CNTR_By_DMG 函数中业务单号 bs_no 有值!" end
|
if ( bs_type ~= "Inbound_Order" and bs_type ~= "Inbound_Wave") then
|
return 1, "Pre_Alloc_CNTR_By_DMG 函数的业务来源类型 bs_type 只能是【入库单】或【入库波次】"
|
end
|
if ( wh_code == nil or wh_code == '') then return 1, "Pre_Alloc_CNTR_By_DMG 函数中仓库编码 wh_code 有值!" end
|
if ( area_code == nil ) then area_code = '' end
|
if ( aisle == nil ) then aisle = {} end
|
if ( station == nil ) then station = '' end
|
|
-- step2: 获取入库货品明细 item_lis
|
-- 确定要联表查询的表和条件
|
local strTable, strCondition
|
if ( bs_type == "Inbound_Order" ) then
|
strTable = "TN_Inbound_Detail a LEFT JOIN TN_Material b ON a.S_ITEM_CODE = b.S_ITEM_CODE"
|
strCondition = "a.S_IO_NO = '"..bs_no.."'"
|
else
|
strTable = "TN_IW_Detail a LEFT JOIN TN_Material b ON a.S_ITEM_CODE = b.S_ITEM_CODE"
|
strCondition = "a.S_WAVE_NO = '"..bs_no.."'"
|
end
|
-- 要查询的属性
|
local strAttrs = "a.S_ITEM_CODE, a.S_ITEM_NAME, a.S_ITEM_STATE, a.S_BATCH_NO, a.S_SERIAL_NO, a.D_PRD_DATE, a.D_EXP_DATE, a.N_ROW_NO,"..
|
"a.S_SUPPLIER_NO, a.S_OWNER, a.S_STORER, a.S_EXT_ATTR1, a.S_EXT_ATTR2, a.S_EXT_ATTR3, a.S_EXT_ATTR4, a.S_EXT_ATTR5,"..
|
"b.F_WEIGHT, b.F_VOLUME, b.S_CNTR_TYPE, b.S_CELL_TYPE, b.S_ABC_CLS, b.N_LOADING_LIMIT, b.F_LOAD_CAPACITY"
|
|
local strOrder = "a.N_ROW_NO"
|
nRet, strRetInfo = mobox.queryMultiTable(strLuaDEID, strAttrs, strTable, 1, strCondition, strOrder )
|
if (nRet ~= 0) then return 2,"QueryDataObject失败!"..strRetInfo end
|
if ( strRetInfo == '' ) then return 1, bs_type.."'"..bs_no.."'明细为空!" end
|
|
local ret_attr = json.decode(strRetInfo)
|
for n = 1, #ret_attr do
|
local item = {
|
item_code = ret_attr[n][1],
|
item_name = ret_attr[n][2],
|
item_state = ret_attr[n][3],
|
batch_no = ret_attr[n][4],
|
serial_no = ret_attr[n][5],
|
prd_date = ret_attr[n][6],
|
exp_date = ret_attr[n][7],
|
row_no = lua.Get_NumAttrValue( ret_attr[n][8] ),
|
|
supplier = ret_attr[n][9],
|
owner = ret_attr[n][10],
|
storer = ret_attr[n][11],
|
ext_attr1 = ret_attr[n][12],
|
ext_attr2 = ret_attr[n][13],
|
ext_attr3 = ret_attr[n][14],
|
ext_attr4 = ret_attr[n][15],
|
ext_attr5 = ret_attr[n][16],
|
|
weight = lua.Get_NumAttrValue( ret_attr[n][17] ),
|
volume = lua.Get_NumAttrValue( ret_attr[n][18] ),
|
cntr_type = ret_attr[n][19],
|
cell_type = ret_attr[n][20],
|
abc_cls = ret_attr[n][21],
|
load_limit = lua.Get_NumAttrValue( ret_attr[n][22] ),
|
load_capacity = lua.Get_NumAttrValue( ret_attr[n][23] ),
|
}
|
end
|
return 0
|
end
|
|
return wms_pac
|
