--[[
|
编码: JX-24-11
|
名称: 点领用按钮后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： ClickOkButton
|
|
功能:
|
-- 点击领用按钮后通过选中的出库单，统计出库货品的总体积计算出需要多少个检料框
|
|
更改记录:
|
V2.0 HAN 20250312 增加对选中出库的的状态和波次号检测，检查是否已经有出库波次用到这个出库单
|
--]]
|
wms_out = require( "wms_outbound" )
|
wms_station = require( "wms_station" )
|
|
-- 排序 体积大的在前面
|
local function sum_detail_sort( item1, item2 )
|
return item1.volume > item2.volume
|
end
|
-- 计算拣料箱的数量
|
-- sum_detail_list 出库单货品明细 { item_code, qty, volume }
|
local function count_picking_box_num( strLuaDEID, sum_detail_list, box_volume )
|
local n
|
local picking_box_list = {
|
{
|
x_volume = box_volume
|
}
|
}
|
|
if ( box_volume == nil or box_volume <= 0 ) then
|
return 1, "拣料箱的体积不合法必须大于0"
|
end
|
|
-- sum_detail_list 排序一下，体积大的先放
|
table.sort( sum_detail_list, sum_detail_sort )
|
|
local m, find, nCount
|
for n = 1, #sum_detail_list do
|
if ( sum_detail_list[n].volume <= 0 ) then
|
return 1, "货品编码 = '"..sum_detail_list[n].item_code.."' 的体积不合法 !"
|
end
|
while ( sum_detail_list[n].qty > sum_detail_list[n].alloc_qty ) do
|
-- 计算一个箱子能放多少个
|
find = false
|
nCount = #picking_box_list
|
for m = 1, nCount do
|
if ( picking_box_list[m].x_volume >= sum_detail_list[n].volume ) then
|
picking_box_list[m].x_volume = picking_box_list[m].x_volume - sum_detail_list[n].volume
|
sum_detail_list[n].alloc_qty = sum_detail_list[n].alloc_qty + 1
|
find = true
|
break
|
end
|
end
|
if ( find == false ) then
|
-- 需要申请空的拣料箱
|
if ( nCount == 10 ) then return 1, "拣料箱的数量不能超过10只!" end
|
local picking_box = { x_volume = box_volume }
|
table.insert( picking_box_list, picking_box )
|
end
|
end
|
end
|
|
return 0, #picking_box_list
|
end
|
|
function ClickOkButton ( strLuaDEID )
|
local nRet, strRetInfo, n
|
local data_json
|
|
-- 在此操作的数据对象主体 是【出库单】数据对象， data_json 是出库单
|
nRet, data_json = m3.GetSysDataJson( strLuaDEID )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), data_json ) end
|
-- nCount 出库单数量
|
local nCount = #data_json
|
if ( nCount == 0 ) then
|
mobox.setInfo( strLuaDEID, "必须选中一个出库单!" )
|
return
|
end
|
-- 从入库单这里获取 仓库、库区编码，如果不一样报错
|
local wh_code = ''
|
local area_code = ''
|
local compose = {} -- 波次组成对象
|
local sum_detail_list = {}
|
local bWave = false
|
local bs_no, bs_type
|
|
-- 获取输入界面中的工作台属性
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_STATION_NO" )
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo )
|
end
|
|
local input_value = json.decode( strRetInfo )
|
local station = lua.Get_StrAttrValue( input_value[1].value )
|
|
if ( station == '' or input_value == nil ) then
|
mobox.setInfo( strLuaDEID, "必须选择一个工作站!" )
|
return
|
end
|
local strUserLogin, strUserName
|
nRet, strUserLogin, strUserName = mobox.getCurUserInfo( strLuaDEID )
|
if ( nRet ~= 0 ) then return 2, "获取当前操作人员信息失败! "..strUserLogin end
|
|
local box_volume = wms_base.Get_nConst( strLuaDEID, "拣料箱体积")
|
if ( box_volume <= 0 ) then
|
mobox.setInfo( strLuaDEID, "'拣料箱体积'参数非法!" )
|
return
|
end
|
|
local box_num
|
local loc_code
|
nRet, loc_code = wms_station.Get_Station_Loc( strLuaDEID, station )
|
if ( nRet ~= 0 ) then
|
lua.Stop( strLuaDEID, loc_code )
|
return
|
end
|
|
local exit_loc
|
nRet, exit_loc = wms_wh.GetLocInfo( loc_code )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), '获取站台货位信息失败! '..loc_code ) end
|
|
--【step1】获取出库单明细，如果是多个出库单合并出库单
|
local outbound_sum_info -- 出库单里货品的汇总信息比如体积
|
local strUpdateSql, strCondition
|
local nPickingBoxNum = 0
|
|
bs_type = "Outbound_Wave"
|
|
local outbound_obj = {}
|
local msg = ""
|
-- 多个出库单需要合并为一个出库波次进行出库获取出库波次明细
|
for n = 1, nCount do
|
-- V2.0
|
-- 获取出库单对象
|
nRet, outbound_obj = m3.GetDataObject( strLuaDEID, "Outbound_Order", data_json[n].id )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), outbound_obj ) end
|
-- 如果选择的出库单已经有出库波次号
|
if ( outbound_obj.wave_no ~= '' or outbound_obj.b_state ~= 0 ) then
|
msg = msg.."\r\n单号='"..outbound_obj.no.."'的出库单已经有出库波次!"
|
else
|
if ( wh_code == '' ) then
|
wh_code = lua.Get_StrAttrValue( outbound_obj.wh_code )
|
else
|
if ( wh_code ~= outbound_obj.wh_code ) then
|
mobox.setInfo( strLuaDEID, "选中的出库单仓库必须是一样的!" )
|
return
|
end
|
end
|
if ( area_code == '' ) then
|
area_code = lua.Get_StrAttrValue( outbound_obj.area_code )
|
else
|
if ( area_code ~= outbound_obj.area_code ) then
|
mobox.setInfo( strLuaDEID, "选中的出库单库区必须是一样的!" )
|
return
|
end
|
end
|
-- 获取出库单明细
|
nRet, outbound_sum_info = wms_out.Sum_outbound_detail( strLuaDEID, outbound_obj.no, sum_detail_list )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "wms_out.Sum_outbound_detail 失败!"..outbound_sum_info ) end
|
|
-- 计算出库单需要多少个拣料箱，并且更新出库单
|
nRet, box_num = count_picking_box_num( strLuaDEID, sum_detail_list, box_volume )
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "count_picking_box_num 失败!"..box_num )
|
end
|
|
local item = {
|
oo_no = outbound_obj.no,
|
pick_box_num = box_num
|
}
|
table.insert( compose, item )
|
|
strUpdateSql = "N_PICKING_BOX_NUM = "..box_num
|
strCondition = "S_NO = '"..outbound_obj.no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【出库单】信息失败!"..strRetInfo ) end
|
nPickingBoxNum = nPickingBoxNum + box_num
|
end
|
end
|
|
if ( wh_code == '' ) then
|
mobox.setInfo( strLuaDEID, "出库单仓库不能为空!" )
|
return
|
end
|
local good_type_num = #sum_detail_list
|
if ( good_type_num == 0 ) then
|
mobox.setInfo( strLuaDEID, "出库货品不能为空!" )
|
return
|
end
|
|
-- V2.0
|
-- 如果有选中的出库单不符合要求，前端显示一下
|
if ( msg ~= '' ) then
|
mobox.setInfo( strLuaDEID, msg )
|
end
|
-- 统计出库货品的总体积，总重量，种类，件数
|
local total_qty = 0
|
local total_weight = 0
|
local total_volume = 0
|
|
if ( box_volume <= 0 ) then
|
mobox.setInfo( strLuaDEID, "常量'拣料箱体积'必须大于0!")
|
return
|
end
|
|
for n = 1, good_type_num do
|
total_qty = total_qty + sum_detail_list[n].qty
|
total_weight = total_weight + sum_detail_list[n].qty*sum_detail_list[n].weight
|
total_volume = total_volume + sum_detail_list[n].qty*sum_detail_list[n].volume
|
end
|
|
lua.Debug( strLuaDEID, debug.getinfo(1), "STEP1 -- sum_detail_list ", sum_detail_list)
|
|
-- 弹出 一个HTML界面显示 拣料箱的数量
|
local action =
|
{
|
{
|
action_type = "refresh",
|
value = ""
|
},
|
{
|
action_type = "open_form_dlg",
|
value = {
|
dlg_name = "拣货料箱绑定",
|
cls_id = "Outbound_Order",
|
input_parameter = {
|
bs_type = bs_type,
|
bs_no = bs_no,
|
login = strUserLogin,
|
user_name = strUserName,
|
good_type_num = good_type_num,
|
total_qty = total_qty,
|
total_weight = total_weight,
|
total_volume = total_volume,
|
picking_box_num = nPickingBoxNum,
|
o_detail_list = sum_detail_list,
|
wh_code = wh_code,
|
area_code = area_code,
|
exit_loc = exit_loc,
|
wave_compose = compose,
|
station = station
|
},
|
data_object = {
|
id = "",
|
attrs = {
|
Station = station,
|
PickingBoxNum = nPickingBoxNum,
|
GoodTypeNum = good_type_num,
|
Qty = total_qty
|
}
|
}
|
}
|
}
|
}
|
nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end
|
|
end
|
