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 |
02. DESCRIÇÃO
O ponto de entrada NGF713GRV Realiza permite realizar gravações complementares durante a execução do job de transmissão dos boletos registrados online (API), na chamada do PE as tabelas envolvidas no processo estarão posicionadas (SE1, SEA, SA6, SEE e etc..). ) Caso haja a necessidade de desposicionar alguma tabela mexer no posicionamento das tabelas, lembre-se de utilizar o FwGetArea e FwRestArea, garantindo assim a integridade do job
03. PARÂMETROS
...
Nome
...
Tipo
...
Descrição
...
PARAMIXB[1][1][1]
...
Numérico
...
RECNO da tabela SEA
...
.
...
...
Nome do arquivo gerado por nossa aplicação ou chave do título "Prefixo + Numero + Parcela + Tipo.pdf"
04. RETORNO
aArray – Array
cNomeArq := "\spool\NOMEDOARQUIVO.PDF" - Caminho e nome do arquivo que será baixado.
cNomeBx := "NOMEDOARQUIVO.PDF" - Nome para o arquivo personalizado pelo cliente.
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "Totvstotvs.ch" /*/{Protheus.doc} NGFBXBOL Permite o downloadUser Function NFG713GRV Realiza gravações complementares durante a execução do boletojob emde PDFtransmissão 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 registrados online (API), na chamada do PE as tabelas envolvidas no processo estarão posicionadas (SE1, SEA, SA6, SEE e etc...) Caso haja a necessidade de mexer no posicionamento das tabelas lembre-se de utilizar o FwGetArea e FwRestArea, garantindo assim a integridade do job @type Function @author Totvs @since 26/07/2023 @version 1.0 @see https://tdn.totvs.com/pages/viewpage.action?pageId=780009506 /*/ User Function NFG713GRV() Local aArea := FwGetArea() If SEA->EA_TRANSF == 'F' //Boleto não foi transmitido /* Realizar gravações complementares */ RecLock("SE1", .F.) SE1->E1_XPTO = "Boleto não foi transmitido" SE1->(MsUnLock()) Else /* Realizar gravações complementares */ RecLock("SE1", .F.) SE1->E1_XPTO = "Boleto transmitido" SE1->(MsUnLock()) Endif FwRestArea(aArea) Return |