T100——修改单身栏位，开窗，当前行

 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
          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= 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