Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas