TIPTOPgp版单sql报表_cs1

IF l_newno IS NOT NULL THEN

SELECT count(*) INTO g_cnt FROM azb_file WHERE azb01 = l_newno IF g_cnt > 0 THEN

CALL cl_err(l_newno,-239,0) NEXT FIELD azb01 END IF

SELECT gen01 FROM gen_file

WHERE gen01= l_newno IF SQLCA.sqlcode THEN

DISPLAY BY NAME g_azb.azb01 LET l_newno = NULL NEXT FIELD azb01 END IF END IF

ON ACTION controlp # 沿用所有栏位 IF INFIELD(azb01) THEN CALL cl_init_qry_var() LET g_qryparam.form = \ LET g_qryparam.default1 = g_azb.azb01 CALL cl_create_qry() RETURNING l_newno # CALL FGL_DIALOG_SETBUFFER( l_newno )

#DISPLAY BY NAME l_newno #TQC-640187 mark DISPLAY l_newno TO azb01 #TQC-640187 SELECT gen01 FROM gen_file

WHERE gen01= l_newno IF SQLCA.sqlcode THEN

DISPLAY BY NAME g_azb.azb01 LET l_newno = NULL NEXT FIELD azb01 END IF

NEXT FIELD azb01 END IF

ON IDLE g_idle_seconds CALL cl_on_idle() CONTINUE INPUT

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

END INPUT IF INT_FLAG THEN LET INT_FLAG = 0

DISPLAY BY NAME g_azb.azb01 RETURN END IF DROP TABLE x

SELECT * FROM azb_file

WHERE ROWID=g_azb_rowid INTO TEMP x UPDATE x

SET azb01=l_newno, #资料键值 azbacti='Y', #资料有效码 azbuser=g_user, #资料所有者 azbgrup=g_grup, #资料所有者所属群 azbmodu=NULL, #资料修改日期 azbdate=g_today #资料建立日期 INSERT INTO azb_file SELECT * FROM x IF SQLCA.sqlcode THEN

# CALL cl_err(g_azb.azb01,SQLCA.sqlcode,0) #No:FUN-660131

CALL cl_err3(\ #No:FUN-660131 ELSE

MESSAGE 'ROW(',l_newno,') O.K' LET l_oldno = g_azb.azb01 LET g_azb.azb01 = l_newno

SELECT ROWID,azb_file.* INTO g_azb_rowid,g_azb.* FROM azb_file WHERE azb01 = l_newno CALL i010_u()

SELECT ROWID,azb_file.* INTO g_azb_rowid,g_azb.* FROM azb_file WHERE azb01 = l_oldno END IF

LET g_azb.azb01 = l_oldno CALL i010_show() END FUNCTION

FUNCTION i010_out() DEFINE

l_i LIKE type_file.num5, #No.FUN-680102 SMALLINT l_azb RECORD LIKE azb_file.*, l_gen RECORD LIKE gen_file.*,

l_name LIKE type_file.chr20, # External(Disk) file name #No.FUN-680102 VARCHAR(20)

#cr报表，以下的数组将不再发挥作用。 sr RECORD

azb01 LIKE azb_file.azb01, azb02 LIKE azb_file.azb02, azb06 LIKE azb_file.azb06, gen02 LIKE gen_file.gen02, gen03 LIKE gen_file.gen03, gen04 LIKE gen_file.gen04, gem02 LIKE gem_file.gem02 END RECORD,

l_za05 LIKE za_file.za05 #No.FUN-680102 VARCHAR(40)

#BugNO:4137

IF g_wc IS NULL THEN LET g_wc=\ #改成印当下的那一笔资料内容

CALL cl_wait() #cr报表修改处

#SELECT zo02 INTO g_company FROM zo_file WHERE zo01 = g_lang #cr报表，此处请务必检查语句是否正确

LET g_sql=\ \

\ \ AND \

#BEGIN--No.070424 cr报表修改处

PREPARE i010_p1 FROM g_sql # RUNTIME 编译 # DECLARE i010_curo # SCROLL CURSOR # CURSOR FOR i010_p1 #

# CALL cl_outnam('aooi010') RETURNING l_name # START REPORT i010_rep TO l_name

# FOREACH i010_curo INTO sr.* # IF SQLCA.sqlcode THEN

# CALL cl_err('foreach:',SQLCA.sqlcode,1)

# EXIT FOREACH # END IF #

# OUTPUT TO REPORT i010_rep(sr.*) # END FOREACH #

# FINISH REPORT i010_rep #

# CLOSE i010_curo

# ERROR \

# #------------ MOD-530117--------------------------- # #CALL cl_prt(l_name,'g_prtway','g_copies',g_len) # CALL cl_prt(l_name,g_prtway,g_copies,g_len) # #-------END----------------------------------

#cr报表修改处

LET g_str ='' #组动态参数

LET g_str = g_wc #把查询条件赋值给参数p1 CALL cl_prt_cs1('axmr701','axmr701_1',g_sql,g_str) #调用接口参数 #END--No.070424 cr报表修改处 END FUNCTION

#将原有的report段mark或删除！ #BEGIN--cr报表修改处 #REPORT i010_rep(sr) # DEFINE

# l_trailer_sw LIKE type_file.chr1, #No:FUN-680102 VARCHAR(1) # sr RECORD

# azb01 LIKE azb_file.azb01, # azb02 LIKE azb_file.azb02, # azb06 LIKE azb_file.azb06, # gen02 LIKE gen_file.gen02, # gen03 LIKE gen_file.gen03, # gen04 LIKE gen_file.gen04, # gem02 LIKE gem_file.gem02 # END RECORD # OUTPUT

# TOP MARGIN g_top_margin # LEFT MARGIN g_left_margin # BOTTOM MARGIN g_bottom_margin

# PAGE LENGTH g_page_line #No:MOD-580242 #

# ORDER BY sr.azb01