#add-point:自定義模組變數-客製(Module Variable) name="global.variable_customerization"TYPE type_g_input RECORDrefresh        LIKE type_t.num10,autoRefresh     LIKE type_t.chr1
END RECORDDEFINE    g_input          type_g_input  #INPUT條件DEFINE    g_seconds        LIKE type_t.num10
DEFINE    g_time1          DATETIME YEAR TO SECOND
DEFINE    g_time2          STRING
DEFINE    g_time3          STRING
DEFINE    l_hhmmss         STRING
DEFINE    g_total          LIKE type_t.num10
#end add-point

   #add-point:畫面資料初始化 name="init.init"LET g_input.refresh = 1LET g_input.autoRefresh = 'Y'LET g_total = g_input.refresh * 60 LET g_seconds = 0#end add-point

      DIALOG ATTRIBUTES(UNBUFFERED,FIELD ORDER FORM)#add-point:input段落 name="ui_dialog.input"INPUT g_input.refresh,g_input.autoRefresh FROM refresh,autoRefresh ATTRIBUTE(WITHOUT DEFAULTS)BEFORE INPUTON idle  5if g_input.autoRefresh = "Y" thenIF g_time1 IS NULL THENLET g_time1 = cl_get_current()END IF#去掉“-”，“：”和空格，得到2个数字做大小比较，不要求得到准确的秒数差LET g_time2 = g_time1LET g_time2 = s_chr_minus(g_time2,'-',0)LET g_time2 = s_chr_minus(g_time2,':',0)LET g_time2 = s_chr_atrim(g_time2)LET l_hhmmss = g_time2.substring(9,10)*3600+g_time2.substring(11,12)*60+g_time2.substring(13,14)LET g_time2 = g_time2.substring(1,8),l_hhmmssLET g_time3 = cl_get_current()LET g_time3 = s_chr_minus(g_time3,'-',0)LET g_time3 = s_chr_minus(g_time3,':',0)LET g_time3 = s_chr_atrim(g_time3)LET l_hhmmss = g_time3.substring(9,10)*3600+g_time3.substring(11,12)*60+g_time3.substring(13,14)LET g_time3 = g_time3.substring(1,8),l_hhmmss#DISPLAY 'g_time2 =',g_time2         #预埋调试用，可放开看时间调试#DISPLAY 'g_time3 =',g_time3#display '3-2 =',g_time3 - g_time2    #这个2是容许误差2秒，2秒内的误差都不会触发重计倒计时，这是因为服务器有时候会很卡、停顿，尤其是网络的延迟，这些都会造成误差，如果特别卡，可以适当放大秒数误差，但是会造成必须操作X秒以上才会触发重计的现象IF g_time3 - g_time2 < 2 THENIF g_seconds >= g_total THEN    #自动刷新设为60秒CALL cxmq100_b_fill()LET g_seconds = 0END IFLET g_time1 = cl_get_current()LET g_seconds = g_seconds + 1#DISPLAY g_seconds ELSE #DISPLAY 'cl_get_current()           =',cl_get_current()    预埋调试用，可放开看时间调试#DISPLAY 'g_time1                    =',g_time1#DISPLAY 'cl_get_current() - g_time1 =',cl_get_current() - g_time1         #LET g_seconds = 0LET g_time1 = cl_get_current()            END IFend ifAFTER FIELD refreshIF NOT cl_null(g_input.refresh) THENLet g_total = g_input.refresh * 60 END IF    END INPUT#end add-point

         #主選單用ACTION&include "main_menu_exit_dialog.4gl"&include "relating_action.4gl"#交談指令共用ACTION&include "common_action.4gl"#add-point:查詢方案相關ACTION設定前 name="ui_dialog.set_qbe_action_before"ON ACTION modify_detailLET g_action_choice="modify_detail"IF cl_auth_chk_act("modify_detail") THENIF g_detail_idx>=1 THENCALL cxmq100_qrystr(g_xmabuc_d[g_detail_idx].xmabucdocno) END IFEND IF#end add-point

PRIVATE FUNCTION cxmq100_qrystr(p_docno)DEFINE p_docno LIKE xmdk_t.xmdkdocno#DEFINE l_slip     LIKE oobal_t.oobal002#DEFINE l_prog     LIKE oobx_t.oobx004#DEFINE l_success  LIKE type_t.num5DEFINE ls_js      STRINGDEFINE la_param   RECORDprog       STRING,actionid   STRING,background LIKE type_t.chr1,param      DYNAMIC ARRAY OF STRINGEND RECORD#抓取單據別{LET l_slip = ''LET l_prog = ''IF NOT cl_null(p_docno) THENCALL s_aooi200_get_slip(p_docno) RETURNING l_success,l_slipIF NOT cl_null(l_slip) THEN#抓取程式名稱SELECT oobx004 INTO l_progFROM oobx_tWHERE oobxent = g_enterpriseAND oobx001 = l_slipEND IFIF NOT cl_null(l_prog) THENINITIALIZE la_param.* TO NULLLET la_param.prog     = l_progLET la_param.param[1] = p_docnoLET ls_js = util.JSON.stringify(la_param)CALL cl_cmdrun(ls_js)END IFEND IF}IF NOT cl_null(p_docno) THENINITIALIZE la_param.* TO NULLLET la_param.prog     = "cxmt631"LET la_param.param[1] = p_docnoLET ls_js = util.JSON.stringify(la_param)CALL cl_cmdrun(ls_js)END IF
END FUNCTION