nRet, strOBJInfo = mobox.objAttrToObjJson (‘PMS001’, strRetInfo )
沒有對執行做保護(原先理解是 絕對不會出錯的,實際上是錯了),執行后報錯
這個錯誤爆出,我們根本無法判斷問題所在。所以在任何情況下調用函數都需要做 出錯保護,加入
?if (nRet ~= 0) then
mobox.error(strLuaDEID, “PMS001數據庫沒有對應字段 “)
return
end
2、在Debug 函數里面不能包含表類型的變量
Debug( strLuaDEID, debug.getinfo(1), ‘keynode創建’,tbNote[1])
里面的 tbNote[1]是一個表類型的變量,debug 不支持這個格式
nRet, strOBJInfo = mobox.objAttrToObjJson (‘JS003’, strRetInfo )
]]>
— 功能:
— 3000 功能點 列出與某一個taskid相關的數據
— 若列出數據已經有,將 新增 頁面按鈕屏蔽 (這個功能是做任務評測結果的,結果只能有一個,不可能多個)
————————————————————————–
json = require (“json”)
mobox = require (“OILua_JavelinExt”)function shownowtaskdata ( strLuaDEID )local nRet, strRetInfo local nType local strTaskID local bHidden=false local strClsID=""--拿到數據對象標識 nRet, strRetInfo = mobox.getCurEditExtInfo( strLuaDEID ) if ( nRet ~= 0 ) then mobox.error( strLuaDEID, "系統獲取擴展屬性失敗 "..strRetInfo ) return end if ( strRetInfo =='' or strRetInfo==nil or strRetInfo=='{}' ) then mobox.error( strLuaDEID, "系統獲取擴展屬性為空!" ) return end local extinfo = json.decode( strRetInfo ) strClsID=extinfo.cls_id -- 得到當前cls的id ,下面操作需要— 獲取任務全局屬性 (這個案例是與 Gungho任務系統集成,所以需要這個參數,別的環境這個可以忽略
nRet, strRetInfo = mobox.getGlobalAttr( strLuaDEID, “task_id” )
if ( nRet ~= 0 or strRetInfo == ” ) then
mobox.error( strLuaDEID, “系統無法獲取任務號 “..strRetInfo )
return
end
local input_paramter = json.decode( strRetInfo )
local strTaskID = input_paramter[1].valuelocal strCondition strCondition = "G_TASK_ID='"..strTaskID.."'" --增加隱藏按鈕的依據-通過條件查詢返回符合數據>0 既隱藏 -- local strQeuryCondition="S_TESTITEM='X'" (定義grid某一個字段內有某些數值 這里沒有啟用) nRet, strRetInfo = mobox.getDataObjCount(strLuaDEID, strClsID, strCondition) if (nRet ~= 0 ) then mobox.error(strLuaDEID, "得到數據數量失敗,原因:" .. strRetInfo) return end --轉為整數類型 local nDataCount = tonumber(strRetInfo) if (nDataCount >0) then bHidden=true end --隱藏頁面按鈕 “新增” local strHiddenButton = '' if (bHidden) then strHiddenButton = ',{"action_type":"hidden_button","value":[{"name":"新增"}]}' end local strAction = '[{"action_type":"set_query_condition","value":{"where":"' .. strCondition .. '","order":""}}' strAction = strAction .. strHiddenButton .. ']' mobox.setAction( strLuaDEID, strAction )end
這個列子也可以用于別的一些非法字符串的處理
]]>為了解決這個問題,我們可以編輯一個lua腳本,將這個數據做處理后再顯示(在顯示前事件里面定義這個lua腳本)
–[[? ? 功能說明:? ? ? ? 1) 顯示前做一些字段的處理? ? ? ? 2)前端導入,新增有換行符號 %%3Cbr%%3E ,替換成 <br> 前端html支持的換行內容? ? ? ? 3)內容中有&,替換成 & 前端解析 &不支持,最好在輸入時進行替換–]]json = require(“json”)mobox = require(“OILua_JavelinExt”)require(“oi_basestrfunc”)function BeforeGridShow(strLuaDEID)? ? local nRet, strRetInfo? ? local arobjs, attrs, success? ? — 獲取輸入的DataJson數據包? ? nRet, strRetInfo = mobox.getCurEditDataPacket(strLuaDEID)? ? if (nRet ~= 0) then? ? ? ? mobox.error(strLuaDEID, “無法獲取數據包!”)? ? ? ? return? ? end? ? if (strRetInfo == ” or strRetInfo == nil) then? ? ? ? return? ? end? ? — 解析數據包,數據包格式? ? — [{“id”:””,”attrs”:[{“attr”:””,”value”:””},..]},..]? ? local n, nCount? ? success, arobjs = pcall(json.decode, strRetInfo)? ? if (success == false) then? ? ? ? mobox.error(strLuaDEID, “非法的JSON格式!”)? ? ? ? return? ? end? ? nCount = #arobjs? ? if (nCount == 0) then? ? ? ? return? ? end? ? local obj, attrs? ? local nattr_count? ? local strRow, strAttr, strItem? ? local strDataJson? ? local id, strValue? ? local strAttrs? ? strDataJson = ‘[‘? ? local seg = {}? ? local nSegCount = 0? ? for n = 1, nCount do? ? ? ? obj = arobjs[n]? ? ? ? attrs = obj.attrs? ? ? ? nattr_count = #attrs? ? ? ? id = obj.id? ? ? ? strAttrs=”? ? ? ? — 開始過濾顯示數據對象屬性? ? ? ? for nIndex = 1, nattr_count do? ? ? ? ? ? strAttr = attrs[nIndex].attr? ? ? ? ? ? strValue = attrs[nIndex].value? ? ? ? ? ? strValue = strValue:gsub(“%%3Cbr%%3E”, “<br>”)? ? ? ? ? ? strValue = strValue:gsub(“&”, “&”)? ? ? ? ? ? strItem = ‘{“attr”:”‘ .. strAttr .. ‘”,”value”:”‘ .. strValue .. ‘”},’? ? ? ? ? ? strAttrs = strAttrs .. strItem? ? ? ? end? ? ? ? — 取消最后一個,號? ? ? ? strAttrs = trim_laster_char(strAttrs)? ? ? ? strRow = ‘{“id”:”‘ .. id .. ‘”,”attrs”:[‘ .. strAttrs .. ‘]},’? ? ? ? strDataJson = strDataJson .. strRow? ? end? ? — 取消最后一個,號? ? strDataJson = trim_laster_char(strDataJson)? ? strDataJson = strDataJson .. ‘]’? ? local strAction = ‘[{“action_type”:”reset_data_attr”,”value”:’ .. strDataJson .. ‘}]’? ? mobox.setAction(strLuaDEID, strAction)end
這個列子也可以用于別的一些非法字符串的處理
]]>
企業在實施項目管理系統的時候,不通類型的項目其屬性可能是不一樣的。而Gungho標準系統內對項目的屬性,主要包括(項目名稱、編號、開始結束日期等)。為了適應企業個性項目信息的輸入,我們需要通過Mobox平臺定義項目類型去適應這個需求
Sa 登錄mobox低代碼開發平臺
創建一個用于描述項目擴展屬性的數據對象
注意:業務類型必須是 項目
接下來需要做的內容,這里不具體展開
基礎:主要是綁定哪個數據對象及相關的界面
功能:主要是可以自定義該類型項目的自定義菜單 (參考下圖)
我們在gungho登錄后,新建項目
]]>這個是一個標準的導入模板 ,使用前可以通過修改 表名,字段名稱,字段中文名,字段對應賦值變量名稱。
–[[
這個是一個標準的腳本,可以
1、修改里面的數據對象名稱 樣品技術參數
2、字段相關名稱(字段中文名、字段名稱、字段賦值變量名稱)
字段名稱? ? ? ? ? ? ? ? ? ? ? ? ? ? 字段中文名? ? ? ? ? 字段對應賦值變量名
N_SN? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?序號? ? ? ? ? ? ? ? ? ? ?nSN
S_ITEM_NAME? ? ? ? ? ? ? ? ?名稱? ? ? ? ? ? ? ? ? ? ?strItemName
S_ITEM_M_S_N? ? ? ? ? ? ? ?型號_規格_數量? ?strItemMSN
S_ITEM_CODE? ? ? ? ? ? ? ? ?編號? ? ? ? ? ? ? ? ? ? ?strItemCode
S_MANUFACTURER? ? ? ? 生產單位? ? ? ? ? ? ? strFacturer
3、若字段不夠多,或太多,需要調整程序
4、里面的唯一性判斷是 task_id + S_ITEM_NAME + S_ITEM_CODE (需要根據情況調整)
–]]
功能說明:json = require(“json”)
mobox = require(“OILua_JavelinExt”)
require(“oi_basestrfunc”)
function ImportExcle(strLuaDEID)
local nRet, strRetInfo
local strPrjID = ”
local strTaskID = ”
— 獲取全局變量 prj_id, task_id
nRet, strRetInfo = mobox.getGlobalAttr( strLuaDEID, “task_id”,”prj_id” )
if ( nRet ~= 0 or strRetInfo == ” ) then
mobox.error( strLuaDEID, “系統無法獲取全局變量 “..strRetInfo )
return
end
local input_paramter = json.decode( strRetInfo )
strTaskID = input_paramter[1].value
strPrjID = input_paramter[2].value
if ( strTaskID == ” ) then
mobox.error( strLuaDEID, “必須要有項目及任務相關信息” )
return
end
— 獲取導入的單條數據, 返回 {“id”:”xxx”,”attrs”:[{“attr”:”attr1″,”value”:”xxx1″},{“attr”:”attr2″,”value”:”xxx2″}, …]}
nRet, strRetInfo = mobox.getInputParameter(strLuaDEID)
if (nRet ~= 0 or strRetInfo == ” ) then
mobox.error(strLuaDEID, “無法獲取導入數據!”..strRetInfo)
return
end
local n, nCount, nValue
local strAddAttr = ”
local strAttr = ”
local strSetSQL = ”
— 一些關鍵屬性 (腳本 后期只需要改字段名稱就可以)
local nSN? ? ? ? ? ? ? ? ? ? ? ? ? ?— 對應 序號 N_SN
local strItemName = ”? ? ? ? — 對應 名稱 S_ITEM_NAME
local strItemMSN = ”? ? ? ? ?— 對應 型號_規格_數量 S_ITEM_M_S_N
local strItemCode = ”? ? ? ? ?— 對應 編號 S_ITEM_CODE
local strFacturer = ”? ? ? ? ? ? — 對應 生產單位 S_MANUFACTURER
— 因為每次導入只傳一條記錄,所以當前條寫入 prj_id 及 task_id
strAddAttr = strAddAttr .. ‘{“attr”:”G_TASK_ID”,”value”:”‘ .. strTaskID .. ‘”},’
strAddAttr = strAddAttr .. ‘{“attr”:”G_PRJ_ID”,”value”:”‘ .. strPrjID .. ‘”},’
local retJson =json.decode(strRetInfo)
local input_rows =retJson[“parameter”]
— 步驟1 獲取從excel導入的一行數據,根據excel的列定義進行屬性組合 strAddAttr
nCount = #input_rows
for n = 1, nCount do
strAttr = input_rows[n].attr
strValue = input_rows[n].value
— 根據導入的excel列頭名稱進行判斷
— 關鍵屬性判斷
if (strAttr == “名稱”) then
if (strValue == ”) then
mobox.error(strLuaDEID, strAttr .. “不能為空!”)
return
end
strItemName = strValue
strAddAttr = strAddAttr .. ‘{“attr”:”S_ITEM_NAME”,”value”:”‘ .. strItemName .. ‘”},’
— 常規屬性
elseif (strAttr == “序號”) then
nSN = strValue
strAddAttr = strAddAttr .. ‘{“attr”:”N_SN”,”value”:”‘ .. nSN .. ‘”},’elseif (strAttr == “型號_規格_數量”) then
strItemMSN = strValue
strAddAttr = strAddAttr .. ‘{“attr”:”S_ITEM_M_S_N”,”value”:”‘ .. strItemMSN .. ‘”},’elseif (strAttr == “編 號”) then
strItemCode= strValue
strAddAttr = strAddAttr .. ‘{“attr”:”S_ITEM_CODE”,”value”:”‘ .. strItemCode .. ‘”},’elseif (strAttr == “生產廠家”) then
strFacturer = strValue
strAddAttr = strAddAttr .. ‘{“attr”:”S_MANUFACTURER”,”value”:”‘ .. strFacturer .. ‘”},’end
end
–去除最后一個,
local strAddAttr1 = trim_laster_char(strAddAttr)— 步驟2 根據 (名稱+編號+taskid) 來判斷導入的檢測數據是否已經存在
— 如果已經存在,根據導入的數據進行覆蓋
— 如果不存在需要創建
local attrs
local strCondition = “S_ITEM_NAME='” .. strItemName .. “‘ and G_TASK_ID='”..strTaskID..”‘ and S_ITEM_CODE='” .. strItemCode.. “‘”
nRet, strRetInfo = mobox.existThisData(strLuaDEID, “樣品技術參數”, strCondition)
if (nRet ~= 0 ) thenmobox.error(strLuaDEID, “在檢查樣品技術參數是否存在時失敗! ” .. strRetInfo)
return
endif (strRetInfo == ‘yes’) then
— 已經存在,根據導入的數據進行覆蓋
strCondition = “S_ITEM_NAME='” .. strItemName .. “‘ and G_TASK_ID='”..strTaskID..”‘ and S_ITEM_CODE='” .. strItemCode.. “‘”
strSetSQL = “N_SN='” ..nSN.. “‘, S_ITEM_NAME = ‘” .. strItemName ..”‘ , S_ITEM_CODE ='” ..strItemCode .. “‘ , S_ITEM_M_S_N = ‘” .. strItemMSN ..”‘ “
nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, “樣品技術參數”, strCondition, strSetSQL)
if (nRet ~= 0) then
mobox.error(strLuaDEID, strRetInfo)
return
end
elseif (strRetInfo == ‘no’) then
— 創建 樣品技術參數
— mobox.writeSysLog(“strAddAttr1”, strAddAttr1)
strAddAttr1 = ‘[‘ .. strAddAttr1 .. ‘]’
mobox.writeSysLog(“strAddAttr2”, strAddAttr1)
nRet, strRetInfo = mobox.createDataObj(strLuaDEID, “樣品技術參數”, strAddAttr1)
if (nRet ~= 0) then
mobox.error(strLuaDEID, “創建樣品技術參數失敗! ” .. strRetInfo )
return
endend
end
function
]]>
我們在實施Gungho項目管理系統剛上線的時候,其實用戶手上有很多的歷史項目需要導入進來。而且用戶的項目屬性與我們標準的項目屬性差異很大。為此,我們需要對Gungho的項目數據屬性進行擴延。而這個擴延設置是在Mobox數據平臺來完成的。為此我們需要做2個事情:
給項目設置擴展屬性,用于對用戶需求的適應
需要將企業歷史項目清單一次性導入
因為,我們是為Gungho的項目管理做配套,所以在mobox建立數據模型的時候,有類型需要選擇? ,業務類型必須是 “項目”
目的,定義適用企業個性需求的項目管理功能及界面
根據需求 自定義功能
根據需求,加入對應腳本
方法一: ?(這個一般在mobox數據對象創建后事件調用)
Mobox 數據對象先創建 –》之后通過腳本生成Gungho的項目 –》得到Gungho項目的prj_id –》更新mobox數據對象的 G_PRJ_ID
local strPrjInfo
strPrjInfo = ‘{“type“:”漢和項目”,”name“:”‘ .. strPrjName .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”pm_login“:”‘ .. strPMID .. ‘”,”pm_name“:”‘ .. strPMName .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”pd_login“:”‘ .. strPDID .. ‘”,”pd_name“:”‘ .. strPDName .. ‘”,’
— type:定義了項目類型? ? ? ?name:項目名稱
strPrjInfo = strPrjInfo .. ‘”class_name“:”項目”,”obj_id“:”‘ .. strObjID .. ‘”,’
— class_name:數據對象名稱? obj_id:數據對象ID ,Mobox數據創建后獲取
strPrjInfo = strPrjInfo .. ‘”code“:”‘ .. strPrjCode .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”role“:[{“name”:”項目總監”,”user”:[{“login”:”‘ .. strPDID .. ‘”,”name”:”‘ ..?strPDName .. ‘”}]}’ .. strPrjRoleMember .. ‘]}’
— code:項目編號? role:角色相關
— 向共好系統創建一個項目
nRet, strRetInfo = mobox.createProject(strLuaDEID, strPrjInfo)
— strRetInfo:返回的是gungho創建項目的ID (prj_id)
if (nRet ~= 0) then
mobox.error(strLuaDEID, strRetInfo)
return
end
— strRetInfo:這個要回寫Mobox數據對象的 G_PRJ_ID
— 得到prj_id 將信息寫入mobox數據對象的代碼,這里就不展現了
方法二: ?(這個一般在mobox數據對象的自定義事件入“項目導入”調用)
Gungho的項目所需的所有信息(包括擴展信息)全部定義好,一次性創建Gungho及Mobox所有數據及其相關性
?strPrjInfo = ‘{“type”:”漢和項目”,”class_name”:”項目”,”name”:”‘ .. strPrjName .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”pm_login”:”‘ .. strPMID .. ‘”,”pm_name”:”‘ .. strPMName .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”pd_login”:”‘ .. strPDID .. ‘”,”pd_name”:”‘ .. strPDName .. ‘”,’
strPrjInfo = strPrjInfo .. ‘”code”:”‘ .. strPrjCode .. ‘”,’
— 拼接項目的角色屬性
strPrjInfo = strPrjInfo .. ‘”role”:[{“name”:”項目總監”,”user”:[{“login”:”‘ .. strPDID .. ‘”,”name”:”‘ ..? strPDName .. ‘”}]}’ .. strPrjRoleMember .. ‘],’
— 拼接項目的擴展項目屬性
strPrjInfo = strPrjInfo .. ‘”ext_obj_attr“:[‘ .. strAddAttr1 .. ‘]}’
— ext_obj_attr 項目創建的時候,帶擴展屬性(strAddAttr1 變量事先拼接好了)
— 帶擴展屬性,會同時將mobox數據對象及gungho的項目都創建起來,并關聯好
nRet, strRetInfo = mobox.createProject(strLuaDEID, strPrjInfo)
–strRetInfo 返回參數 為兩個GUID :項目ID ;
— 返回的內容如:
— ‘{A52E97CF-BDBE-4EA7-AAD6-949AD5707BF3};{1CB2B481-CA23-42DB-B7A2-546C1EA05364}’
我們系統上線的時候,原先的歷史數據是沒有的,為了快速接軌企業已有數據,我們可以通過excel 對歷史數據進行導入操作。導入一般可以通過腳本做一些定制開發來實現
列子:
數據導入的sheet 要求
這個系統只能導入,左邊第一個sheet (命名無所謂)(注意:若數據列表 這個sheet左邊還有隱藏的sheet,那么系統也不能獲取 數據列表sheet頁的數據)
對Excel單元格的要求
單元個里面的數據,只能是字符串或數值。若是計算公式或函數 ,將無法獲取
另外,單元個內容 不能出現 /\<> & 符號,不能有換行或大量空格
1、字段分3類:
如,產品名稱 ,這個是必須有數值的
用于登記各種屬性信息
若有數據,則直接獲取
若沒有,可以通過lua腳本計算生成
這種字段,一般也是必須有數值的
2、第一行是表頭行,數據行從第二行開始
通過Mobox 3000 功能點進行定義,設置界面如下:
導入腳本,參考:
json? = require(“json”)mobox = require(“OILua_JavelinExt”)require(“oi_basestrfunc”)function ImportKA(strLuaDEID)? ? local nRet, strRetInfo? ? — 獲取導入的數據, 返回 [[{“attr”:”xx”,”value”:””},…]]? ? — V2.0? ? nRet, strRetInfo = mobox.getCurEditDataPacket(strLuaDEID)? ? if (nRet ~= 0 or strRetInfo == ”) then? ? ? ? mobox.error(strLuaDEID, “無法獲取導入數據!”)? ? ? ? return? ? end? ? local input_rows = json.decode(strRetInfo)? ? local n, nCount, nValue, nMaxRow, nRow? ? local strAddAttr = ”? ? — 一些關鍵屬性? ? local strKAName = ”? ? local strKAType = ”? ? local strArea = ”? ? — 步驟1 獲取從excel導入的一行數據,根據excel的列定義進行屬性組合 strAddAttr? ? nMaxRow = #input_rows? ? for nRow = 1, nMaxRow do? ? ? ? input = input_rows[nRow]? ? ? ? nCount = #input? ? ? ? — V2.1? ? ? ? strAddAttr = ”? ? ? ? strKAName = ”? ? ? ? strKAType = ”? ? ? ? strArea = ”? ? ? ? for n = 1, nCount do? ? ? ? ? ? strAttr = input[n].attr? ? ? ? ? ? strValue = input[n].value? ? ? ? ? ? if (strAttr ~= ” and strValue ~= ”) then? ? ? ? ? ? ? ? — 根據導入的excel列頭名稱進行判斷? ? ? ? ? ? ? ? — 關鍵屬性判斷? ? ? ? ? ? ? ? if (strAttr == “客戶名稱”) then? ? ? ? ? ? ? ? ? ? if (strValue == ”) then? ? ? ? ? ? ? ? ? ? ? ? mobox.error(strLuaDEID, strAttr .. “不能為空!”)? ? ? ? ? ? ? ? ? ? ? ? return? ? ? ? ? ? ? ? ? ? end? ? ? ? ? ? ? ? ? ? strKAName = strValue? ? ? ? ? ? ? ? ? ? strAddAttr = strAddAttr .. ‘{“attr”:”S_KA_NAME”,”value”:”‘ .. strKAName .. ‘”},’? ? ? ? ? ? ? ?— 常規屬性? ? ? ? ? ? ? ? elseif (strAttr == “所屬地區”) then? ? ? ? ? ? ? ? ? ? strArea = strValue? ? ? ? ? ? ? ? ? ? strAddAttr = strAddAttr .. ‘{“attr”:”S_AREA”,”value”:”‘ .. strArea .. ‘”},’? ? ? ? ? ? ? ? elseif (strAttr == “客戶類型”) then? ? ? ? ? ? ? ? ? ? strKAType = strValue? ? ? ? ? ? ? ? ? ? strAddAttr = strAddAttr .. ‘{“attr”:”S_KA_TYPE”,”value”:”‘ .. strKAType .. ‘”},’? ? ? ? ? ? ? ? end? ? ? ? ? ? end? ? ? ? end? ? ? ? –去除最后一個,? ? ? ? local strAddAttr1 = trim_laster_char(strAddAttr)? ? ? ? — 步驟2 根據客戶名稱來判斷導入的客戶是否已經存在? ? ? ? —? ? ? ?如果已經存在,根據導入的數據進行覆蓋? ? ? ? —? ? ? ?如果不存在需要創建? ? ? ? local attrs? ? ? ? local strCondition = “S_KA_NAME='” .. strKAName .. “‘”? ? ? ? nRet, strRetInfo = mobox.existThisData(strLuaDEID, “客戶”, strCondition)? ? ? ? if (nRet ~= 0) then? ? ? ? ? ? mobox.error(strLuaDEID, “在檢查客戶是否存在時失敗! ” .. strRetInfo)? ? ? ? ? ? return? ? ? ? end? ? ? ? if (strRetInfo == ‘yes’) then? ? ? ? ? ? — 已經存在,根據導入的數據進行覆蓋? ? ? ? ? ? strCondition = “S_KA_NAME='” .. strKAName .. “‘”? ? ? ? ? ? strSetSQL =? “S_KA_NAME = ‘” .. strKAName ..”‘ , S_KA_TYPE ='” ..strKAType .. “‘ , S_AREA = ‘” .. strArea ..”‘ “? ? ? ? ? ? nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, “客戶”, strCondition, strSetSQL)? ? ? ? ? ? if (nRet ~= 0) then? ? ? ? ? ? ? ? mobox.error(strLuaDEID, strRetInfo)? ? ? ? ? ? ? ? return? ? ? ? ? ? end? ? ? ? elseif (strRetInfo == ‘no’) then? ? ? ? ? ? — 創建客戶? ? ? ? ? ? –mobox.writeSysLog(“strAddAttr1”, strAddAttr1)? ? ? ? ? ? strAddAttr1 = ‘[‘ .. strAddAttr1 .. ‘]’? ? ? ? ? ? –mobox.writeSysLog(“strAddAttr2”, strAddAttr1)? ? ? ? ? ? nRet, strRetInfo = mobox.createDataObj(strLuaDEID, “客戶”, strAddAttr1)? ? ? ? ? ? if (nRet ~= 0) then? ? ? ? ? ? ? ? mobox.error(strLuaDEID, “創建客戶失敗! ” .. strRetInfo )? ? ? ? ? ? ? ? return? ? ? ? ? ? end? ? ? ? end? ? endend
數據對象它有生命周期:編輯 -> 審核 -> 定版 -> 報廢? (默認 4個狀態)
我們數據在輸入階段,那么就屬于 “編輯”? ,這個時候可以修改與之相關的屬性及關聯關系。而一定數據對象經過審核 ,進入“定版” 狀態,那么針對這個數據對象就不能修改了
參考下圖:
為實現這個功能設置,Mobox系統需要做如下配置
-》在grid列表定義里面 ,必須有 “S_STATE” 狀態? 這個字段
若這個字段不設置到 grid ,就無法實現第一圖的效果
]]>json = require (“json”)
mobox = require (“OILua_JavelinExt”)
function BeforeSelectUser ( strLuaDEID )
local action = ‘[{“action_type”:”open_select_userdlg“,”value”:{“multi_choice “:false,”style”:”user“}}]’
?— user 的意思 只列出用戶選擇
nRet, strRetInfo = mobox.setAction( strLuaDEID, action )
if (nRet ~= 0) then error( strRetInfo ) end
end
json? = require (“json”)mobox = require (“OILua_JavelinExt”)function AfterSelectUser ( strLuaDEID )? ? local? ?nRet, strUserLogin, strUserName? ? — 獲取當前選擇數據? ? nRet, strRetInfo = mobox.getInputParameter( strLuaDEID )? ? if ( nRet ~= 0 or? strRetInfo == ”) then? ? ? ? mobox.error( strLuaDEID, “無法獲取數據!”)? ? ? ? return? ? end? ? local retJson = json.decode( strRetInfo )? ? local input_parameter = retJson[“parameter”]? ? strUserLogin = input_parameter[1].id? ? strUserName =? input_parameter[1].name? ? — 設置所選人員? ? local setAttr = ‘[{“attr”:”S_MASTER”,”value”:”‘..strUserName..'”},{“attr”:”S_S_MASTER_Login”,”value”:”‘..strUserLogin..'”}]’? ? mobox.setCurEditDataObjAttr( strLuaDEID,setAttr )end
(上圖為多選窗口)
需要開發2個lua腳本
–[[? ? 這個腳本適合 單個選擇的獲取過程–]]json = require (“json”)
mobox = require (“OILua_JavelinExt”)
function BeforeSelectGP ( strLuaDEID )
local nRet, strRetInfo ,strCondition
strCondition = “”
local action = ‘[{“action_type”:”open_data_query_dlg”,”value”:{“mulit_select”:0,”cls_name”:”供應商”,”order”:””,”grid_style”:”default”,”condition”:”‘..strCondition..'”}}]’
mobox.setAction( strLuaDEID, action )
end
我們在彈出窗口前,可以將我們需要的通過上述參數設置好后 再彈出
–[[
這個腳本適合 單個選擇 的獲取過程
–]]
json? = require (“json”)
mobox = require (“OILua_JavelinExt”)
function AfterSelectSYTPYE ( strLuaDEID )
local?? nRet,? strTpyeDESC , strOldDesc
— 獲取當前選擇數據
nRet, strRetInfo = mobox.getInputParameter( strLuaDEID )
if ( nRet ~= 0 or? strRetInfo == ”) then
mobox.error( strLuaDEID, “無法獲取導入數據!”)
return
end
local retJson = json.decode( strRetInfo )
local input_parameter = retJson[“parameter”]
local n, nCount
strTpyeDESC = input_parameter[“S_TST_TPYEDESC”]
if ( strTpyeDESC == ”? ) then
mobox.error( strLuaDEID, “試驗類型信息不對!”)
return
end
— 設置試驗類型信息
local setAttr = ‘[{“attr”:”S_TST_TPYEDESC”,”value”:”‘..strTpyeDESC..'”}]’
mobox.setCurEditDataObjAttr( strLuaDEID,setAttr )
下面是多選的例子
–[[
這個腳本適合 多個選擇 的獲取過程
–]]
json? = require (“json”)
mobox = require (“OILua_JavelinExt”)
function AfterSelectSYTPYE ( strLuaDEID )
local?? nRet,? strTpyeDESC
— 獲取當前選擇數據
nRet, strRetInfo = mobox.getInputParameter( strLuaDEID )
if ( nRet ~= 0 or? strRetInfo == ”) then
mobox.error( strLuaDEID, “無法獲取導入數據!”)
return
end
local retJson = json.decode( strRetInfo )
local input_parameter = retJson[“parameter”]????? —? 或者 retJson.parameter
local n, nCount
nCount = #input_parameter
strTpyeDESC =”
for n = 1 , nCount do???????????????????????????????????? — 需要for循環
??????? if (strTpyeDESC ==”) then
??????????? strTpyeDESC = input_parameter[n].S_TST_TPYEDESC
??????? else
??????????? strTpyeDESC = strTpyeDESC .. ‘、’..input_parameter[n].S_TST_TPYEDESC
??????? end
?? ?end
— 設置試驗類型信息
local setAttr = ‘[{“attr”:”S_TST_TPYEDESC”,”value”:”‘..strTpyeDESC..'”}]’
mobox.setCurEditDataObjAttr( strLuaDEID,setAttr )
]]>