--[[
    编码: GT-03-14
    名称: 装箱工单-按钮-设置为启动
    作者：HAN
    日期：2023-05-10

    函数： SetState

    功能:
       -- 设置为“启动”状态

    更改记录:
    V2.0 LZH 2024-06-06 设置状态后刷新页面
    V2.1 LZH 2024-06-06 同一工位同时只能有一个启动状态的装箱工单

--]]
json  = require("json")
mobox = require("OILua_JavelinExt")
m3    = require("oi_base_mobox")

function SetState(strLuaDEID)
    local nRet, strRetInfo, objs, nCount

    -- 获取当前选中的数据对象
    nRet, objs = m3.GetSysDataJson(strLuaDEID)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), objs) end
    lua.Debug(strLuaDEID, debug.getinfo(1), '设置为启动参数:', objs)

    local obj_attrs
    local strCondition, strSetAttr

    for n = 1, #objs do
        obj_attrs = m3.KeyValueAttrsToObjAttr(objs[n].attrs)
        if (obj_attrs ~= nil and obj_attrs ~= '') then
            -- V2.1 判断该工位下面是否已经存在启用状态的装箱工单
            strCondition = "S_STATION = '" .. obj_attrs.S_STATION .. "' AND S_STATE = '启用'"
            nRet, nCount = mobox.getDBRecordCount(strLuaDEID, "TN_GT_Packing_Order", strCondition)
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), nCount) end
            if (tonumber(nCount) > 0) then
                lua.Error(strLuaDEID, debug.getinfo(1),
                    obj_attrs.S_STATION .. "工位已存在启用状态的装箱工单！")
            end

            if (obj_attrs.S_STATE == '新建') then
                strCondition = "S_PACK_NO = '" .. obj_attrs.S_PACK_NO .. "'"
                strSetAttr = "S_STATE = '启用'"
                nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "GT_Packing_Order", strCondition,
                    strSetAttr)
                if (nRet ~= 0) then
                    lua.Error(strLuaDEID, debug.getinfo(1), "设置状态失败!" .. strRetInfo)
                end

                -- 如果启动的装箱工单是散装胶的，则调用WCS接口下发机器人规格
                if (obj_attrs.S_DISPERSOID == 'Y') then
                    -- 调用国自的任务下发接口
                    local strCode = lua.guid() -- 生产一个GUID字符串
                    local url = wms_base.Get_sConst(strLuaDEID, "WCS-url")
                    local strurl = url .. "/ChangeSpecifications"
                    local strHeader = ""
                    local data = {
                        req_no = strCode,
                        palletizing = obj_attrs.S_PALLETIZING
                    }
                    nRet, strRetInfo = CreateInterfaceExc(strLuaDEID, strurl, strHeader, data, "WCS", "机器人规格下发")
                    if (nRet ~= 0) then
                        lua.Error(strLuaDEID, debug.getinfo(1), "调用接口失败!" .. strRetInfo)
                    end
                end
            end
        end
    end
    -- V2.0 设置状态后刷新Grid页面
    local strAction = '[{"action_type":"refresh","value":""}]'
    nRet, strRetInfo = mobox.setAction(strLuaDEID, strAction)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "setAction错误: " .. strRetInfo) end
end