fy36
2025-05-14 a37aca60ff9914b0abb710f04118b22420f4f398
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
--[[
   编码: WMS-105-03
   名称: 
   作者:
   日期:2025-1-29
 
 
   函数: BeforeDataObjDelete
 
   功能:
        -- N_B_STATE = 2 执行状态的不能删除
 
   更改记录:
 
--]]
 
json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")
 
function BeforeDataObjDelete( strLuaDEID )
    local   nRet, strRetInfo
 
    -- 获取 N_B_STATE
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "N_B_STATE","S_WAVE_NO" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 
    local obj_attrs = json.decode( strRetInfo ) 
    local b_state = lua.StrToNumber( obj_attrs[1].value ) 
    local wave_no = obj_attrs[2].value            
  
    -- 3 执行的出库波次要进一步对 作业进行检查,如果作业中的 N_TASK_STATE 有>= 1 的情况不能删除
    if ( b_state == 3  ) then 
        local strCondition = "N_TASK_STATE >= 1 AND S_BS_TYPE ='Outbound_Wave' AND S_BS_NO = '"..wave_no.."'"        
        nRet, strRetInfo = mobox.getDataObjCount( strLuaDEID, "Operation", strCondition )
        if ( nRet ~= 0 ) then return nRet, strRetInfo end 
        local nCount = lua.StrToNumber( strRetInfo )   
        if ( nCount > 0 ) then
            mobox.stopProgram( strLuaDEID, "该出库波次作业已经启动不能删除!, 需经作业管理申请作业取消后再删除")
            return 
        end
    end           
   
end