Tempo aproximado para leitura: 00:02:00 min

Dúvida
Como podemos salvar relatório TReport em um diretório?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus)  – ADVPL – A partir da versão 12.1.17

Solução

Os relatórios somente são impressos respeitando o diretório presente no parâmetro MV_RELT

Abaixo um exemplo que efetua a impressão via Job dentro da pasta SPOOL, pois meu parâmetro MV_RELT está definido esse diretório. 

#include "protheus.ch"
#include "rptdef.ch"

#define EMPRESA "99"
#define FILIAL "01"

//-------------------------------------------------------------------
//Chama a impressão de relatório em outra thread, ficando assim um
//job sem interface
//-------------------------------------------------------------------
function u_CallReport()
  StartJob("u_mySED_Report", getEnvServer(), .T.)
return nil

//-------------------------------------------------------------------
//Função para testes da classe TReport, exportando PDF*/
//-------------------------------------------------------------------
function u_mySED_Report()
  local oReport  as object
  local oSection as object
  local cAlias   as char
  local cTitle   as char
  local cFile    as char

  rpcSetEnv(EMPRESA, FILIAL)

  cAlias := "SED"
  cTitle := "Naturezas"
  cFile := "SED_Nat"
  oReport := TReport():New(cFile, cTitle, /uParam/, {|oReport| oSection:print()} )
  oSection := TRSection():New(oReport, cTitle, cAlias, /aOrder/, .T.)

  oReport:setFile(cFile)
  oReport:nDevice := IMP_PDF
  oReport:printDialog(, cAlias)

  FreeObj(oReport)
  FreeObj(oSection)

  rpcClearEnv()
return nil

Saiba mais
TReport