--[[
    编码: GT-100-02
    名称: GT-WMS出库任务下发
    作者：LZH
    入口函数： SendOutboundOrder


    功能说明:
        GT-WMS下发出库信息给 GZ-WMS系统，GZ-WMS系统根据出库信息生成【出库单据】和【作业】			

        输入数据：		
        {
	        "task_no": "xxxx",    -- 出库任务号
	        "batch_no": "xxx",    -- 批次号
	        "item_code": "xxx",         -- 物料编码
	        "end_loc": "xxx",       -- 机台
	        "qty": "xxx",         -- 数量默认1托
	        "wh_code": "xxx",     -- 仓库编号
	        "mes_task_no": "xxx",     -- MES任务单号
            "remark1": "",  -- 备注 暂未启用
            "remark2": "",  -- 备注 暂未启用
            "remark3": "",  -- 备注 暂未启用
            "remark4": ""   -- 备注 暂未启用
        }																							

        处理逻辑
        -- step1 解析接口传递的 datajson 参数
                判断 json 解析是否成功，不成功返回报错
                判断 字段 是否都有值？没值报错返回

        -- step2 根据字段信息生产【出库单】
        -- step3 调用【出库单】创建作业事件
        															
    变更记录:
    20241122 LZH V1.1 出库单修改为主子表，代码调整
    20250221 LZH V1.2 新增4个备用字段
    20250429 LZH V1.3 新增MES任务单号
--]]
m3    = require("oi_base_mobox")
json  = require("json")
mobox = require("OILua_JavelinExt")
require("GT-Base")
function CreateDelivery(strLuaDEID)
    local nRet, strRetInfo, in_date, dictItem
    -- step1 获取接口数据
    nRet, in_date = m3.GetSysDataJson(strLuaDEID)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "WCStoreCallback 无法获取数据包!" .. in_date) end
    lua.Debug(strLuaDEID, debug.getinfo(1), '出库单据下发参数:', in_date)

    -- 获取 task_no、wh_code 、batch_no、end_loc、item_code 判断是否都有值？没值报错返回
    local task_no = in_date.task_no
    if (task_no == nil or task_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "出库任务号不能为空!") end
    local wh_code = in_date.wh_code
    if (wh_code == nil or wh_code == '') then wh_code = 'wmwhse1' end
    local batch_no = in_date.batch_no
    if (batch_no == nil or batch_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "批次号不能为空!") end
    local end_loc = in_date.end_loc
    if (end_loc == nil or end_loc == '') then lua.Error(strLuaDEID, debug.getinfo(1), "机台不能为空!") end
    local item_code = in_date.item_code
    if (item_code == nil or item_code == '') then lua.Error(strLuaDEID, debug.getinfo(1), "物料号不能为空!") end
    -- V1.2 新增备用字段
    local remark1 = in_date.remark1
    local remark2 = in_date.remark2
    local remark3 = in_date.remark3
    local remark4 = in_date.remark4
    -- V1.3 新增MES任务单号
    local mes_task_no = in_date.mes_task_no

    -- 获取不需要审核的物料类型字典
    nRet, dictItem = mobox.getDictItemIInfo("GT_NotAuditType")
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), dictItem) end
    dictItem = json.decode(dictItem)
    lua.Debug(strLuaDEID, debug.getinfo(1), '不需要审核的物料:', dictItem)

    -- 获取该物料的物料类型
    local item_type, material
    nRet, item_type, material = GT_Get_ItemType(strLuaDEID, item_code)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), item_type) end

    -- 获取一个初始的【出库单】数据对象
    local stock_out = m3.AllocObject(strLuaDEID, "GT_Stock_Out")
    stock_out.delivery_no = task_no
    stock_out.batch_no = batch_no
    stock_out.wh_code = wh_code
    stock_out.item_code = item_code
    stock_out.ms_code = end_loc
    -- V1.3 新增MES任务单号
    stock_out.mes_task_no = mes_task_no
    -- step3 如果出库库区为立库的出库单，触发后台脚本进行配货逻辑
    for m = 1, #dictItem do
        if (item_type == dictItem[m].name) then
            stock_out.state = "启用"
            goto back
        end
    end
    ::back::
    nRet, stock_out = m3.CreateDataObj(strLuaDEID, stock_out)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), 'mobox 创建【出库单】对象失败!' .. stock_out) end
    lua.Debug(strLuaDEID, debug.getinfo(1), 'stock_out:', stock_out)

    if(item_type ~= '碳黑' and item_type ~= '帘子布' and item_type ~= '辅材')then
        -- 调用创建作业事件
        nRet, strRetInfo = mobox.triggerClsEvent(strLuaDEID, "GT_Stock_Out", stock_out.id, "创建作业")
        if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "执行【出库单】创建作业脚本失败!" .. strRetInfo) end
        lua.Debug(strLuaDEID, debug.getinfo(1), 'nRet:', nRet)
        lua.Debug(strLuaDEID, debug.getinfo(1), 'strRetInfo:', strRetInfo)
    end
end