MAIN
CALL SETFINISHREPORTHANDLER("TST_HANDL") ## <<< === Instala o Handler
CALL SETSTARTREPORTHANDLER("TST_HANDL_S")
START REPORT R_NET TO "c:\\teste.txt"
OUTPUT TO REPORT R_NET()
FINISH REPORT R_NET
CALL SETSTARTREPORTHANDLER()
CALL SETFINISHREPORTHANDLER() ## <<< === Desinstala o Handler
START REPORT R_NET TO "c:\\teste.txt"
OUTPUT TO REPORT R_NET()
FINISH REPORT R_NET
END MAIN
###############################
REPORT R_NET()
FORMAT
ON EVERY ROW
PRINT "HELLOW"
PRINT "WORLD!"
END REPORT
FUNCTION TST_HANDL( cRepName, cRepFile, cTopOfPage, nPageLength, nTopMargin, nBottomMargin, nLeftMargin, nRightMargin, nNumPages )
DEFINE cOutPut VARCHAR(1024)
DEFINE cRepName VARCHAR(255)
DEFINE cRepFile VARCHAR(255)
DEFINE cTopOfPage VARCHAR(255)
DEFINE nPageLength INTEGER
DEFINE nTopMargin INTEGER
DEFINE nBottomMargin INTEGER
DEFINE nLeftMargin INTEGER
DEFINE nRightMargin INTEGER
DEFINE nNumPages INTEGER
LET cOutPut = "\nRelatorio : ", cRepName CLIPPED,
"\nArquivo : ", cRepFile CLIPPED,
"\nTopOfPage : ", cTopOfPage CLIPPED,
"\nPageLength: ", nPageLength,
"\nTop Margin: ", nTopMargin,
"\nBottom Margin: ", nBottomMargin,
"\nLeft Margin: ", nLeftMargin,
"\nRight Margin: ", nRightMargin,
"\nNumero de Paginas impressas: ", nNumPages
CALL CONOUT( cOutPut )
END FUNCTION
FUNCTION TST_HANDL_S( cRepName, cRepFile )
DEFINE cOutPut VARCHAR(1024)
DEFINE cRepName VARCHAR(255)
DEFINE cRepFile VARCHAR(255)
LET cOutPut = "\nRelatorio : ", cRepName CLIPPED,
"\nArquivo : ", cRepFile CLIPPED
CALL CONOUT( cOutPut )
END FUNCTION
|