PRIVATE FUNCTION axmt500_update_xmdc028()
###更改出货库位
DEFINE l_i INT
DEFINE l_index INT
DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)
INPUT ARRAY g_xmdc2_d FROM s_detail2.*
ATTRIBUTE(COUNT = g_rec_b,WITHOUT DEFAULTS, #MAXCOUNT = g_max_rec,
INSERT ROW = FALSE,
DELETE ROW = FALSE,
APPEND ROW = FALSE)
ON ACTION controlp INFIELD xmdc028
INITIALIZE g_qryparam.* TO NULL
LET g_qryparam.state = 'i'
LET g_qryparam.reqry = FALSE
LET g_qryparam.default1 = g_xmdc2_d[l_index].xmdc028 #給予default值
LET g_qryparam.arg1 = g_site
CALL q_inaa001_6()
LET g_xmdc2_d[l_index].xmdc028 = g_qryparam.return1
LET g_xmdc2_d[l_index].xmdc028_desc = g_qryparam.return2
DISPLAY g_xmdc2_d[l_index].xmdc028 TO xmdc028
DISPLAY g_xmdc2_d[l_index].xmdc028_desc TO xmdc028_desc
NEXT FIELD xmdc028
BEFORE ROW
LET l_index = ARR_CURR()
END INPUT
BEFORE DIALOG
36 CALL cl_set_comp_entry("xmdc028",TRUE)
CALL cl_set_comp_entry("xmdcseq,imaa001,imaal003,imaal004,imaa005,imaa005_desc,xmdc0272,l_pmao0092",FALSE)
CALL cl_set_comp_entry("l_pmao0102,xmdc028_desc,xmdc029,xmdc029_desc,xmdc030,xmdc057,xmdc025,oofb0173",FALSE)
CALL cl_set_comp_entry("xmdc026,oofb0174,xmdc031,xmdc031_desc,xmdc032,xmdc033,xmdc003,xmdc003_desc,xmdc054",FALSE)
CALL cl_set_comp_entry("xmdc036,xmdc036_desc,xmdc037,xmdc037_desc,xmdc038,xmdc038_desc,xmdc039,xmdc035",FALSE)
CALL cl_set_comp_entry("xmdc040,xmdc041,xmdc042,xmdc043,xmdc044",FALSE)
ON ACTION accept
FOR l_i=1 TO g_xmdc2_d.getLength()
UPDATE xmdc_t SET xmdc028=g_xmdc2_d[l_i].xmdc028
WHERE xmdcent=g_enterprise AND xmdcsite=g_site AND xmdcdocno=g_xmda_m.xmdadocno AND xmdcseq=g_xmdc2_d[l_i].xmdcseq
END FOR
LET g_xmda_m.xmdamodid = g_user
LET g_xmda_m.xmdamoddt = cl_get_current()
SELECT ooag011 INTO g_xmda_m.xmdamodid_desc FROM ooag_t
WHERE ooagent=g_enterprise AND ooag001=g_xmda_m.xmdamodid
UPDATE xmda_t SET xmdamodid=g_xmda_m.xmdamodid,xmdamoddt=g_xmda_m.xmdamoddt
WHERE xmdaent=g_enterprise AND xmdasite=g_site AND xmdadocno=g_xmda_m.xmdadocno
DISPLAY BY NAME g_xmda_m.xmdamodid,g_xmda_m.xmdamoddt,g_xmda_m.xmdamodid_desc
ACCEPT DIALOG
ON ACTION cancel #在dialog button (放棄)
EXIT DIALOG
ON ACTION close #在dialog 右上角 (X)
EXIT DIALOG
ON ACTION exit #toolbar 離開
EXIT DIALOG
#交談指令共用ACTION
&include "common_action.4gl"
CONTINUE DIALOG
END DIALOG
END FUNCTION
转载请注明：赫非域 » T100——修改单身栏位，开窗，当前行