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

 

转载于:https://www.cnblogs.com/xiaoli9627/p/7692865.html