--[[
    编码: GT-100-03
    名称: GT-WMS
    作者：LZH
    入口函数： MaterialMaintain


    功能说明:
        GT-WMS下发基础物料信息给 GZ-WMS系统，GZ-WMS系统对基础数据进行新增/修改		

        输入数据：		
        [{
            "item_code": "xxx",  -- 物料编码
            "item_name": "xxx",  -- 物料描述
            "is_validate": "Y",  -- 是否条码验证
            "sub_type": "粉料01",  -- 中类
            "minor_type": "粉料0102",  --小类
            "isothermal": "Y",  -- 是否恒温
            "is_insulate": "N",  -- 是否保温
            "is_pack": "N",  -- 是否拣选
            "wh_code": "AHYLK",  -- 仓库号
            "area_code": "全钢",  -- 库区
            "remark1": "",  -- 备注 暂未启用
            "remark2": "",  -- 备注 暂未启用
            "remark3": "",  -- 备注 暂未启用
            "remark4": ""   -- 备注 暂未启用
        },
        ...
        ]

        处理逻辑
        -- step1 解析接口传递的 datajson 参数
        -- step2 校验必传字段是否为空，为空则报错
        -- step3 根据接口类型字段对基础数据进行新增或修改操作
        															
    变更记录:
    20241111 LZH V1.1 GT-WMS要求格式为List
    20250221 LZH V1.2 新增4个备用字段
--]]
m3    = require("oi_base_mobox")
json  = require("json")
mobox = require("OILua_JavelinExt")
function MaterialMaintain(strLuaDEID)
    local nRet, strRetInfo, in_date, material
    -- step1 获取接口数据
    local list
    nRet, list = m3.GetSysDataJson(strLuaDEID)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "WCStoreCallback 无法获取数据包!" .. list) end
    local count = #list
    if (list == nil or count == 0) then return end
    lua.Debug(strLuaDEID, debug.getinfo(1), '物料基础属性下发参数:', list)

    for i = 1, count do
        in_date = list[i]
        -- step2 判断是否都有值？没值报错返回
        local item_code = in_date.item_code
        if (item_code == nil or item_code == '') then lua.Error(strLuaDEID, debug.getinfo(1), "物料编码不能为空!") end
        local wh_code = in_date.wh_code
        local sub_type = in_date.sub_type
        local item_name = in_date.item_name
        local is_validate = in_date.is_validate
        local minor_type = in_date.minor_type
        local isothermal = in_date.isothermal
        local is_pack = in_date.is_pack
        local area_code = in_date.area_code
        -- V1.2 新增备用字段
        local remark1 = in_date.remark1
        local remark2 = in_date.remark2
        local remark3 = in_date.remark3
        local remark4 = in_date.remark4

        local strSetSQL_update = ""
        -- 拼接修改语句
        if (wh_code ~= nil and wh_code ~= '') then
            strSetSQL_update = strSetSQL_update .. ",S_WH_CODE = '" .. wh_code .. "'"
        end
        if (item_name ~= nil and item_name ~= '') then
            strSetSQL_update = strSetSQL_update .. ",S_ITEM_NAME = '" .. item_name .. "'"
        end
        if (is_validate ~= nil and is_validate ~= '') then
            strSetSQL_update = strSetSQL_update .. ",C_IS_VALIDATE = '" .. is_validate .. "'"
        end
        if (sub_type ~= nil and sub_type ~= '') then
            strSetSQL_update = strSetSQL_update .. ",S_SUB_TYPE = '" .. sub_type .. "'"
        end
        if (minor_type ~= nil and minor_type ~= '') then
            strSetSQL_update = strSetSQL_update .. ",S_MINOR_TYPE = '" .. minor_type .. "'"
        end
        if (isothermal ~= nil and isothermal ~= '') then
            strSetSQL_update = strSetSQL_update .. ",C_IS_ISOTHERMAL = '" .. isothermal .. "'"
        end
        if (is_pack ~= nil and is_pack ~= '') then
            strSetSQL_update = strSetSQL_update .. ",C_IS_PACK = '" .. is_pack .. "'"
        end
        if (area_code ~= nil and area_code ~= '') then
            strSetSQL_update = strSetSQL_update .. ",S_AREA_CODE = '" .. area_code .. "'"
        end

        -- 判断修改语句是否为空，为空则不做操作，不为空则删除拼接语句的第一个 逗号字符并修改
        if (strSetSQL_update ~= "") then
            strSetSQL_update = strSetSQL_update:sub(2)
            local strCondition = "S_ITEM_CODE = '" .. item_code .. "'"
            nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "Material", strCondition,
                strSetSQL_update)
            if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "修改【物料】信息失败！" .. strRetInfo) end
            if (tonumber(strRetInfo) == 0) then
                -- step3 获取一个初始的【物料】数据对象
                material = m3.AllocObject(strLuaDEID, "Material")
                material.item_code = item_code
                material.wh_code = wh_code
                material.item_name = item_name
                material.is_validate = is_validate
                material.sub_type = sub_type
                material.minor_type = minor_type
                material.isothermal = isothermal
                material.is_pack = is_pack
                material.area_code = area_code
                nRet, material = m3.CreateDataObj(strLuaDEID, material)
                if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), 'mobox 创建【物料】对象失败!' .. material) end
            end
        end
    end
end