Histórico da Página
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
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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
|