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