Histórico da Página

#INCLUDE "Totvs.ch"

/*/{Protheus.doc} NGFBXBOL
Permite o download do boleto em PDF dos boletos personalizados através do Novo Gestor Financeiro e Portal do cliente.

@owner      TOTVS
@version    P12
@since      09/06/2022
/*/

User Function NGFBXBOL()

	Local aAreaSEA  As Array
	Local aRet		As Array
	Local nRecSEA 	As Numeric
	Local lArqGer	As Logical
	Local cNomeArq	As Character
	Local cNomeBx	As Character   

	aAreaSEA	:= GetArea('SEA')

	aRet		:= {}
	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"
	cNomeBx		:= PARAMIXB[3]       // Chave do título (Prefixo + Numero + Parcela + Tipo.pdf"   DbSelectArea("SEA")

	SEA->(DbGoTo(nRecSEA))

	If !lArqGer
		cNomeArq := "Personalizado pelo cliente"
	Endif

	// Processo de download do arquivo - Lógica conforme necessidade do cliente

	// ...
	// cNomeArq := "\spool\NOMEDOARQUIVO.PDF" - Caminho e nome do arquivo que será baixado.

	// cNomeBx  := "NOMEDOARQUIVO" - Nome para o arquivo personalizado pelo cliente.
	// ....

	Aadd(aRet, {cNomeArq, cNomeBx} )

	RestArea(aAreaSEA)

Return aRet