1
Jianw
10 天以前 88e26a2a960dbbc148332772448b79b9877102d8
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
--[[
   编码: WMS-999-02
   名称: 
   作者:
   日期:2025-05-16
 
   函数: Test
   功能:
 
   更改记录:
 
--]]
 
json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require ("oi_base_mobox")
wms_pallet = require( "wms_palletizing" )
 
function Test( strLuaDEID )
    local nRet, strRetInfo
    
    m3.PrintLuaDEInfo( strLuaDEID )
    
    local detail_item_data = {
        {
                S_CELL_NO = "C-3",
                S_ITEM_CODE = "T3",
                S_ITEM_NAME = "T3",
                S_SERIAL_NO = "",
                S_ITEM_SPEC = "",
                S_ITEM_STATE = "Q",
                S_BATCH_NO = "",
                S_END_USER = "",
                S_OWNER = "",
                S_STORER = "ST-01",
                S_SUPPLIER_NO = "",
                S_SUPPLIER_NAME = "",
                F_QTY = "28",
                S_UOM = "个",
                D_PRD_DATE = "20250516",
                D_EXP_DATE = "",
                S_UDF01 = "",
                S_UDF02 = "",
                S_UDF03 = "",
                S_UDF04 = "",
                S_UDF05 = "",
                S_UDF06 = "",
                S_UDF07 = "",
                S_UDF08 = "",
                S_UDF09 = "",
                S_UDF10 = "",
                S_UDF11 = "",
                S_UDF12 = "",
                S_UDF13 = "",
                S_UDF14 = "",
                S_UDF15 = "",
                S_UDF16 = "",
                S_UDF17 = "",
                S_UDF18 = "",
                S_UDF19 = "ABC",
                S_UDF20 = "WEIGHT",
                S_BS_NO = "",
                S_BS_TYPE = "",
                N_BS_ROW_NO = ""            
        }
    }
 
    local cntr_code = "FB-0014"
    nRet, strRetInfo = wms_pallet.Add_INB_Pallet_Detail( strLuaDEID, "FB-0014", detail_item_data )
    if ( nRet ~= 0 ) then
        return
    end
    
    local loc_code = ""
    
    nRet, strRetInfo = wms_pallet.Set_INBP_State_Inbound_Pending( strLuaDEID, cntr_code, loc_code )
end