1. 如果說 A 程式 呼叫 B 程式 完後，要再接續 A 程式 例如 接著執行 xxx_b_fill() 更新畫面資料，則要使用cl_cmdrun_wait() , 如使用cl_cmdrun() 則畫面的更新並不會成功。
2. 此外執行 cl_cmdrun_wait() , Client 端 Genero 版本少要更新到 2.32.17 以後 才行。
2. 此外執行 cl_cmdrun_wait() , Client 端 Genero 版本少要更新到 2.32.17 以後 才行。
- 8月 29 週五 201414:36
cl_cmdrun_wait() 與 cl_cmdrun() 的 差別
- 9月 04 週四 201413:59
加欄位 如何判斷需要 Rebuild 哪只支程式 ?
例如 ima_file 料件檔 增加了 二個欄位，可能除了在 AIM 模組下，在其他的模組 下 也有 使用到 ima_file.* ,
可以 到可能模組中執行 以下指令進行確認 (不過首先要知道可能存在的模組).
可以 到可能模組中執行 以下指令進行確認 (不過首先要知道可能存在的模組).
- 8月 12 週二 201408:58
Update / Insert 多筆資料，可於畫面下方動態顯示執行的進度
參考範例 :
FOREACH r001_curs1 INTO l_ima01
LET l_i = l_i + 1 # Count
LET la_ima[l_i].ima01 = l_ima01 # save var
END FOREACH
FOR i = 1 TO l_i
LET g_doc.column1 = "ima01"
LET g_doc.value1 = la_ima[i].ima01
FOREACH r001_curs1 INTO l_ima01
LET l_i = l_i + 1 # Count
LET la_ima[l_i].ima01 = l_ima01 # save var
END FOREACH
FOR i = 1 TO l_i
LET g_doc.column1 = "ima01"
LET g_doc.value1 = la_ima[i].ima01
- 2月 25 週二 201411:12
Oracle 語法 to_date 與 last_day 的應用
遇到月份的處理，可能會想到用 to_char(xxx,'YYYYMM') , 不過使用上述的前提，月份需要是二位數。如果不想要判斷長度小於2補零，
還有一個方法，比如說要取得 2013-01 ~ 2013-12 之間的資料 可以使用 to_date + last_day 轉換變數來完成。
shb02 >= to_date('20131','yyyymm') and shb02 <= last_day(to_date('201312','yyyymm'))
還有一個方法，比如說要取得 2013-01 ~ 2013-12 之間的資料 可以使用 to_date + last_day 轉換變數來完成。
shb02 >= to_date('20131','yyyymm') and shb02 <= last_day(to_date('201312','yyyymm'))
- 1月 22 週三 201411:32
如何將投影片每頁四張 雙面列印
如何將投影片每頁四張 雙面列印
1.設定投影片編號
2.選擇FinePrint
3.列印後 Layout 選 4up (左上,左下,右上,右下）
4.Print 選 CutePDF Writer
5.Open PDF > Print
6.印表機選 C3370 > Properties>
雙面列印>雙面列印,短邊裝訂;色彩模式：黑白
7.Page Sizing ->Size->Actual size
1.設定投影片編號
2.選擇FinePrint
3.列印後 Layout 選 4up (左上,左下,右上,右下）
4.Print 選 CutePDF Writer
5.Open PDF > Print
6.印表機選 C3370 > Properties>
雙面列印>雙面列印,短邊裝訂;色彩模式：黑白
7.Page Sizing ->Size->Actual size
- 1月 08 週三 201409:49
幾種取得數值的方法
# CONSTRUCT+ SUM --> 取得特定某些單據上金額的總和
LET g_sql + DECLARE xxx CURSOR FROM g_sql + OPEN + FETCH + CLOSE
EX: LET g_sql = "SELECT sum(tc_fad008) FROM tc_fad_file,tc_fac_file ",
"WHERE tc_fac001 = tc_fad001 AND ",g_wc
DECLARE p400_cur_s_fad008 SCROLL CURSOR FROM g_sql
OPEN p400_cur_s_fad008
FETCH p400_cur_s_fad008 INTO g_sum
CLOSE p400_cur_s_fad008
LET g_sql + DECLARE xxx CURSOR FROM g_sql + OPEN + FETCH + CLOSE
EX: LET g_sql = "SELECT sum(tc_fad008) FROM tc_fad_file,tc_fac_file ",
"WHERE tc_fac001 = tc_fad001 AND ",g_wc
DECLARE p400_cur_s_fad008 SCROLL CURSOR FROM g_sql
OPEN p400_cur_s_fad008
FETCH p400_cur_s_fad008 INTO g_sum
CLOSE p400_cur_s_fad008
- 1月 06 週一 201417:19
給予 CONSTRUCT 輸入預設值
1. 一般如果是 INPUT BY NAME 可在之前 或 BEFORE INPUT 中，利用 LET tm.xxx = '1' 來給預設值。
2. 但如果是 CONSTRUCT BY NAME g_wc ON ..... , 則在 BEFORE CONSTRUCT 中，利用 DISPLAY xxx TO 欄位名稱 來給。
2. 但如果是 CONSTRUCT BY NAME g_wc ON ..... , 則在 BEFORE CONSTRUCT 中，利用 DISPLAY xxx TO 欄位名稱 來給。
- 1月 03 週五 201416:33
將數量跟文字組成字串顯示的技巧
1. 如果不需要顯示小數點. 定義數量變數的時候, 可 like type_file.num5
2. 利用 USING "<<<<<<<" 方式將數量變數與字串相連
EX :
LET g_img[g_cnt].ta_qcs03 = g_img[g_cnt].ta_qcs03 CLIPPED,' (',l_qcs01 USING"<<<<<" CLIPPED,'EA)'
2. 利用 USING "<<<<<<<" 方式將數量變數與字串相連
EX :
LET g_img[g_cnt].ta_qcs03 = g_img[g_cnt].ta_qcs03 CLIPPED,' (',l_qcs01 USING"<<<<<" CLIPPED,'EA)'
- 12月 11 週三 201315:15
解決 cl_prt_temptable 執行出現 -1 錯誤 (非 typing error)
解決方法 :
將 ta_feb015.feb_file.ta_feb015 ==> ta_feb015.type_file.chr20
- 3月 27 週三 201310:29
A程式可否使用B程式的報表?
如果說 因為一些小的改變想要把原本的程式(母程式) 複製一份出來修改，重新命名一個新的程式(子程式)，但是程式使用的報表都是跟原程式一樣。
作法是先將 g_prog 改為原先的程式 (母程式). CALL cl_prt_cs3 後，再改為 新的程式(子程式).
如:
Let g_prog = 'cimr161'
CALL cl_prt_cs3('cimr161',g_rpt1,l_sql,g_str)
Let g_prog = 'cimr061'
作法是先將 g_prog 改為原先的程式 (母程式). CALL cl_prt_cs3 後，再改為 新的程式(子程式).
如:
Let g_prog = 'cimr161'
CALL cl_prt_cs3('cimr161',g_rpt1,l_sql,g_str)
Let g_prog = 'cimr061'
