Histórico da Página

#Include#INCLUDE "totvsProtheus.ch"


/*/{Protheus.doc} User Function NFG713GRVPCREPORTS
    Utilizado para Realizacriação do gravaçõesmenu complementaresde duranterelatorios ano execuçãoPortal 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 mexer no posicionamento das tabelas lembre-se de utilizar
    o FwGetArea e FwRestArea, garantindo assim a integridade do job Cliente - FIN.

    O P.E deve retornar um array contendo os objetos para criação do menu,
    sendo a primeira posição o título do relatório, a segunda posição a função
    que será executada (Deve retornar o caminho para download do arquivo) e 
    a ultima posição (opcional) um icone conforme a lista: https://po-ui.io/guides/icons.

    @type  Function
    @author Totvs
    @since 2615/0709/2023
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=780009506789976160
 /*/
User Function NFG713GRVPCREPORTS()
	Local aRelatorios := {} as Array
    Local aArea aClientes := PARAMIXB[1] as Array
    Local cUsuario := PARAMIXB[2] as Character
    Local nContador := 1 as Numeric
    
    If cUsuario <> "USER.BLOQ"
        For nContador := FwGetArea1 to Len(aClientes)

            If SEA->EA_TRANSF == 'F' //Boleto não foi transmitidoaClientes[nContador]['codigo'] == '000002'
                AADD(aRelatorios, {'RELATORIO 01', 'PCRFUN1'}) //Nome da função sem U_
                AADD(aRelatorios, {'RELATORIO 02', 'PCRFUN2', "po-icon po-icon-credit-payment"}) //Nome da função sem U_
                Exit
            EndIf
        Next
    EndIf

Return aRelatorios

/*/{Protheus.doc} User Function PCRFUN1
    Retorna o caminho do arquivo gerado para download no Portal do Cliente - FIN.

    @type Function
   Realizar gravações@author complementaresTotvs
    @since 15/09/2023
    @version 1.0
/*/
User Function PCRFUN1()
    Local cCaminho := RecLock("SE1", .F.)
" as Character
    Local nContador := 1 as Numeric
    Local aClientes := PARAMIXB[1] as Array
    Local SE1->E1_XPTOcUsuario := "Boleto não foi transmitidoPARAMIXB[2] as Character

    If cUsuario <> "USER.BLOQ"
        SE1->(MsUnLock())
For nContador := 1 to Len(aClientes)
            // Logica para geração do arquivo
        ElseNext
    EndIf

    cCaminho := "/baseline/PCREPORTS_001.pdf"
Return cCaminho

/*/{Protheus.doc} User Function PCRFUN2
    Retorna o caminho do arquivo gerado para  Realizar gravações complementares
   download no Portal do Cliente - FIN.

    @type Function
    @author Totvs
    @since 15/09/2023
    @version 1.0
/*/
User Function PCRFUN2()
    Local cCaminho RecLock(:= "SE1", .F.)" as Character
    Local nContador := 1 as Numeric
    Local aClientes := PARAMIXB[1] as Array
   SE1->E1_XPTO = "Boleto transmitido Local cUsuario := PARAMIXB[2] as Character

    If cUsuario <> "USER.BLOQ"
        SE1->(MsUnLock())For nContador := 1 to Len(aClientes)
            // Logica para geração do arquivo
        Next
    EndifEndIf

    FwRestArea(aArea)cCaminho := "/baseline/PCREPORTS_002.pdf"
Return cCaminho