--[[
|
编码:
|
名称: DeleteInboundOrder
|
作者:
|
入口函数：main
|
功能说明:
|
变更历史:
|
输入数据格式:
|
{
|
"Name": "DeleteInboundOrder",
|
"Source": "ERP",
|
"Data":
|
{
|
"S_NO": "RKD001",
|
"SourceKey": ""
|
}
|
}
|
--]]
|
-- 引入基础模块
|
json = require("json")
|
mobox = require("OILua_JavelinExt")
|
m3 = require( "oi_base_mobox" )
|
wms_base = require( "wms_base" )
|
|
function main(strLuaDEID)
|
|
|
-- 初始化变量
|
local nRet, inputData
|
local item
|
local inbound_data
|
local s_no
|
|
local Condition
|
|
local nRetl, strRetInfop,item
|
local inboundOrder
|
local strCondition
|
local sqlstrCondition
|
local container_data, nRet
|
|
local err_code = 0
|
local err_msg
|
local err = {}
|
|
-- 获取接口传入的数据
|
nRet, inputData = m3.GetSysDataJson(strLuaDEID)
|
if (nRet ~= 0) then
|
table.insert(err, "无法获取数据包：" .. inputData)
|
goto continue
|
end
|
|
if (inputData == nil or inputData == "")then
|
table.insert(err, "Data 不合法！：" .. inbound_data)
|
goto continue
|
end
|
|
if (inputData.S_NO == nil or inputData.S_NO == "") then
|
table.insert(err, "来源单号不能为空！：" .. inbound_data)
|
goto continue
|
end
|
|
s_no = inputData.S_NO -- 来源单号
|
|
-- 用于校验入库单的状态值，料箱库的入库单看N_B_STATE，人工库的看累计入库数量是否有值
|
strCondition = "S_BS_NO = '"..s_no.."' AND N_B_STATE <> 0 AND S_AREA_CODE = '料箱库' "
|
nRet, inbound_date = m3.QueryDataObject(strLuaDEID, "Inbound_Order", strCondition)
|
if (nRet ~= 0) then
|
table.insert(err, "查询对应的入库单失败！：" .. s_no)
|
goto continue
|
end
|
if (inbound_date ~= "") then
|
table.insert(err, "该来源单号对应的入库单有非新建状态，不可删除！：" .. s_no)
|
goto continue
|
end
|
|
|
Condition = "S_IO_NO IN (SELECT S_NO FROM TN_Inbound_Order WHERE S_BS_NO = '"..s_no.."') AND F_ACC_I_QTY <> 0 "
|
nRet, container_data = m3.QueryDataObject(strLuaDEID, "Inbound_Detail", Condition)
|
if (nRet ~= 0) then
|
table.insert(err, "查询对应的入库单失败！：" .. s_no)
|
goto continue
|
end
|
|
if (container_data ~= "") then
|
table.insert(err, "该来源单号对应的入库单明细有已入库的数据，不可删除！：" .. s_no)
|
goto continue
|
end
|
|
-- 用来源单号查询入库单信息是否存在
|
sqlstrCondition = "S_BS_NO = '" .. s_no .. "'"
|
nRetl, strRetInfop = mobox.existThisData(strLuaDEID, "Inbound_Order", sqlstrCondition)
|
if (nRetl ~= 0) then
|
table.insert(err, "调用方法existThisData出错：" .. strRetInfop)
|
goto continue
|
end
|
if (strRetInfop == 'yes') then
|
-- 查询入库单信息
|
local nRet, inbound_order = m3.QueryDataObject(strLuaDEID, "Inbound_Order", sqlstrCondition)
|
if (nRet ~= 0 or not inbound_order) then
|
lua.Stop(strLuaDEID, "查询失败: ".. s_no )
|
return
|
end
|
|
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Inbound_Order", sqlstrCondition)
|
if (nRet ~= 0) then
|
lua.Stop(strLuaDEID, "删除入库单失败：".. s_no)
|
return
|
end
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "ERP_Inbound_Order", sqlstrCondition)
|
if (nRet ~= 0) then
|
lua.Stop(strLuaDEID, "删除ERP入库单失败：" .. s_no)
|
return
|
end
|
|
for n = 1, #inbound_order do
|
local record = m3.KeyValueAttrsToObjAttr(inbound_order[n].attrs)
|
local no = record.S_NO
|
local sqlCondition = "S_IO_NO = '" .. no .. "'"
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "ERP_Inbound_Detail", sqlCondition)
|
if (nRet ~= 0) then
|
lua.Stop(strLuaDEID, "删除入库单失败："..no)
|
return
|
end
|
nRet, strRetInfo = mobox.dbdeleteData(strLuaDEID, "Inbound_Detail", sqlCondition)
|
if (nRet ~= 0) then
|
lua.Stop(strLuaDEID, "删除ERP入库单失败：" ..no)
|
return
|
end
|
end
|
|
else
|
table.insert(err, "查询入库单失败")
|
end
|
|
-- 返回参数
|
::continue::
|
|
if (#err > 0) then
|
err_code = 1
|
err_msg = "入库单删除失败！" .. table.concat(err, ",")
|
else
|
err_code = 0
|
err_msg = "入库单删除成功！"
|
end
|
|
local result =
|
{
|
SourceKey = inputData.SourceKey,
|
err_code = err_code,
|
err_msg = err_msg,
|
result = {
|
S_NO = s_no
|
}
|
}
|
mobox.returnValue(strLuaDEID, 1, lua.table2str(result))
|
|
end
|
