--[[
|
编码: M3-00-02
|
名称: public-获取数据类中定义的编码和分组信息
|
作者：HAN
|
日期：2025-2-14
|
|
级别： 项目
|
|
函数： Print_WMSBasisClsCode
|
|
功能:
|
|
|
更改记录:
|
|
--]]
|
|
m3 = require( "oi_base_mobox" )
|
|
function Print_WMSBasisClsCode ( strLuaDEID )
|
local nRet, strRetInfo, n
|
local strCondition, strSetSQL
|
|
local attrs = {"CN_S_ID","CN_S_GROUP","CN_S_CODE","CN_N_ORDER"}
|
nRet, strRetInfo = mobox.queryTable( strLuaDEID, "OI_SYS_DATA_CLASS", lua.table2str(attrs), 1000)
|
|
if ( nRet ~= 0 ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "获取数据类定义失败!"..strRetInfo )
|
end
|
|
if ( strRetInfo == '' ) then return end
|
local data_info = json.decode( strRetInfo )
|
strRetInfo = ""
|
for n = 1, #data_info do
|
|
if ( data_info[n].CN_S_GROUP ~= '巨星' ) then
|
local str_cls_info = '{cls_id = "'..data_info[n].CN_S_ID..'",group = "'..data_info[n].CN_S_GROUP..'",'..
|
'code = "'..data_info[n].CN_S_CODE..'", order = '..lua.StrToNumber( data_info[n].CN_N_ORDER ).."}"
|
if ( strRetInfo ~= '' ) then strRetInfo = strRetInfo.."," end
|
strRetInfo = strRetInfo..str_cls_info
|
end
|
end
|
|
lua.Debug( strLuaDEID, debug.getinfo(1), "WMS Basis ClsInfo -->", "{"..strRetInfo.."}" )
|
end
|
