--[[
|
编码: JX-28-13
|
名称: 盘点单-盘点差异转移
|
作者：HAN
|
日期：2025-3-6
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： CountOrder_DiffTransfer
|
|
功能:
|
根据点中的盘点单把盘点单相关的盘点差异进行盘点差异处理
|
-- 把盘点差异上传巨沃（只上传盘亏）
|
-- 调整WMS的库存量
|
|
更改记录:
|
|
--]]
|
wms_count= require( "wms_count" )
|
jx_base = require( "jx_base" )
|
|
function CountOrder_DiffTransfer( strLuaDEID )
|
local nRet, strRetInfo, n
|
local count_order
|
|
m3.PrintLuaDEInfo( strLuaDEID )
|
|
-- step1 获取当前点中的[盘点单]
|
nRet, objs = m3.GetSysDataJson( strLuaDEID )
|
if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), objs ) end
|
-- [{"id":"","attrs":[{"attr":"","value":""},..]},..]
|
local nCount = #objs
|
if (nCount == 0) then return end
|
|
-- 获取盘点单对象
|
local msg = ""
|
for n = 1, nCount do
|
strCondition = "S_ID = '"..lua.trim_guid_str( objs[n].id ).."'"
|
nRet, count_order = m3.GetDataObjByCondition(strLuaDEID, "Count_Order", strCondition )
|
if ( nRet ~= 0 ) then return 2, "m3.ObjAttrStrToLuaObj(Count_Order) 失败! "..count_order end
|
|
-- 如果是货物盘点需要判断盘点单是否已经上传巨沃 cr_state = 1 表示成功上传
|
if ( count_order.cr_state ~= 1 and count_order.count_type == wms_base.Get_nConst( strLuaDEID, "盘点类型-货品盘点")) then
|
msg = msg.."盘点单'"..count_order.count_no.."'盘点结果还没有上传巨沃，无法做差异转移!\r\n"
|
else
|
nRet, strRetInfo = jx_base.CountOrder_Transfter ( strLuaDEID, count_order )
|
-- 返回2说明是致命错误
|
if ( nRet ~= 0 ) then
|
if ( nRet == 2 ) then return 2, strRetInfo end
|
msg = msg..strRetInfo.."\r\n"
|
end
|
end
|
end
|
if ( msg ~= '' ) then
|
mobox.setInfo( strLuaDEID, msg )
|
end
|
local action = {
|
{
|
action_type = "refresh",
|
value = ""
|
}
|
}
|
|
nRet, strRetInfo = mobox.setAction(strLuaDEID, lua.table2str(action))
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction错误: "..strRetInfo) end
|
|
end
|
