NGFEMBOL – Permite o envio de e-mail com boletos personalizados.

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro
Idiomas	Português
Função:	FINA710 - Novo Gestor Financeiro Portal do Cliente

02. DESCRIÇÃO

O ponto de entrada NGFEMBOL permite envio de e-mail dos títulos personalizados através do Novo Gestor Financeiro e Portal do cliente.

Este P.E. informa ao cliente qual o registro da tabela SEA (Títulos Enviados ao Banco – Borderô) está posicionado (RECNO). Será enviado também o endereço e nome do boleto gerado por nossa aplicação se existir boleto gerado no sistema, não existindo boleto a variável será enviado vazia.

Todos os arquivos gerados por nossa aplicação serão gravados na pasta SPOOL (RootPath).

A geração do boleto e serviço do envio de e-mail ficará sob responsabilidade do cliente.

O retorno aguardado por este P.E. deve ser booleano, sendo:

.T. (Verdadeiro) – Gravaremos em base para controle que o envio do e-mail ocorreu com sucesso.

.F. (Falso) – Gravaremos em base para controle que houve erro no envio do e-mail.

Todas as tabelas que forem usadas por esse P.E. deverão ter sua área guardada e restaurada ao final da execução.

03. PARÂMETROS

Nome	Tipo	Descrição
PARAMIXB[1][1][1]	Numérico	RECNO da tabela SEA
PARAMIXB[1][1][2]	Logico	Se .T. arquivo gerado por nossa aplicação. Se .F. Arquivo não gerado e variável nome do arquivo estará vazia.
PARAMIXB[2]	Caracter	Arquivo gerado "\spool\NOMEDOARQUIVO.pdf"

04. RETORNO

lRet – Logico

.T. (Verdadeiro) – Gravaremos em base para controle que o envio do e-mail ocorreu com sucesso.

.F. (Falso) – Gravaremos em base para controle que houve erro no envio do e-mail.

05. EXEMPLO DE UTILIZAÇÃO

NGFEMBOL

#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

Árvore de páginas