在CONSTRUCT 時，如何讀到正在輸入的欄位值？( 在AFTER FIELD 使用 FGL_DIALOG_GETBUFFER() )

 ######方法ㄧ######
 235        CONSTRUCT tm.wc3 ON oma03,tmp,tmp3 FROM occ01_in,tax_type,deliv_date
 236           ON ACTION CONTROLP    #FUN-4B0043
 237              IF INFIELD(occ01_in) THEN
 238                 CALL cl_init_qry_var()
 239                 LET g_qryparam.form = "q_occ"
 240                 LET g_qryparam.state = "c"
 241                 CALL cl_create_qry() RETURNING g_qryparam.multiret
 242                 DISPLAY g_qryparam.multiret TO occ01_in
 243                 NEXT FIELD occ01_in
 244              END IF
 245           AFTER FIELD occ01_in
 246              IF g_imd.invoice_type = "1" THEN
 247                 LET g_imd.occ01_in = FGL_DIALOG_GETBUFFER()
 248                 SELECT occ41 INTO g_imd.tax_type FROM occ_file WHERE occ01 = g_imd.occ01_in
 249                 DISPLAY BY NAME g_imd.tax_type
 250              END IF
 251           AFTER FIELD deliv_date
 252              SELECT sma53 INTO l_sma53 FROM sma_file
 253              LET g_imd.deliv_date = FGL_DIALOG_GETBUFFER()
 254              IF g_imd.deliv_date < l_sma53 THEN
 255                 CALL cl_err("該日期已經結帳，不可出貨","PL0000",1)
 256                 NEXT FIELD CURRENT
 257              END IF
 258        END CONSTRUCT

 ######方法二######
2124       ON ACTION accept
2125          IF l_tc_sds.tc_sds01 IS NULL  THEN
2126             #LET l_tc_sds.tc_sds01 = fgl_dialog_getbuffer()
2127             LET l_tc_sds.tc_sds01 = GET_FLDBUF(tc_sds01)
2128          END IF
2129          IF l_tc_sds.tc_sds02 IS NULL  THEN
2130             #LET l_tc_sds.tc_sds02 = fgl_dialog_getbuffer()
2131             LET l_tc_sds.tc_sds02 = GET_FLDBUF(tc_sds02)
2132          END IF
2133          IF l_tc_sds.tc_sds07 IS NULL  THEN
2134             #LET l_tc_sds.tc_sds07 = fgl_dialog_getbuffer()
2135             LET l_tc_sds.tc_sds07 = GET_FLDBUF(tc_sds07)
2136          END IF
2137          IF l_tc_sds.tc_sds122 IS NULL  THEN
2138             #LET l_tc_sds.tc_sds122 = fgl_dialog_getbuffer()
2139             LET l_tc_sds.tc_sds122 = GET_FLDBUF(tc_sds122)
2140          END IF