Histórico da Página

#include "protheus.ch"
/*/{Protheus.doc} 
Ponto de entrada F050PERGUNT. 
Posibilita alterar perguntas em tempo de execução para rotina automática.
@type function F050PERGUNT
@author TOTVS Matriz
@since 24/01/2022
@version P12

@param aPerguntas, array, dados das perguntas do SX1 - FIN050

@return aPerguntas, array, respostas alteradas pelo PE.
/*/
User Function F50PERGUNT()
    Local aArea  := GetArea()
    Local aDados := aClone(aPergunta) //Faço a clonagem do array atual para alterar.
    Local w      := 0
    Local nPos   := 0

    //A estrutura do array é a mesma do SX1. Para manipular, procure a pergunta usando ASCAN()
    For w := 1 To Len(aDados)
        nPos := aScan(aDados[w], {|x|, alltrim(x)  == "Mostra Lanc Contab ?"  })

        If nPos > 0 
            If aDados[nPos, 15] == 1 //Mostra lancamento contábil | 1 - Sim, 2 - Não 
                aDados[w,15] := 2

            EndIf
        EndIf 
        
        nPos := aScan(aDados[w], {|x|, alltrim(x)  == "Aglutina Lançamento Contabil ?"  })

        If nPos > 0 
            If aDados[nPos,15] == 1 //Aglutina Lançamento Contabil | 1 - Sim, 2 - Não 
                aDados[nPos,15] := 2

            EndIf
        EndIf 

        nPos := aScan(aDados[w], {|x|, alltrim(x)  == "Gera Rateio ?"  })

        If nPos > 0 
            If aDados[nPos,15] == 2 //Gera Rateio ? | 1 - Titulo, 2 - Titulo/Impostos
                aDados[nPos,15] := 1

            EndIf
        EndIf 

    Next w  


    //Retorno o array a Pergunta com as respostas alteradas. 
    aPergunta := aDados

    RestArea(aArea)
Return aPergunta