Histórico da Página
...
O retorno aguardado por este P.E. deve ser booleanologico, sendo:
.T. (Verdadeiro) – Gravaremos em base para controle que o envio do e-mail ocorreu com sucesso.
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "Totvs.ch" /*/{Protheus.doc} NGFEMBOL Permite envio de e-mail dos títulos personalizados através do Novo Gestor Financeiro e Portal do cliente. @owner TOTVS @version P12 @since 09/06/2022 /*/ User Function NGFEMBOL() Local aAreaSEA As Array Local lRet As Logical Local nRecSEA As Numeric Local lArqGer As Logical Local cNomeArq As Character aAreaSEA := GetArea('SEA') lRet := .T. nRecSEA := PARAMIXB[1][1][1] // RECNO da tabela SEA lArqGer := PARAMIXB[1][1][2] // Se .T. arquivo gerado por nossa aplicação. Se .F. Variavel nome do arquivo estará vazia. cNomeArq := PARAMIXB[2] // Arquivo gerado "\spool\NOMEDOARQUIVO.pdf" DbSelectArea("SEA") SEA->(DbGoTo(nRecSEA)) If !lArqGer cNomeArq := "Personalizado pelo cliente" Endif // Processo de envio e/ou geração do arquivo - Lógica conforme necessidade do cliente // ... // lRet := .F. // ou // lRet := .T. // .... RestArea(aAreaSEA) Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas