FUNCTION i901_out()
DEFINE
l_i LIKE type_file.num5, #No.FUN-680136 SMALLINT
sr RECORD
tc_votea01 LIKE tc_votea_file.tc_votea01, #單據編號
tc_votea02 LIKE tc_votea_file.tc_votea02, #
tc_votea03 LIKE tc_votea_file.tc_votea03, #
tc_voteb02 LIKE tc_voteb_file.tc_voteb02, #
tc_voteb03 LIKE tc_voteb_file.tc_voteb03, #
tc_voteb04 LIKE tc_voteb_file.tc_voteb04 #單據編號
#end No:FUN-550019
END RECORD,
l_name LIKE type_file.chr20, #External(Disk) file name #No.FUN-680136 VARCHAR(20)
l_za05 LIKE za_file.za05, #No.FUN-680136 VARCHAR(40)
l_azi03 LIKE azi_file.azi03, #No.FUN-710091
#MOD-530329
l_wc STRING #TQC-760033 add
IF cl_null(g_votea.tc_votea01) THEN
CALL cl_err('','9057',0) RETURN
END IF
IF cl_null(g_wc) THEN
LET g_wc =" tc_votea01='",g_votea.tc_votea01,"'" #TQC-760033 modify
LET g_wc2=" 1=1 " #TQC-760033 modify
END IF
#MOD-530329(end)
CALL cl_wait()
SELECT zo02 INTO g_company FROM zo_file WHERE zo01 = g_lang
SELECT zz05 INTO g_zz05 FROM zz_file WHERE zz01 = g_prog #TQC-760033 add
#No.FUN-710091 --begin
CALL cl_del_data(l_table)
LET g_sql="INSERT INTO ",g_cr_db_str CLIPPED,l_table CLIPPED, #TQC-780049
" VALUES(?,?,?,?,?,?)"
PREPARE insert_prep FROM g_sql
IF STATUS THEN
CALL cl_err("insert_prep:",STATUS,1) EXIT PROGRAM
END IF
#No.FUN-710091 --end
LET g_sql = "SELECT tc_votea01,tc_votea02,tc_votea03,tc_voteb02,tc_voteb03,tc_voteb04",
" FROM tc_votea_file,tc_voteb_file",
" WHERE tc_voteb01 = tc_votea01 AND ",g_wc CLIPPED,
" AND ",g_wc2 CLIPPED
LET g_sql = g_sql CLIPPED," ORDER BY 1,2" #No.FUN-710091
PREPARE i901_p1 FROM g_sql # RUNTIME 編譯
IF STATUS THEN CALL cl_err('i901_p1',STATUS,0) END IF
#end No:FUN-550019
DECLARE i901_co # CURSOR
CURSOR FOR i901_p1
FOREACH i901_co INTO sr.*
IF SQLCA.sqlcode THEN
CALL cl_err('foreach:',SQLCA.sqlcode,1)
EXIT FOREACH
END IF
EXECUTE insert_prep USING sr.* #No.FUN-710091
END FOREACH
#No.FUN-710091 --begin
#是否列印選擇條件
#將cl_wcchp轉換後的g_wc放到l_wc,不要改變原來g_wc的值,不然第二次執行會有問題
IF g_zz05 = 'Y' THEN
CALL cl_wcchp(g_wc,'tc_votea01,tc_votea02,tc_votea03,tc_voteb02,tc_voteb03,tc_voteb04')
RETURNING l_wc
ELSE
LET l_wc = ' '
END IF
LET g_str = l_wc CLIPPED ,";",g_prog CLIPPED #TQC-760033 #MOD-7C0150
LET g_sql ="SELECT * FROM ",g_cr_db_str CLIPPED,l_table CLIPPED
LET g_prog="cxxi901" #MOD-7C0150
CALL cl_prt_cs3('cxxi901','cxxi901',g_sql,g_str)
# FINISH REPORT i901_rep #No.FUN-710091
CLOSE i901_co
ERROR ""
END FUNCTION
FUNCTION i901_set_entry(p_cmd)
DEFINE p_cmd LIKE type_file.chr1 #No.FUN-680136 VARCHAR(1)
IF p_cmd = 'a' AND ( NOT g_before_input_done ) THEN
CALL cl_set_comp_entry("tc_votea01,tc_votea02,tc_votea03",TRUE)
CALL cl_set_comp_entry("tc_voteaconf",FALSE)
END IF
END FUNCTION
FUNCTION i901_set_no_entry(p_cmd)
DEFINE p_cmd LIKE type_file.chr1 #No.FUN-680136 VARCHAR(1)
IF p_cmd = 'u' AND g_chkey = 'N' AND ( NOT g_before_input_done ) THEN
CALL cl_set_comp_entry("tc_votea01,tc_voteaconf",FALSE)
CALL cl_set_comp_entry("tc_votea02,tc_votea03,tc_voteb02,tc_voteb03,tc_voteb04,tc_votebacti",TRUE) #No.FUN-610018
END IF
END FUNCTION
FUNCTION i901_set_entry_b(p_cmd)
DEFINE p_cmd LIKE type_file.chr1 #No.FUN-680136 VARCHAR(1)
CALL cl_set_comp_entry("tc_voteb02,tc_voteb03,tc_voteb04",TRUE) #No.FUN-610018
END FUNCTION
FUNCTION i901_set_no_entry_b(p_cmd)
DEFINE p_cmd LIKE type_file.chr1 #No.FUN-680136 VARCHAR(1)
CALL cl_set_comp_entry("tc_votebuser,tc_votebmodu,tc_votebdate,tc_voteaconf",FALSE) #No.FUN-610018
END FUNCTION
全站熱搜
留言列表
站台介紹 (1)