--[[
    编码: WMS-38-05
    名称: 任务-行按钮-设置任务完成
    作者：HAN
    日期：2023-02-25

    级别：固定 (说明本段代码在项目中不太会变化)

    函数： SetTaskFinish

    功能:
        强制设置任务完成

    更改记录:
--]]
wms_task = require("wms_task")
wms_wh = require("wms_wh")
wms_cntr = require("wms_container")
function SetTaskFinish(strLuaDEID)
    local nRet, strRetInfo

    -- step1  获取当前点中的任务
    nRet, objs = m3.GetSysDataJson(strLuaDEID)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), objs) end
    -- [{"id":"","attrs":[{"attr":"","value":""},..]},..]
    local nCount = #objs
    if (nCount == 0) then return end

    local task = m3.KeyValueAttrsToObjAttr(objs[1].attrs)

    lua.Debug(strLuaDEID, debug.getinfo(1), 'task', task)

    -- 检查一下脚本里用到的task属性是否在datajson中，没有要提示一下
    if (task.S_CODE == nil) then
        lua.Error(strLuaDEID, debug.getinfo(1), "在任务显示Grid中必须要有任务编码属性 S_CODE!")
    end
    if (task.S_CODE == '') then
        lua.Error(strLuaDEID, debug.getinfo(1), "任务编码不能为空!")
    end

    nRet, task = wms_task.GetInfo(strLuaDEID, task.S_CODE)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), task) end
    lua.Debug(strLuaDEID, debug.getinfo(1), 'task', task)

    -- 根据获取到的任务判断不同的作业名称

    if (tonumber(task.schedule_type) == wms_base.Get_nConst(strLuaDEID, "调度类型-国自")) then
        if (task.op_name == '立库出库' or task.op_name == '呼叫空托' or task.op_name == '采购退货') then
            -- 容器货位解绑
            nRet, strRetInfo = wms_wh.Loc_Container_Unbinding(strLuaDEID, task.start_loc_code, task.cntr_code,
                "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器解绑失败!' .. strRetInfo) end
        else
            -- 容器货位绑定
            nRet, strRetInfo = wms_wh.Loc_Container_Binding(strLuaDEID, task.end_loc_code, task.cntr_code, "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器绑定失败!' .. strRetInfo) end
        end

        if (task.op_name == '移库') then
            -- 容器货位解绑
            nRet, strRetInfo = wms_wh.Loc_Container_Unbinding(strLuaDEID, task.start_loc_code, task.cntr_code,
                "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器解绑失败!' .. strRetInfo) end

            -- 容器货位绑定
            nRet, strRetInfo = wms_wh.Loc_Container_Binding(strLuaDEID, task.end_loc_code, task.cntr_code, "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器绑定失败!' .. strRetInfo) end
        end
    elseif (tonumber(task.schedule_type) == wms_base.Get_nConst(strLuaDEID, "调度类型-AGV")) then
        if (task.op_name == '移库') then
            -- 容器货位解绑
            nRet, strRetInfo = wms_wh.Loc_Container_Unbinding(strLuaDEID, task.start_loc_code, task.cntr_code,
                "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器解绑失败!' .. strRetInfo) end

            -- 容器货位绑定
            nRet, strRetInfo = wms_wh.Loc_Container_Binding(strLuaDEID, task.end_loc_code, task.cntr_code, "绑定解绑方法-系统",
                "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器绑定失败!' .. strRetInfo) end
        end
        if (task.op_name == '粉料入库') then
            nRet, strRetInfo = wms_wh.Loc_Container_Binding(strLuaDEID, task.end_loc_code, task.cntr_code, "绑定解绑方法-系统", "完成")
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '货位容器解绑失败!' .. strRetInfo) end
        end
    end

    -- 设置任务完成
    nRet, strRetInfo = wms.wms_TaskFinish(strLuaDEID, task.code)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "任务编码='" .. task.code .. "'的任务设置完成失败!" .. strRetInfo) end

    -- 增加 任务动作 对象
    local task_action = m3.AllocObject(strLuaDEID, "Task_Action")
    task_action.task_code = task.code
    task_action.action_code = 2
    task_action.action = "强制任务完成"
    task_action.eq_code = "system"
    task_action.eq_type_name = '完成'
    nRet, strRetInfo = m3.CreateDataObj(strLuaDEID, task_action)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), '创建【任务动作】对象失败!' .. strRetInfo) end
end