--[[
|
编码: GT-02-01
|
名称: 创建前
|
作者: LZH
|
创建时间: 2024/7/3
|
入口函数：
|
功能说明：
|
-- 判断目视卡数量+来料信息累计装箱数量是否超过来料信息的实际数量
|
|
变更记录:
|
V1.1 LZH 20240718 判空校验，函数getDataObjAttrSum在没有值的情况下返回的是空字符串不是0
|
V1.2 LZH 20240806 从【物料】表中获取是否验证字段
|
V1.3 LZH 20240809 由于来料信息字段变动，获取该入库单据头下的所有入库单据行数量+1判断是否大于入库单据头的托盘数量
|
V1.4 LZH 20240909 散装胶类型的物料不需要校验数量
|
--]]
|
|
json = require("json")
|
mobox = require("OILua_JavelinExt")
|
m3 = require("oi_base_mobox")
|
require("GT-Base")
|
function BeforeDataObjCreate(strLuaDEID)
|
local nRet, strRetInfo
|
lua.Debug(strLuaDEID, debug.getinfo(1), '1', 1)
|
|
-- 获取当前创建的数据对象属性
|
nRet, strRetInfo = mobox.getCurEditDataObjAttr(strLuaDEID, "S_ORDER_NO", "S_ITEM_CODE", "S_DISPERSOID", "S_SERIAL_NO")
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "获取编辑信息失败 " .. strRetInfo)
|
end
|
local obj_attrs = json.decode(strRetInfo)
|
local order_no = obj_attrs[1].value
|
local item_code = obj_attrs[2].value
|
local dispersoid = obj_attrs[3].value
|
local serial_no = obj_attrs[4].value
|
|
lua.Debug(strLuaDEID, debug.getinfo(1), '获取参数', strRetInfo)
|
if (order_no == nil or order_no == '') then
|
lua.Error(strLuaDEID, debug.getinfo(1), "入库单号不能为空！")
|
end
|
if (item_code == nil or item_code == '') then
|
lua.Error(strLuaDEID, debug.getinfo(1), "物料编码不能为空！")
|
end
|
|
-- 获取来料信息
|
local incoming_info
|
local strCondition = " S_ORDER_NO= '" .. order_no .. "'"
|
nRet, incoming_info = m3.GetDataObjByCondition(strLuaDEID, "GT_Incoming_Info", strCondition)
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "m3.GetDataObjByCondition 失败!" .. incoming_info)
|
end
|
|
local lable_crad
|
local strCode = ''
|
if (incoming_info.type == '人工录入') then
|
-- 自动生成流水号(编码规则 S + 7位数字)
|
nRet, strCode = mobox.getSerialNumber("人工录入流水号", 'A', 7)
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1),"申请人工录入入库单据行编码失败!" .. strCode) end
|
else
|
-- 校验流水号不能为空不能重复
|
strCondition = "S_SERIAL_NO = '" .. serial_no .. "'"
|
nRet, lable_crad = m3.GetDataObjByCondition(strLuaDEID, "GT_Label_Crad", strCondition)
|
if (nRet == 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "流水号不能重复!")
|
elseif (nRet == 2) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "m3.GetDataObjByCondition 失败!" .. lable_crad)
|
end
|
end
|
|
-- V1.4 获取物料类型
|
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
|
lua.Debug(strLuaDEID, debug.getinfo(1), '物料信息', material)
|
if (item_type ~= '散装胶') then
|
-- V1.3 获取该送货单号下目视卡数量总和
|
local num
|
nRet, num = mobox.getDataObjCount(strLuaDEID, "GT_Label_Crad", strCondition)
|
if (nRet ~= 0) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "getDataObjCount 失败!" .. num)
|
end
|
|
if (dispersoid ~= 'Y') then
|
if (tonumber(num) + 1 > tonumber(incoming_info.cntr_qty)) then
|
lua.Error(strLuaDEID, debug.getinfo(1), "入库单据行总数超过入库单据头的托盘数量!")
|
end
|
end
|
end
|
|
|
-- V1.2 设置信息
|
local attr_value = {}
|
attr_value[1] = lua.KeyValueObj("C_IS_VALIDATE", material.is_validate)
|
if(strCode ~= '')then
|
attr_value[2] = lua.KeyValueObj("S_SERIAL_NO", strCode)
|
attr_value[3] = lua.KeyValueObj("S_REQ_NO", strCode)
|
end
|
nRet, strRetInfo = mobox.setCurEditDataObjAttr(strLuaDEID, lua.table2str(attr_value))
|
if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "设置入库单据行信息失败! " .. strRetInfo) end
|
end
|
