Exemplos de geração de TReport em Arquivo

Exemplo 1- Gerando HTML e mandando por e-Mail (job):

//Cria as definições do relatório
oReport := fReportDef()

//Define o e-Mail de destinatário
cPara := "teste@teste.com"

//Define que será executado sem tela (job), o e-Mail destinatário, o tipo 3 (e-Mail) e gera o arquivo sem visualização
oReport:nRemoteType := NO_REMOTE
oReport:cEmail := cPara
oReport:nDevice := 3 //1-Arquivo,2-Impressora,3-email,4-Planilha e 5-Html
oReport:SetPreview(.F.)
oReport:Print(.F., "", .T.)

Exemplo 2- Gerando arquivo XLS (Excel):

//Cria as definições do relatório
oReport := fReportDef()

//Define um nome do arquivo dentro da Protheus Data - pasta 'x_arquivos'
cAnexo := '\x_arquivos\arquivo_' + dToS(dDataBase) + StrTran(Time(), ":", "-") + ".xls"

//Define para o relatório não mostrar na tela, o Device 4 (Planilha), define o arquivo, e define para imprimir
oReport:SetPreview(.F.)
oReport:SetDevice(4)
oReport:cFile := cAnexo
oReport:Print(.F.)

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

– Exemplo 2 criado conforme dica enviada por Eurai do Universo AdvPL;