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