--[[
|
编码: WMS-56-23
|
名称: 组盘明细-拣料箱输入变化后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：项目
|
|
函数： AfterUPCChange
|
|
功能:
|
-- 根据扫描的拣料箱号，判断当前扫码的货品是否可以放到扫描的拣料箱中
|
|
更改记录:
|
V2.0 HAN 20250422 JX_Material_Barcode 改为 Material_Barcode
|
|
--]]
|
json = require ("json")
|
mobox = require ("OILua_JavelinExt")
|
m3 = require("oi_base_mobox")
|
|
function AfterUPCChange ( strLuaDEID )
|
local nRet, strRetInfo
|
|
-- 获取UPC
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "UPC","S_ITEM_CODE","F_ACT_QTY" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end
|
local obj_attrs = json.decode( strRetInfo )
|
local upc = lua.Get_StrAttrValue( obj_attrs[1].value )
|
local item_code = lua.Get_StrAttrValue( obj_attrs[2].value )
|
local act_qty = lua.Get_NumAttrValue( obj_attrs[3].value )
|
if ( upc == '' ) then return end
|
|
-- 通过条码找到物料编码
|
local material_barcode
|
nRet, material_barcode = m3.GetDataObjectByKey(strLuaDEID, "Material_Barcode", "S_BARCODE", upc)
|
|
if (nRet ~= 0 ) then
|
if ( nRet == 1 ) then
|
mobox.setInfo( strLuaDEID, "条码'"..upc.."'没有对应的货品，请检查物料条码对照表!")
|
goto set_dlg_attr
|
end
|
lua.Error( strLuaDEID, debug.getinfo(1), "获取【物料条码】信息失败! " .. material_barcode )
|
end
|
|
-- 判断扫码的货品是否是目前的入库任务
|
if ( item_code ~= material_barcode.item_code ) then
|
mobox.setInfo( strLuaDEID, "条码'"..upc.."'对应的货品编码='"..material_barcode.item_code.."不是当前入库任务中的货物!")
|
goto set_dlg_attr
|
end
|
act_qty = act_qty + 1
|
|
::set_dlg_attr::
|
local action =
|
{
|
{
|
action_type = "set_panel_dlg_attr",
|
value = {
|
panel_name = "组盘输入",
|
attrs = {
|
{
|
attr = "F_ACT_QTY",
|
value = act_qty
|
},
|
{
|
attr = "UPC",
|
value = ""
|
}
|
}
|
}
|
|
}
|
}
|
lua.Debug( strLuaDEID, debug.getinfo(1), "action-AfterUPCChange", action )
|
|
nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo ) end
|
|
end
|
