Histórico da Página

#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