--[[
|
编码: WMS-13-07
|
名称: 预收货通知-新增界面选择来源单号后
|
作者：HAN
|
日期：2025-1-29
|
|
级别：固定 (说明本段代码在项目中不太会变化)
|
|
函数： AeforeSelectBSNo
|
|
功能:
|
1）根据选中的数据对象，比如业务来源是“采购订单”，选中的就是采购订单，该脚本把选中的采购订单中的采购明细加入ASN明细
|
|
更改记录:
|
|
--]]
|
|
json = require ("json")
|
mobox = require ("OILua_JavelinExt")
|
m3 = require("oi_base_mobox")
|
|
-- 获取采购订单明细，返回插入ROW数据
|
function GetPurchaseOrderDetail( strLuaDEID, strPONo )
|
local strCondition, nRet, strRetInfo
|
local strOrder = 'N_ROW_NO'
|
|
strCondition = "S_PO_NO = '"..strPONo.."'"
|
nRet, strRetInfo = mobox.queryDataObjAttr( strLuaDEID, "Purchase_Detail",strCondition, strOrder, "S_ITEM_CODE", "S_ITEM_NAME","S_ITEM_SPEC","S_UOM","F_QTY" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【Purchase_Detail】属性失败! "..strRetInfo ) end
|
|
local retObjs = json.decode( strRetInfo )
|
local nObjs = #retObjs
|
local n
|
local attrs
|
local strInsertRow = ''
|
|
for n = 1, nObjs do
|
attrs = retObjs[n].attrs
|
strInsertRow = strInsertRow..'{"attrs":'..lua.table2str(attrs)..'},'
|
end
|
if ( strInsertRow ~= '') then
|
return '['..lua.trim_laster_char(strInsertRow)..']'
|
end
|
return ''
|
end
|
|
function AeforeSelectBSNo ( strLuaDEID )
|
local nRet, strRetInfo
|
local strBSType = ''
|
local strClsID = ''
|
|
-- 获取界面上输入的 业务类型
|
nRet, strBSType = m3.GetSysCurEditDataOneAttr( strLuaDEID, "S_BS_TYPE" )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "GetSysCurEditDataOneAttr失败! "..strBSType ) end
|
-- 如果业务类型为空，不能做查询
|
if ( strBSType == '') then lua.Error( strLuaDEID, debug.getinfo(1), "请先选来源类型!") end
|
if ( strBSType == '采购订单') then
|
strClsID = 'Purchase_Order'
|
else
|
lua.Error( strLuaDEID, debug.getinfo(1), "不合法的来源类型!")
|
end
|
|
local strDataJson
|
-- 获取选择面板中选中的数据
|
nRet, strDataJson = mobox.getCurEditDataPacket( strLuaDEID )
|
if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "无法获取Lua数据包!") end
|
if ( strDataJson == '' ) then lua.Error( strLuaDEID, debug.getinfo(1), "接口数据包为空!") end
|
|
-- 解析输入的Json格式文本
|
local obj, success
|
success, obj = pcall( json.decode, strDataJson)
|
if ( success == false ) then lua.Error( strLuaDEID, debug.getinfo(1), "非法的JSON格式!"..obj ) end
|
|
-- 因为是单选 格式：{"id":"","attr1":"",...}
|
-- 获取返回的数据对象属性
|
local strBSNo = '' -- 业务来源单号
|
local strSpplierNo = '' -- 供应商编码
|
local strSpplierName = '' -- 供应商名称
|
local bSetDlgAttr = false
|
local strInsertRow = ''
|
if ( strBSType == '采购订单') then
|
strBSNo = obj.S_NO
|
strSpplierNo = obj.S_SUPPLIER_NO
|
strSpplierName = obj.S_SUPPLIER_NAME
|
if (strBSNo == '' or strBSNo == nil ) then return end
|
if (strSpplierNo == nil ) then strSpplierNo = '' end
|
if (strSpplierName == nil ) then strSpplierName = '' end
|
bSetDlgAttr = true
|
-- 获取采购订单明细
|
strInsertRow = GetPurchaseOrderDetail( strLuaDEID, strBSNo )
|
end
|
|
if (bSetDlgAttr) then
|
local setAttr = '[{"attr":"S_BS_NO","value":"'..strBSNo..'"},{"attr":"S_SUPPLIER_NO","value":"'..strSpplierNo..'"},'
|
setAttr = setAttr..'{"attr":"S_SUPPLIER_NAME","value":"'..strSpplierName..'"}]'
|
|
local strAction = '[{"action_type":"set_dlg_attr","value":'..setAttr..'}'
|
if ( strInsertRow ~= '' ) then
|
strAction = strAction..',{"action_type":"clear_rows","value":""},{"action_type":"insert_bottom_row","value":'..strInsertRow..'}'
|
end
|
strAction = strAction..']'
|
nRet, strRetInfo = mobox.setAction( strLuaDEID, strAction )
|
if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end
|
end
|
end
|
