tiptop crystal report 操作说明.pptVIP

Crystal Report本教材以TIPTOP GP 5.0版為說明標準; CR報表製作流程 CR報表類型(簡單/複雜) CR報表樣板設計步驟 製作報表格式 CR報表重要功能用法 ;CR報表製作;程式畫面; ; ;tm(); LET g_pdate = ARG_VAL(1) #Print date LET g_towhom = ARG_VAL(2) #To whom LET g_rlang = ARG_VAL(3) #Language type LET g_bgjob = ARG_VAL(4) #Background job LET g_prtway = ARG_VAL(5) #Print way LET g_copies = ARG_VAL(6) #Report copies LET tm.wc = ARG_VAL(7) LET tm.s = ARG_VAL(8) LET tm.t = ARG_VAL(9) LET tm.u = ARG_VAL(10) LET tm.a = ARG_VAL(11) LET tm.b = ARG_VAL(12) LET tm.c = ARG_VAL(13) LET g_rep_user = ARG_VAL(14) #使用者 LET g_rep_clas = ARG_VAL(15) #權限類別 LET g_template = ARG_VAL(16) #樣板 ; IF (NOT cl_user()) THEN EXIT PROGRAM END IF WHENEVER ERROR CALL cl_err_msg_log IF (NOT cl_setup(AXM)) THEN EXIT PROGRAM END IF CALL cl_used(g_prog,g_time,1) RETURNING g_time IF cl_null(g_bgjob) OR g_bgjob = N THEN CALL r410_tm(0,0) #使用者輸入資料 ELSE CALL r410() #直接run r410()準備列印資料 END IF CALL cl_used(g_prog,g_time,2) RETURNING g_time;分為construct跟input部分 延後時間執行作業(Background Job設定) ; CONSTRUCT BY NAME tm.wc ON oea01,oea02,oea03,oea04,oea14,oea15,oea23, oea12,oeahold END CONSTRUCT IF g_action_choice = locale THEN LET g_action_choice = CALL cl_dynamic_locale() CONTINUE WHILE END IF INPUT BY NAME tm2.s1,tm2.s2,tm2.s3,tm2.t1,tm2.t2,tm2.t3, tm2.u1,tm2.u2,tm2.u3,tm.a,tm.b,tm.c,tm.more WITHOUT DEFAULTS END INPUT;AFTER FIELD more 　　IF tm.more = ‘Y’ THEN CALL cl_repcon(0,0,g_pdate,g_towhom, g_rlang,g_bgjob,g_time,g_prtway,g_copies) RETURNING g_pdate,g_towhom, g_rlang,g_bgjob,g_time,g_prtway,g_copies END IF; IF g_bgjob = Y THEN SELECT zz08 INTO l_cmd FROM zz_file WHERE zz01=axmr410 IF SQLCA.sqlcode OR l_cmd IS NULL THEN CAL