--[[ 编码: GT-100-05 名称: GT-WMS 作者：LZH 入口函数： CreateLabelCrad 功能说明: GT-WMS下发入库单据行信息给 GZ-WMS系统，GZ-WMS系统对基础数据进行新增 输入数据： { "delivery_no": "xxx", 收货单号 "delivery_row_no": "xxx", 收货单行号 "serial_no": "xxx", 流水号 "batch_no": "xxx", 批次号 "qty": xxx, 托盘重量 "item_code": "xxx", 物料编码九位码 "product_date": "xxx", 生产日期 "storage_loc": "xxx", 库位 "wh_code": "xxx", 仓库编号 "is_bonded": "xxx", 是否保税 "item_state": "xxx", 质量状态 "wheel_type_rot": "xxx", 轮型/左右旋 "subpool": "xxx", 子库 "req_no": "xxx", 唯一标识 "inbound_policy": "xxx", 胶料入库规则 "expire_date": "xxx", 到期时间 "palletizing": "xxx", 码盘规则 "dispersoid": "xxx", 散装胶标识 "item_code_9": "xxx", 物料编码六位码 "remark1": "", -- 备注 暂未启用 "remark2": "", -- 备注 暂未启用 "remark3": "", -- 备注 暂未启用 "remark4": "", -- 备注 暂未启用 "number": "", -- 只针对散装胶，散装胶的入库单据行是一车的总数量，根据 总数量/块数得到每块胶的标准重量 } 处理逻辑 -- step1 解析接口传递的 datajson 参数 -- step2 校验必传字段是否为空，为空则报错 -- step3 通过收货单号和收货单行号获取入库单据头信息 -- step4 创建入库单据行 变更记录: 20250221 LZH V1.1 新增4个备用字段和到期时间、散装胶标识、码盘规则 20250319 LZH V1.2 新增number字段 --]] m3 = require( "oi_base_mobox" ) json = require("json") mobox = require("OILua_JavelinExt") function CreateLabelCrad(strLuaDEID) local nRet, strRetInfo, in_date -- 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) -- step2 判断是否都有值？没值报错返回 local delivery_no = in_date.delivery_no if (delivery_no == nil or delivery_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "收货单号不能为空!") end local delivery_row_no = in_date.delivery_row_no if (delivery_row_no == nil or delivery_row_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "收货单行号不能为空!") end local serial_no = in_date.serial_no if (serial_no == nil or serial_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "流水号不能为空!") end local batch_no = in_date.batch_no if (batch_no == nil or batch_no == '') then lua.Error(strLuaDEID, debug.getinfo(1), "批次号不能为空!") end local qty = tonumber(in_date.qty) if (qty == nil) 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 local product_date = in_date.product_date if (product_date == nil or product_date == '') then lua.Error(strLuaDEID, debug.getinfo(1), "生产日期不能为空!") end local wh_code = in_date.wh_code if (wh_code == nil or wh_code == '') then lua.Error(strLuaDEID, debug.getinfo(1), "仓库编号不能为空!") end local is_bonded = in_date.is_bonded local item_state = in_date.item_state if (item_state == nil or item_state == '') then lua.Error(strLuaDEID, debug.getinfo(1), "质量状态不能为空!") end local storage_loc = in_date.storage_loc local wheel_type_rot = in_date.wheel_type_rot local subpool = in_date.subpool local req_no = in_date.req_no local inbound_policy = in_date.inbound_policy -- 20250221 LZH V1.1 新增4个备用字段和到期时间、散装胶标识、码盘规则 local expire_date = in_date.expire_date local palletizing = in_date.palletizing local dispersoid = in_date.dispersoid local remark1 = in_date.remark1 local remark2 = in_date.remark2 local remark3 = in_date.remark3 local remark4 = in_date.remark4 -- 20250319 LZH V1.2 新增number字段 local number = in_date.number local item_code_9 = in_date.item_code_9 if (item_code_9 == nil or item_code_9 == '') then lua.Error(strLuaDEID, debug.getinfo(1), "物料编码不能为空!") end -- if(dispersoid == 'Y')then -- nRet, serial_no = mobox.getSerialNumber("流水号", 'L', 7) -- if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1),"申请散装胶入库单据行编码失败!" .. serial_no) end -- end -- step3 通过收货单号和收货单行号获取入库单据头信息 local strCondition = "S_DELIVERY_NO = '" .. delivery_no .. "' AND N_DELIVERY_ROW_NO = '" .. delivery_row_no .. "'" nRet, strRetInfo = m3.GetDataObjByCondition(strLuaDEID, "GT_Incoming_Info", strCondition) if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "m3.GetDataObjByCondition 失败!" .. strRetInfo) end local order_no = strRetInfo.order_no local item_name = strRetInfo.item_name -- 判断流水号是否存在,存在则更新 strCondition = "S_SERIAL_NO = '" .. serial_no .. "'" nRet, strRetInfo = m3.GetDataObjByCondition(strLuaDEID, "GT_Label_Crad", strCondition) if (nRet == 1) then -- step4 创建入库单据行 -- 获取一个初始的【入库单据行】数据对象 strRetInfo = m3.AllocObject(strLuaDEID, "GT_Label_Crad") strRetInfo.delivery_no = delivery_no strRetInfo.delivery_row_no = delivery_row_no strRetInfo.item_code_9 = item_code strRetInfo.item_name = item_name strRetInfo.product_date = product_date strRetInfo.batch_no = batch_no strRetInfo.item_state = item_state strRetInfo.qty = qty strRetInfo.serial_no = serial_no strRetInfo.wh_code = wh_code strRetInfo.storage_loc = storage_loc strRetInfo.order_no = order_no strRetInfo.is_bonded = is_bonded strRetInfo.wheel_type_rot = wheel_type_rot strRetInfo.subpool = subpool strRetInfo.req_no = req_no strRetInfo.inbound_policy = inbound_policy strRetInfo.expire_date = expire_date strRetInfo.palletizing = palletizing strRetInfo.dispersoid = dispersoid strRetInfo.number = number strRetInfo.item_code = item_code_9 nRet, strRetInfo = m3.CreateDataObj(strLuaDEID, strRetInfo) if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), 'mobox 创建【入库单据行】对象失败!' .. strRetInfo) end elseif (nRet == 0) then local update_sql = "S_DELIVERY_NO = '" .. delivery_no .. "',N_DELIVERY_ROW_NO = '" .. delivery_row_no .. "'" update_sql = update_sql .. ",S_item_code_9 = '" .. item_code .. "',S_ITEM_NAME = '" .. item_name .. "'" update_sql = update_sql .. ",D_PRODUCT = '" .. product_date .. "',S_BATCH_NO = '" .. batch_no .. "'" update_sql = update_sql .. ",S_ITEM_STATE = '" .. item_state .. "',F_QTY = '" .. qty .. "',S_WH_CODE ='" .. wh_code .. "'" update_sql = update_sql .. ",S_ORDER_NO = '" .. order_no .. "'" if(is_bonded ~= nil and is_bonded ~= '')then update_sql = update_sql..",C_IS_BONDED = '" .. is_bonded .. "'" end if(storage_loc ~= nil and storage_loc ~= '')then update_sql = update_sql..",S_STORAGE_LOC = '" .. storage_loc .. "'" end if(wheel_type_rot ~= nil and wheel_type_rot ~= '')then update_sql = update_sql..",S_WHEEL_TYPE_ROT = '" .. wheel_type_rot .. "'" end if(subpool ~= nil and subpool ~= '')then update_sql = update_sql..",S_SUBPOOL = '" .. subpool .. "'" end if(req_no ~= nil and req_no ~= '')then update_sql = update_sql..",S_REQ_NO = '" .. req_no .. "'" end if(inbound_policy ~= nil and inbound_policy ~= '')then update_sql = update_sql..",S_INBOUND_POLICY = '" .. inbound_policy .. "'" end if(expire_date ~= nil and expire_date ~= '')then update_sql = update_sql..",D_EXPIRE = '" .. expire_date .. "'" end if(palletizing ~= nil and palletizing ~= '')then update_sql = update_sql..",S_PALLETIZING = '" .. palletizing .. "'" end if(dispersoid ~= nil and dispersoid ~= '')then update_sql = update_sql..",S_DISPERSOID = '" .. dispersoid .. "'" end if(number ~= nil and number ~= '')then update_sql = update_sql..",S_NUMBER = '" .. number .. "'" end if(item_code_9 ~= nil and item_code_9 ~= '')then update_sql = update_sql..",S_ITEM_CODE = '" .. item_code_9 .. "'" end nRet, strRetInfo = mobox.updateDataAttrByCondition(strLuaDEID, "GT_Label_Crad", strCondition, update_sql) if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "修改入库单信息失败！" .. strRetInfo) end else lua.Error(strLuaDEID, debug.getinfo(1), 'GetDataObjByCondition失败!' .. strRetInfo) end end