--[[
|
编码: WMS-33-01
|
名称: 指定出库-创建前
|
作者：HAN
|
日期：2025-1-29
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： BeforeDataObjCreate
|
|
功能:
|
-- 考虑到物料编码和容器编码允许输入，因此需要判断一下物料编码是否有效
|
|
更改记录:
|
--]]
|
|
wms_base = require ("wms_base")
|
|
function BeforeDataObjCreate ( strLuaDEID )
|
local nRet, strRetInfo
|
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "N_TYPE", "S_ITEM_CODE", "S_ITEM_NAME", "S_SO_NO")
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end
|
local obj_attrs = json.decode( strRetInfo )
|
local so_type = lua.Get_NumAttrValue( obj_attrs[1].value )
|
local so_no = lua.Get_StrAttrValue( obj_attrs[4].value )
|
local attr_value = {}
|
local nIndex = 1
|
local str_so_type = wms_base.GetDictItemName( strLuaDEID, "WMS_SpecifyOutboundType", so_type )
|
|
-- 2 指定货品出库
|
if ( so_type == 2 ) then
|
local item_code = lua.Get_StrAttrValue( obj_attrs[2].value )
|
local item_name = lua.Get_StrAttrValue( obj_attrs[3].value )
|
|
if ( item_name == '') then
|
local material
|
if ( item_code == '' ) then
|
mobox.stopProgram( strLuaDEID, "物料/货品编码不能为空!" )
|
return
|
end
|
nRet, material = m3.GetDataObjectByKey( strLuaDEID, "SKU", "S_ITEM_CODE", item_code )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "GetDataObjectByKey失败"..material ) end
|
|
|
attr_value[nIndex] = lua.KeyValueObj( "S_ITEM_NAME", material.item_name )
|
nIndex = nIndex + 1
|
end
|
end
|
|
-- 生成指定出库号
|
if ( so_no == '' ) then
|
local strHeader = 'SOO'..os.date("%y%m")..'-'
|
nRet,so_no = mobox.getSerialNumber( "指定出库单", strHeader, 4 )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), '生成指定出库单号失败!'..so_no ) end
|
|
-- 设置信息
|
attr_value[nIndex] = lua.KeyValueObj( "S_SO_NO", so_no )
|
nIndex = nIndex + 1
|
end
|
attr_value[nIndex] = lua.KeyValueObj( "S_TYPE", str_so_type )
|
nRet, strRetInfo = mobox.setCurEditDataObjAttr( strLuaDEID, lua.table2str(attr_value) )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "设置信息失败! "..strRetInfo ) end
|
|
end
|
