T100——修改单身栏位,开窗,当前行
1 PRIVATE FUNCTION axmt500_update_xmdc028()
2 ###更改出货库位
3 DEFINE l_i INT
4 DEFINE l_index INT
5
6 DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)
7 INPUT ARRAY g_xmdc2_d FROM s_detail2.*
8 ATTRIBUTE(COUNT = g_rec_b,WITHOUT DEFAULTS, #MAXCOUNT = g_max_rec,
9 INSERT ROW = FALSE,
10 DELETE ROW = FALSE,
11 APPEND ROW = FALSE)
12
13 ON ACTION controlp INFIELD xmdc028
14 INITIALIZE g_qryparam.* TO NULL
15 LET g_qryparam.state = 'i'
16 LET g_qryparam.reqry = FALSE
17 LET g_qryparam.default1 = g_xmdc2_d[l_index].xmdc028 #給予default值
18 LET g_qryparam.arg1 = g_site
19 CALL q_inaa001_6()
20
21 LET g_xmdc2_d[l_index].xmdc028 = g_qryparam.return1
22 LET g_xmdc2_d[l_index].xmdc028_desc = g_qryparam.return2
23
24 DISPLAY g_xmdc2_d[l_index].xmdc028 TO xmdc028
25 DISPLAY g_xmdc2_d[l_index].xmdc028_desc TO xmdc028_desc
26
27 NEXT FIELD xmdc028
28
29 BEFORE ROW
30 LET l_index = ARR_CURR()
31
32 END INPUT
33
34 BEFORE DIALOG
35 36 CALL cl_set_comp_entry("xmdc028",TRUE)
37 CALL cl_set_comp_entry("xmdcseq,imaa001,imaal003,imaal004,imaa005,imaa005_desc,xmdc0272,l_pmao0092",FALSE)
38 CALL cl_set_comp_entry("l_pmao0102,xmdc028_desc,xmdc029,xmdc029_desc,xmdc030,xmdc057,xmdc025,oofb0173",FALSE)
39 CALL cl_set_comp_entry("xmdc026,oofb0174,xmdc031,xmdc031_desc,xmdc032,xmdc033,xmdc003,xmdc003_desc,xmdc054",FALSE)
40 CALL cl_set_comp_entry("xmdc036,xmdc036_desc,xmdc037,xmdc037_desc,xmdc038,xmdc038_desc,xmdc039,xmdc035",FALSE)
41 CALL cl_set_comp_entry("xmdc040,xmdc041,xmdc042,xmdc043,xmdc044",FALSE)
42
43
44 ON ACTION accept
45 FOR l_i=1 TO g_xmdc2_d.getLength()
46 UPDATE xmdc_t SET xmdc028=g_xmdc2_d[l_i].xmdc028
47 WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=g_xmda_m.xmdadocno AND xmdcseq=g_xmdc2_d[l_i].xmdcseq
48
49 END FOR
50
51 LET g_xmda_m.xmdamodid = g_user
52 LET g_xmda_m.xmdamoddt = cl_get_current()
53 SELECT ooag011 INTO g_xmda_m.xmdamodid_desc FROM ooag_t
54 WHERE ooagent=g_enterprise AND ooag001=g_xmda_m.xmdamodid
55
56 UPDATE xmda_t SET xmdamodid=g_xmda_m.xmdamodid,xmdamoddt=g_xmda_m.xmdamoddt
57 WHERE xmdaent=g_enterprise AND xmdasite=g_site AND xmdadocno=g_xmda_m.xmdadocno
58
59 DISPLAY BY NAME g_xmda_m.xmdamodid,g_xmda_m.xmdamoddt,g_xmda_m.xmdamodid_desc
60
61 ACCEPT DIALOG
62
63 ON ACTION cancel #在dialog button (放棄)
64
65 EXIT DIALOG
66
67 ON ACTION close #在dialog 右上角 (X)
68
69 EXIT DIALOG
70
71 ON ACTION exit #toolbar 離開
72
73 EXIT DIALOG
74
75 #交談指令共用ACTION
76 &include "common_action.4gl"
77 CONTINUE DIALOG
78
79 END DIALOG
80
81 END FUNCTION