Histórico da Página

#INCLUDE "Totvstotvs.ch"

/*/{Protheus.doc} User Function NGFBXBOL
Permite o downloadNFG713GRV
    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