fy36
2025-07-01 350eb5ec9163d3ea21416b1525bb80191e958071
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
--[[
    编码: WMS-56-27
    名称: 组盘明细-装箱数量变化
    作者:HAN  
    日期:2025-1-29
 
    级别:项目
    
    函数: AfterQtyChange
 
    功能:
        -- 装箱数量输入变化后
 
    更改记录:
 
--]]
 
prj_base = require( "prj_base" )
 
function AfterQtyChange ( strLuaDEID ) 
    local nRet, strRetInfo
 
    local runtime_parameter
    nRet, runtime_parameter = m3.GetRuntimeParam(strLuaDEID)
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "GetRuntimeParam失败! "..runtime_parameter ) end
    -- 获取【组盘输入】面板的参数
    local parameter
    nRet, parameter = m3.GetRuntimePanel_InputParamter( strLuaDEID, runtime_parameter.panel, "组盘输入" )
    if ( nRet == 1 ) then 
        mobox.setInfo( strLuaDEID, "没有定义'组盘输入'面板参数!")
        return 
    end
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), parameter ) end 
    if ( parameter == nil ) then return end
    local id = parameter.id                 -- 当前点中的入库任务标识
    local pac_no = parameter.pac_no       -- 当前点中的入库任务所属组盘号
    if ( pac_no == nil or pac_no == "") then
        mobox.setInfo( strLuaDEID, "'组盘输入'面板必须有orgc_no参数!")
        return         
    end
    -- 获取UPC
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "F_QTY","F_ACT_QTY" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 
    local obj_attrs = json.decode( strRetInfo ) 
    local qty = lua.Get_NumAttrValue( obj_attrs[1].value )  
    local act_qty = lua.Get_NumAttrValue( obj_attrs[2].value )
    
    if ( qty == 0 ) then return end
    
    if ( lua.equation( act_qty, qty ) ) then
 
        -- 设置【组盘明细】状态 = 2(组盘完成)
        local strCondition = "S_ID = '"..id.."'"
        local strUpdateSql = "N_B_STATE = 2, F_ACT_QTY = "..act_qty
        nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Pre_Alloc_CNTR_Detail", strCondition, strUpdateSql )
        if ( nRet ~= 0 ) then  
            lua.Stop( strLuaDEID, "更新【组盘明细】信息失败!"..strRetInfo )
            return
        end  
 
        local action
        nRet, action = prj_base.Pre_Alloc_CNTR_PostProcess( strLuaDEID, pac_no, parameter.station, parameter.cntr_code )
        if ( nRet ~= 0 ) then 
            lua.Stop( strLuaDEID,  "Pre_Alloc_CNTR_PostProcess 失败!"..action )
            return
        end        
        nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
        if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end 
    else
        if ( act_qty > qty ) then
            local action = {
                {
                    action_type = "open_prompt_dlg",
                    value = {
                        prompt = "输入的装箱数量超过计划数量,点确定按计划数量完成装箱!",
                        ok_button = {
                            name = "确定",
                            click_event = {
                                cls_name = "组盘明细",
                                event_name = "任务完成",
                                data = {id=id,qty = qty}
                            }
                        },
                        cancel_button = {
                            name = "取消"
                        }
                    }
                }
            }
 
            nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action) )
            if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end    
        end
    end
 
end