TOTVSTEC

Árvore de páginas

Permita indicar uma função a ser invocada imediatamente antes de um relatório (START REPORT) 4GL.

Sintaxe

CALL SETFINISHREPORTHANDLER(func)

Retorno

Nome

Tipo

Descrição

func

Texto

Informa qual função será iniciada imediatamente antes do relatório.

Observações

  • A função indicada, ao ser declarada, precisa ter obrigatoriamente dois parametros, indicando nome do REPORT e destino do REPORT.
  • Função disponível a partir da build 7.00.131227A.

Exemplos

Exemplo 1
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
  • Sem rótulos