Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Francisco do Carmo de Oliveira

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
IdiomasPortuguê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.

...

     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]LogicoSe .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

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA060QRY
linenumberstrue
/*/{Protheus.doc} FA060QryNGFEMBOL
Permite adicionarenvio novade condiçãoe-mail SQLdos natítulos seleçãopersonalizados deatravés títulosdo aNovo receberGestor para Transferências (FINA060) Financeiro e BorderôPortal de Recebimentos com Impostos (FINA061)do cliente.
 
@owner      TOTVS
@version    P12
@since      2509/1106/20212022
/*/

User Function FA060QryNGFEMBOL()

	Local aAreaSEA  := GetArea('SEA')
	Local cAgencia  As Character
    Local cBanco    As Character
    Local cConta    As Character
    Local cCondicao As Character

    cAgencia    := paramIXB[1]
    cConta      := paramIXB[2]
    cBanco      := paramIXB[3]

    //TODO lRet		:= .T.
	Local nRecSEA 	:= PARAMIXB[1][1][1] // RECNO da tabela SEA
	Local lArqGer	:= PARAMIXB[1][1][2] // Se .T. arquivo gerado por nossa aplicação. Se .F. Variável nome do arquivo estará vazia.
	Local 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  cCondicao := " E1_VALOR > 1000 AND "
    cCondicao += " E1_NATUREZ = '001' "  

Return cCondicao.F.
	// ou 
	// lRet := .T.
	// ....

	RestArea(aAreaSEA)

Return lRet