--[[
|
编码: WMS-00-10
|
名称: 工厂-基础数据导出
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： WMS_BaseData_Export
|
|
功能:
|
-- 和WMS相关的基础数据导出
|
包括下面这些数据
|
-- 工厂，仓库，库区，货位，逻辑库区，巷道，货位组，常量，站台
|
|
更改记录:
|
|
--]]
|
|
json = require ("json")
|
mobox = require ("OILua_JavelinExt")
|
m3 = require ("oi_base_mobox")
|
|
-- 和WMS系统相关的一些仓库结构基础数据的导出
|
function WMS_BaseData_Export( strLuaDEID )
|
local nRet, strRetInfo
|
|
nRet, strRetInfo = mobox.getLuaDEInfo( strLuaDEID )
|
if (nRet ~= 0 or strRetInfo == '') then lua.Error( strLuaDEID, debug.getinfo(1), "调用 getLuaDEInfo 失败!"..strRetInfo ) end
|
local lua_info, success
|
success, lua_info = pcall( json.decode, strRetInfo)
|
if ( success == false ) then
|
lua.Error( strLuaDEID, debug.getinfo(1), "Lua数据包的JSON格式非法! 原因:"..lua_info..' --> '..strRetInfo )
|
end
|
|
local file_name = "WMSBaseDataStrut-"..lua.guid()..".json"
|
local file_path = lua_info.app_path.."\\Temp\\"..file_name
|
local fn = io.open( file_path, "a" )
|
|
-- 导出【工厂】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Factory" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Factory 时失败!"..strRetInfo ) end
|
|
-- 导出【仓库】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Warehouse" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Warehouse 时失败!"..strRetInfo ) end
|
|
-- 导出【库区】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Area" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Area 时失败!"..strRetInfo ) end
|
|
-- 导出【逻辑库区】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Zone" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Zone 时失败!"..strRetInfo ) end
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Zone_Cls" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Zone_Cls 时失败!"..strRetInfo ) end
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Zone_Link" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Zone_Link 时失败!"..strRetInfo ) end
|
|
-- 导出【货位】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Location" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Location 时失败!"..strRetInfo ) end
|
-- 导出【货位站点扩展】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Location_Ext" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Location_Ext 时失败!"..strRetInfo ) end
|
-- 导出【货位组】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Location_Group" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Location_Group 时失败!"..strRetInfo ) end
|
|
-- 导出【巷道】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Aisle" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Aisle 时失败!"..strRetInfo ) end
|
|
|
-- 导出【常量】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "WMS_Const" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 WMS_Const 时失败!"..strRetInfo ) end
|
|
-- 导出【机台】信息
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "Machine_Station" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 Machine_Station 时失败!"..strRetInfo ) end
|
nRet, strRetInfo = OI_DataObject_Export( strLuaDEID, fn, "MS_Area_Link" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "在导出 MS_Area_Link 时失败!"..strRetInfo ) end
|
|
fn:close()
|
|
mobox.setInfo( strLuaDEID, "系统导出一个名为'"..file_name.."'的WMS基础数据文件!")
|
|
-- 获取文件服务器标识
|
nRet, strRetInfo = mobox.getFileSvr(strLuaDEID)
|
if (nRet ~= 0 or strRetInfo == '') then
|
lua.Error( strLuaDEID, debug.getinfo(1), "得到文件服务标识失败!")
|
end
|
local strFileServer = strRetInfo
|
|
nRet, strRetInfo = mobox.uploadFile(strLuaDEID, strFileServer, file_path )
|
if (nRet ~= 0 or strRetInfo == '') then
|
lua.Error( strLuaDEID, debug.getinfo(1), "上传文件失败!")
|
end
|
local action = {
|
{
|
action_type = download_file,
|
value = {
|
file_svr = strFileServer,
|
file_id = strRetInfo,
|
file_name = "2.0-特征选项导出.xlsx"
|
}
|
}
|
}
|
mobox.setAction( strLuaDEID, action )
|
end
|
