Histórico da Página

#Include "Protheus.ch"


/*/{Protheus.doc} User Function PCREPORTS
    Utilizado para criação do menu de relatorios no Portal do Cliente - FIN.

    El P.E. debe devolver un array con los objetos para creación del menú,
    siendo la primera posición el título del informe, la segunda posición la función
    que se ejecutará (Debe devolver el camino para download del archivo) y 
    la última posición (opcional) un ícono de acuerdo con la lista: https://po-ui.io/guides/icons.

    @type Function
    @author Totvs
    @since 15/09/2023
    @version 1.0
    @see https://tdn.totvs.com/pages/editpageviewpage.action?pageId=789976160
/*/
User Function PCREPORTS()
	Local aRelatorios := {} as Array
    Local aClientes := PARAMIXB[1] as Array
    Local cUsuario := PARAMIXB[2] as Character
    Local nContador := 1 as Numeric
    
    If cUsuario <> "USER.BLOQ"
        For nContador := 1 to Len(aClientes)
            If aClientes[nContador]['codigo'] == '000002'
                AADD(aRelatorios, {'RELATORIO 01', 'PCRFUN1'}) //Nombre de la función sin U_
                AADD(aRelatorios, {'RELATORIO 02', 'PCRFUN2', "po-icon po-icon-credit-payment"}) //Nombre de la función sin U_
                Exit
            EndIf
        Next
    EndIf

Return aRelatorios

/*/{Protheus.doc} User Function PCRFUN1
    Devuelve el camino del archivo generado para download en el Portal del cliente - FIN.

    @type Function
    @author Totvs
    @since 15/09/2023
    @version 1.0
/*/
User Function PCRFUN1()
    Local cCaminho := "" as Character
    Local nContador := 1 as Numeric
    Local aClientes := PARAMIXB[1] as Array
    Local cUsuario := PARAMIXB[2] as Character

    If cUsuario <> "USER.BLOQ"
        For nContador := 1 to Len(aClientes)
            // Lógica para generación del archivo         Next
    EndIf

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

/*/{Protheus.doc} User Function PCRFUN2
    Devuelve el camino del archivo generado para download en el Portal del cliente - FIN.

    @type Function
    @author Totvs
    @since 15/09/2023
    @version 1.0
/*/
User Function PCRFUN2()
    Local cCaminho := "" as Character
    Local nContador := 1 as Numeric
    Local aClientes := PARAMIXB[1] as Array
    Local cUsuario := PARAMIXB[2] as Character

    If cUsuario <> "USER.BLOQ"
        For nContador := 1 to Len(aClientes)
            // Lógica para generación del archivo         Next
    EndIf

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