wsz
2025-06-20 19898bd66dec87b500b200d5d50961d0fb538ce5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
--[[
    编码: WMS-08-02
    名称: 设备动作队列-显示前
    作者:HAN  
    日期:2025-1-29
 
    级别:固定 (说明本段代码在项目中不太会变化)
    
    函数: BeforeGridShow
 
    功能:
        N_B_STATE = 2 错误显示红色
    更改记录:        
--]]
 
wms_base = require( "wms_base" )
 
function BeforeGridShow ( strLuaDEID ) 
    local nRet, strRetInfo
    local input_datajson
 
    -- 获取Grid显示数据对象
    -- [{"id":"","attrs":[{"attr":"","value":""},..]},..]
    nRet, input_datajson = m3.GetSysDataJson( strLuaDEID )
    if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "无法获取Grid显示数据包!") end
    local n, nCount
 
    nCount = #input_datajson
    if (nCount == 0) then  return end
 
    local obj, attrs, id
    local strCellBkground, strDataJson
    local strRowCtrl = ''
    local b_state = 0
 
    strDataJson = '['
    for n = 1, nCount do
        obj = input_datajson[n]
        attrs = obj.attrs
        nattr_count = #attrs
        id = obj.id
 
        strAttrs = ''
        strRowCtrl = ''
        -- 获取 物料编码 和 库区编码
        for nIndex = 1, nattr_count do
            strAttr = attrs[nIndex].attr
            strValue = attrs[nIndex].value
            strCellBkground = ''
            if (strAttr == 'N_B_STATE') then
                b_state = lua.StrToNumber( strValue )
                if ( b_state == 0 ) then -- 等待
                    strCellBkground = ', "bk_color":"#FF0000","text_color":"#FFFFFF"'
                    strValue = "等待"
                elseif ( b_state == 1 ) then  -- 完成
                    strCellBkground = ', "bk_color":"#00FF00","text_color":"#000000"'
                    strValue = "完成"
                elseif ( b_state == 2 ) then  -- 错误
                    strCellBkground = ', "bk_color":"#FF0000","text_color":"#FFFFFF"'
                    strValue = "错误"
                end
            elseif (strAttr == 'S_ERR' or strAttr == 'S_DATA') then
                strValue = string.gsub(strValue, "\\", "/")
                strValue = string.gsub(strValue, '"','\\\"')
                strValue = string.gsub(strValue, "'",'\\\"')
                strValue = string.gsub(strValue, " ","")
            end
            strItem = '{"attr":"' .. strAttr .. '","value":"' .. strValue .. '"'..strCellBkground..'},'
            strAttrs = strAttrs .. strItem
        end
        strAttrs = lua.trim_laster_char(strAttrs)
        strRow = '{"id":"'..id..'"'..strRowCtrl..',"attrs":['..strAttrs..']},'
        strDataJson = strDataJson .. strRow
    end
    -- 取消最后一个,号
    strDataJson = lua.trim_laster_char(strDataJson)
    strDataJson = strDataJson .. ']'
 
    nRet, strRetInfo = mobox.strToBase64( strDataJson )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "strToBase64 失败: "..strRetInfo) end 
 
    strAction = '[{"action_type":"reset_data_attr","base64":true, "value":"' .. strRetInfo .. '"}]'
    nRet, strRetInfo = mobox.setAction(strLuaDEID, strAction)
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction错误: "..strRetInfo) end    
    
end