Trazer como padrão Planilha e Local numa impressão em TReport | Ti Responde 0240

No vídeo de hoje, vamos demonstrar em como configurar para os relatórios em TReport já trazer como Excel e impressão como Local.

A dúvida de hoje, nos perguntaram, como poderíamos criar uma customização que ao abrir um TReport, na tela de configurações do relatório, já trazer a opção pré definida como Planilha e como Local.

 

Pensando nisso, montamos um exemplo, onde vai ser demonstrado como usar a ChkExec e alterar a variável pública __aImpress.

 

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"
#Include "RPTDef.ch"

/*/{Protheus.doc} ChkExec
Ponto de Entrada ao acionar alguma tela do Protheus via menu
@type user function
@author Atilio
@since 10/02/2026
@obs Foi usado para poder manipular a tela do TReport antes de exibir
@see https://tdn.totvs.com/display/public/framework/CHKEXEC+-+Dispara+ponto+de+entrada
/*/

User Function ChkExec()
    Local aArea     := FWGetArea()
    Local lContinua := .T.
    Local cFuncao	:= Upper(ParamIXB)

    //Se a quarta posição for uma letra R, exemplo, MatR010
    If SubStr(cFuncao, 4, 1) == "R"

        //Altera o dispositivo para Excel
        __aImpress[1] := IMP_EXCEL

        //Define como impressão local
        __aImpress[3] := AMB_CLIENT
    EndIf

    FWRestArea(aArea)
Return lContinua

Bom pessoal, por hoje é só.

 

Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

Deixe uma resposta

Terminal de Informação