lzh
2025-06-24 13c4a636539584ab977fddacfae884b3ec250aee
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
ÿþ--[[
   x:
    Tðy:
   \O€ÿ
   åegÿ2024-10-31
 
   ýQpeÿ ClickOk
   ŸRý€:  HQRú^ň±{!hŒšù[aŒ,(W¾‹nu˜b—ÂSpe:NzzÿÝOYuå]MO    ÿ
 
   ôf9e°‹U_:
 
--]]
 
json  = require("json")
mobox = require("OILua_JavelinExt")
m3 = require( "oi_base_mobox" )
 
function ClickOk(strLuaDEID)
    local nRet, strRetInfo
 
    -- ·ƒÖS¥cãS-N„vDatapenc
    nRet, strRetInfo = mobox.getCurEditDataObjAttr(strLuaDEID, "S_SERIAL_NO", "S_STATION", "S_PDA_NO")
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "Œ(u¹eÕlGetSysDataJsonúQ•") end
    local obj_attrs = json.decode(strRetInfo)
    lua.Debug(strLuaDEID, debug.getinfo(1), "1111obj_attrs", obj_attrs)
 
    -- PDAkbx„vAm4l÷S
    local serial_no = obj_attrs[1].value
    if (serial_no == nil or serial_no == '') then
        lua.Error(strLuaDEID, debug.getinfo(1), "÷‹“eQAm4l÷S!")
    end
    local station_no = obj_attrs[2].value
    -- $R­eå]MO÷S/f&TX[(W
    if (station_no == nil or station_no == '') then
        lua.Error(strLuaDEID, debug.getinfo(1), "÷‹“eQå]MO!")
    end
    local pda_no = obj_attrs[3].value
 
    -- $R­e/f&TX[(Wå‹Am4l÷S„v!hŒš°‹U_ÿ2–bk͑ Y    ÿ
    local strCondition = "S_SERIAL_NO = '" .. serial_no .. "'"
    nRet, strRetInfo = m3.GetDataObjByCondition(strLuaDEID, "GT_Packing_Check", strCondition)
    if (nRet == 1) then
        mobox.setInfo(strLuaDEID,"Am4l÷S"..serial_no.."ò]X[(W!hŒš!")
        return
    elseif (nRet ~= 0) then
        lua.Error(strLuaDEID, debug.getinfo(1), "·ƒÖS!hŒš°‹U_1Y%!" .. strRetInfo)
    end
 
    --9hncAm4l÷S·ƒÖSîvƉaSáOo`
    strCondition = "S_SERIAL_NO = '" .. serial_no .. "'"
    nRet, strRetInfo = m3.GetDataObjByCondition(strLuaDEID, "GT_Label_Crad", strCondition)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "·ƒÖSeQ“^USncLˆ1Y%!" .. strRetInfo) end
 
 
    -- Rú^ň±{!hŒš
    local packing_Check = m3.AllocObject(strLuaDEID, "GT_Packing_Check")
    packing_Check.serial_no = serial_no
    packing_Check.station = station_no
    packing_Check.pda_no = pda_no
    packing_Check.delivery_no = strRetInfo.delivery_no
    packing_Check.delivery_row_no = strRetInfo.delivery_row_no
    packing_Check.item_code = strRetInfo.item_code
    packing_Check.item_name = strRetInfo.item_name
    nRet, packing_Check = m3.CreateDataObj(strLuaDEID, packing_Check)
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "Rú^0ň±{!hŒš0•ï‹!" .. packing_Check) end
    lua.Debug(strLuaDEID, debug.getinfo(1), "packing_Check", packing_Check)
 
    -- ¾‹n—zãS-N„v Åˆ±{!hŒšáOo`
    local value = {}
    value[1] = lua.KeyValueObj("S_STATION", station_no)
 
    local action = {}
    action.action_type = "set_dlg_attr"
    action.value = value
 
    nRet, strRetInfo = mobox.setAction(strLuaDEID, '[' .. lua.table2str(action) .. ']')
    if (nRet ~= 0) then lua.Error(strLuaDEID, debug.getinfo(1), "setAction1Y%! " .. strRetInfo) end
 
    mobox.setInfo(strLuaDEID, "!hŒšbŸR!")
end