Base de Conhecimento

Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - ADVPL - Enviar informe TReport por correo electrónico

Duda
¿Es posible enviar un informe por correo electrónico utilizando la clase TReport( )?

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - ADVPL - A partir de la versión 12

Solución
No, solo es posible enviar el informe por correo electrónico:

// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch"
#Include "REPORT.ch"
#Include "TBICONN.CH"

// SIMULA A EXECUÇÃO VIA JOB
User Function T153START()
StartJob("U_T153RPTMAIL", GetEnvServer(), .T.)
Return (NIL)

// FUNÇÃO PRINCIPAL
User Function T153RPTMAIL()
    Local oReport := NIL // OBJETO TREPORT
    Local oBreak := NIL // QUEBRA DE PÁGINA
    Local oSA1 := NIL // SEÇÃO SA1

    RPCSetEnv("99", "01", /*cUserId*/, /*cPasswd*/ , "FIN") // PREPARAÇÃO DE AMBIENTE (COMENTAR SE VIA GUI)
        // INSTANCIAÇÃO DE VARIÁVEL OREPORT
        DEFINE REPORT oReport NAME "REPORT1" TITLE "Relatorio de Clientes" PARAMETER "REPORT" ACTION {|oReport| PrintReport(oReport)}

        // DEFINIÇÃO DA SEÇÃO OSA1
        DEFINE SECTION oSA1 OF oReport TITLE "Cliente" TABLES "SA1"
            DEFINE CELL NAME "A1_COD" OF oSA1 ALIAS "SA1"
            DEFINE CELL NAME "A1_NOME" OF oSA1 ALIAS "SA1"
            DEFINE CELL NAME "A1_VEND" OF oSA1 ALIAS "SA1"
        DEFINE BREAK oBreak OF oSA1 WHEN oSA1:Cell("A1_VEND")

        DEFINE FUNCTION FROM oSA1:Cell("A1_COD") FUNCTION COUNT BREAK oBreak

        oReport:nRemoteType := NO_REMOTE // FORMA DE GERAÇÃO DO RELATÓRIO
        oReport:nDevice := 8 // ENVIO DE .PDF VIA E-MAIL
        oReport:cEmail := "SEU EMAIL AQUI" // DESTINATÁRIO

        oReport:SetReportPortal("cRptPortal") // DEFINE O NOME DO RELATÓRIO
        oReport:Print()
    RPCClearEnv() // ENCERRRA AMBIENTE (COMENTAR SE VIA GUI)
Return (NIL)

// DADOS DE EXIBIÇÃO
Static Function PrintReport(oReport)
    Local cAlias := "" // ALIAS TEMPORÁRIO

    // SE AMBIENTE IGUAL A TOPCONNECT
    #IFDEF TOP
        cAlias := GetNextAlias() // RECUPERA O PRÓXIMO ALIAS TEMPORÁRIO DO SISTEMA
        MakeSQLExp("REPORT")

        // INICIA QUERY PARA RETORNO DE DADOS
        BEGIN REPORT QUERY oReport:Section(1)
            BEGINSQL ALIAS cAlias
                SELECT A1_COD, A1_NOME, A1_VEND
                FROM %Table:SA1% SA1
                WHERE A1_FILIAL = %XFilial:SA1% AND SA1.%NotDel%
                ORDER BY A1_FILIAL, A1_VEND
            ENDSQL
        END REPORT QUERY oReport:Section(1)

        oReport:Section(1):Print(.F.)
    #ENDIF
Return (NIL)
¿Fue útil este artículo?
Usuarios a los que les pareció útil: 0 de 0

0 Comentarios

Inicie sesión para dejar un comentario.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Rellene los campos siguientes para iniciar el chat:

Chat _