--[[
|
编码: WMS-22-11
|
名称: 发货单-检查状态
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： CheckState
|
功能:
|
-- 检查 发货单明细 配盘是否全部完成，如果全部完成 N_B_STATE = 1
|
|
更改记录:
|
|
--]]
|
|
json = require ("json")
|
mobox = require ("OILua_JavelinExt")
|
m3 = require("oi_base_mobox")
|
|
function CheckState ( strLuaDEID )
|
local n, nRet, strRetInfo,shipping_order
|
|
nRet, shipping_order = m3.GetSysCurEditDataObj( strLuaDEID, "Shipping_Order" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前【发货单】对象属性失败! "..shipping_order ) end
|
-- 获取【发货单明细】
|
local strCondition = "S_SHIPPING_NO = '"..shipping_order.no.."'"
|
local strOrder = ""
|
local data_objs
|
local distribution_finish = true
|
|
nRet, data_objs = m3.QueryDataObject( strLuaDEID, "Shipping_Detail", strCondition, strOrder )
|
if (nRet ~= 0) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【Count_CG_Detail】信息失败! " .. count_cg_detail) end
|
local obj_attrs
|
local qty, acc_d_qty
|
|
for n = 1, #data_objs do
|
obj_attrs = m3.KeyValueAttrsToObjAttr(data_objs[n].attrs)
|
qty = lua.StrToNumber( obj_attrs.F_QTY )
|
acc_d_qty = lua.StrToNumber( obj_attrs.F_ACC_D_QTY )
|
if ( qty > acc_d_qty ) then
|
distribution_finish = false
|
break
|
end
|
end
|
if ( distribution_finish ) then
|
local strUpdateSql = "N_CURRENT_NUM = 0"
|
strCondition = "S_NO = '"..shipping_order.no.."'"
|
nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Shipping_Order", strCondition, strUpdateSql )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "更新【发货单】信息失败!"..strRetInfo ) end
|
end
|
end
|
