--[[
    编码: GT-03-11
    名称: 新增-点击确定按钮后
    作者：HAN
    日期：2023-05-05

    函数： AfterClickOk

    功能:
       -- 获取A、B、C、D 工位的装箱数量，如果不为0，新增一个装箱工单

    更改记录:
    V2.0 LZH 2024-06-06 工位设置为12个
    V2.1 LZH 2024-06-07 校验该工位是否存在同一批次号物料的启动装箱工单，存在则报错（佳通问题清单序号32）
    V2.2 LZH 2024-08-09 由于数据模型的调整，进行字段的代码优化
    V2.3 LZH 2024-08-29 由于自定义表单的调整，进行代码优化
    V2.4 LZH 2024-09-13 如果入库单的状态为新建则修改为启动

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

function AfterClickOk(strLuaDEID)
    local nRet, strRetInfo, nCount

    -- V2.3
    nRet, strRetInfo = mobox.getCurEditDataObjAttr(strLuaDEID, "S_ORDER_NO", "A", "B", "C", "D", "E", "F", "G", "H", "I",
        "J", "K", "L", "S_BATCH_NO", "S_ITEM_CODE", "S_ITEM_NAME", "D_PRODUCT",
        "F_ACTUAL_QTY", "A_QTY", "B_QTY", "C_QTY", "D_QTY", "E_QTY", "F_QTY", "G_QTY", "H_QTY",
        "I_QTY", "J_QTY", "K_QTY", "L_QTY", "S_PALLETIZING", "S_DISPERSOID")
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! " .. strRetInfo) end
    lua.Debug(strLuaDEID, debug.getinfo(1), 'strRetInfo', strRetInfo)
    local obj_attrs = json.decode(strRetInfo)
    local order_no = obj_attrs[1].value -- 来料单号
    local batch_no = obj_attrs[14].value
    local item_code = obj_attrs[15].value
    local item_name = obj_attrs[16].value
    local product_date = obj_attrs[17].value                --生产日期
    local actual_qty = lua.StrToNumber(obj_attrs[18].value) -- 批次号总重
    local palletizing = obj_attrs[31].value
    local dispersoid = obj_attrs[32].value
    local station_array = {} -- 装箱工位

    -- V2.0 获取启用的工位装箱数量
    local i = 1
    local switch = ''
    for n = 2, 13 do
        switch = obj_attrs[n].value
        if (switch == '启用') then
            local station = {}
            station.pos = obj_attrs[n].attr
            station.qty = obj_attrs[n + 17].value
            station_array[i] = station
            i = i + 1
        end
    end
    lua.Debug(strLuaDEID, debug.getinfo(1), 'station_array', station_array)

    if (station_array == nil or station_array == '' or #station_array == 0) then
        lua.Error(strLuaDEID, debug.getinfo(1), '装箱工单未选择装箱工位!')
    end

    -- 创建装箱工单
    for n = 1, #station_array do
        local packing_order = m3.AllocObject(strLuaDEID, "GT_Packing_Order")
        packing_order.order_no = order_no
        packing_order.item_code = item_code
        packing_order.product_date = product_date
        packing_order.batch_no = batch_no
        packing_order.item_name = item_name
        packing_order.actual_qty = actual_qty
        packing_order.palletizing = palletizing
        packing_order.dispersoid = dispersoid
        packing_order.station = station_array[n].pos
        packing_order.pack_qty = station_array[n].qty

        -- V2.0 校验该工位是否存在同一批次号物料的启动装箱工单
        local strCondition = "S_STATION = '" .. packing_order.station .. "'AND S_ITEM_CODE = '" .. item_code
            .. "' AND S_BATCH_NO = '" .. batch_no .. "' 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),
                packing_order.station .. "工位已存在相同批次物料启用状态的装箱工单！")
        end

        nRet, packing_order = m3.CreateDataObj(strLuaDEID, packing_order)
        if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), 'mobox 创建【装箱工单】对象失败!' .. packing_order) end
    end

    -- V2.4 如果入库单的状态为新建则修改为启动
    -- 查询条件
    local strCondition = "S_ORDER_NO = '" .. order_no .. "'"
    nRet, strRetInfo = mobox.queryOneDataObjAttr(strLuaDEID, "GT_Incoming_Info", strCondition)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "queryOneDataObjAttr 失败!" .. strRetInfo) end
    strRetInfo = json.decode(strRetInfo)

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

        -- 如果启动的装箱工单是散装胶的，则调用WCS接口下发机器人规格
        if (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 = palletizing
            }
            nRet, strRetInfo = CreateInterfaceExc(strLuaDEID, strurl, strHeader, data, "WCS", "机器人规格下发")
            if (nRet ~= 0) then
                lua.Error(strLuaDEID, debug.getinfo(1), "调用接口失败!" .. strRetInfo)
            end
        end
    end
end