# Prog. Version..: '5.00.05-08.03.11(00009)' #
# Pattern name...: cxmp001.4gl
# Descriptions...: 開啟畫面 輸入QBE 條件，執行指定的作業
# Modify ........: By Uoc.Jack 12/05/08
DATABASE ds
GLOBALS "../../../tiptop/config/top.global"
DEFINE g_sql string
MAIN
OPTIONS
FORM LINE FIRST + 2,
MESSAGE LINE LAST-1,
PROMPT LINE LAST,
INPUT NO WRAP
DEFER INTERRUPT
IF (NOT cl_user()) THEN
EXIT PROGRAM
END IF
WHENEVER ERROR CALL cl_err_msg_log
IF (NOT cl_setup("CXM")) THEN
EXIT PROGRAM
END IF
CALL cl_used(g_prog,g_time,1) RETURNING g_time
LET g_success = 'Y'
WHILE TRUE
CALL p001_tm() # 提供輸入
IF INT_FLAG THEN LET INT_FLAG = 0 EXIT WHILE END IF
IF cl_sure(18,20) THEN # 詢問是否執行
BEGIN WORK
LET g_success = 'Y'
CALL p001_p() # 執行程式
IF g_success = 'Y' THEN
COMMIT WORK # 成功更新
CALL cl_end2(1) RETURNING l_flag
ELSE
ROLLBACK WORK
CALL cl_end2(2) RETURNING l_flag
END IF
ELSE
CONTINUE WHILE
END IF
END WHILE
CALL cl_used(g_prog,g_time,2) RETURNING g_time
END MAIN
FUNCTION p001_tm()
LET p_row = 4 LET p_col = 5
OPEN WINDOW p001_w AT p_row,p_col WITH FORM "cxm/42f/cxmp001"
ATTRIBUTE (STYLE = g_win_style CLIPPED)
CALL cl_ui_init()
CLEAR FORM
CALL cl_opmsg('w')
WHILE TRUE
LET g_action_choice = ''
CONSTRUCT BY NAME tm.wc ON ina01 # ina01 為畫面欄位變數
BEFORE CONSTRUCT
CALL cl_qbe_init()
ON ACTION locale
LET g_change_lang = TRUE
EXIT CONSTRUCT
ON ACTION exit
LET INT_FLAG = 1
EXIT CONSTRUCT
ON IDLE g_idle_seconds
CALL cl_on_idle()
CONTINUE CONSTRUCT
ON ACTION about #MOD-4C0121
CALL cl_about() #MOD-4C0121
ON ACTION help #MOD-4C0121
CALL cl_show_help() #MOD-4C0121
ON ACTION controlg #MOD-4C0121
CALL cl_cmdask() #MOD-4C0121
ON ACTION qbe_select
CALL cl_qbe_select()
END CONSTRUCT
IF INT_FLAG THEN
LET INT_FLAG = 0
CLOSE WINDOW p001_w
EXIT PROGRAM
END IF
END WHILE
END FUNCTION
FUNCTION p001_p()
# 主要需要執行程式段
END FUNCTION
