1

Jianw

9 天以前 70f29da38121b9a467841253e3268feb5df02902

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
--[[
    编码: WMS-24-21
    名称: 出库单-后台创建出库作业
    作者：HAN  
    日期: 2025-6-6
 
    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： CreateOperation
 
    功能:
        -- 适用于后台WFP调用
        -- 获取【出库单】中的配盘数据对象，
        -- 每个配盘对象创建一个{货品出库}作业，容器加出库锁
 
    更改记录:
 
--]]
 
wms_wh = require( "wms_wh" )
wms_op = require( "wms_operation" )
 
function CreateOperation( strLuaDEID )
    local nRet, strRetInfo, m
 
    m3.PrintLuaDEInfo( strLuaDEID )
    
    local outbound_order = {}
    nRet, outbound_order = m3.GetSysCurEditDataObj( strLuaDEID, "Outbound_Order" )
    if (nRet ~= 0) then 
        lua.Stop( strLuaDEID, "获取【出库单】对象属性失败!"..outbound_order ) 
        return
    end
    
    local strCondition, strUpdateSql
    local distribution_objs, distribution
 
    strCondition = "S_BS_TYPE = 'Outbound_Order' AND S_BS_NO = '"..outbound_order.no.."'"
    nRet, distribution_objs = m3.QueryDataObject(strLuaDEID, "Distribution_CNTR", strCondition, "" )
    if (nRet ~= 0) then 
        lua.Stop( strLuaDEID, "QueryDataObject失败!"..distribution_objs )
        return
    end
 
    -- 根据每个配盘生成出库作业
    for m = 1, #distribution_objs do
        distribution = m3.KeyValueAttrsToObjAttr(distribution_objs[m].attrs)   
        nRet, strRetInfo = wms_op.Create_Distribution_OutOperation ( strLuaDEID, distribution )
        if ( nRet ~= 0 ) then
            lua.Stop( strLuaDEID, strRetInfo )
            return
        end
    end   
    
    -- 更新出库单的状态 N_B_STATE = 3 表示已经创建作业
    strUpdateSql = "N_B_STATE = "..OUTBOUND_ORDER_STATE.OP_Star
    strCondition = "S_NO = '"..outbound_order.no.."'"
    nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Outbound_Order", strCondition, strUpdateSql )
    if ( nRet ~= 0 ) then 
        lua.Stop( strLuaDEID, "更新【出库单】状态失败!"..strRetInfo ) 
        return
    end  
end