Histórico da Página

Ao Al utilizar o ponto el punto de entrada, as perguntas devem ser passadas na ordem que consta no SX1. Os tipos padrões das variáveis não devem ser alterados, para não gerar inconsistência na rotina las preguntas deben pasarse en el orden que consta en el SX1. Los tipos estándares de las variables no deben modificarse, para no generar inconsistencia en la rutina automática. 

#include "protheus.ch"
/*/{Protheus.doc}
Ponto de entrada F50PERGUNT.
PosibilitaPermite alterarmodificar perguntaspreguntas emen tempotiempo de execuçãoejecución para rotinarutina automática.
@type function F50PERGUNT
@author TOTVS Matriz
@since 24/01/2022
@version P12
 
@param aPerguntas, array, dadosdatos de daslas perguntaspreguntas dodel SX1 - FIN050
 
@return aPerguntas, array, respuestas respostasmodificadas alteradaspor peloel PE.
/*/
User Function F50PERGUNT()
    Local aArea  := GetArea()
    Local aDados := aClone(aPergunta) //FaçoRealizo ael clonagemclonaje dodel array atualactual para alterarmodificar.
    Local nPos   := 0
 
    //A estrutura do array é a mesma do SX1. Para manipularmanejar, procure ala perguntapregunta usandoutilizando ASCAN()
    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Mostra¿Muestra LancAsto. Contab ?"})
    If nPos > 0
        If aDados[nPos, 15] == 1 //MostraMuestra lancamentoasiento contábilcontable | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf
        
    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Contab¿Contab.TitTít.Provisor Provisional?"  })
    If nPos > 0
        If aDados[nPos, 15] == 1 //Contab.TitTít.ProvisorProvisional | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Inf¿Inf.Ctas noen rateioel prorrateo?"  })
    If nPos > 0
        If aDados[nPos, 15] == 1 //Inf.Ctas en noel rateioprorrateo | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Contabiliza¿Contabiliza on Line ?"  })
    If nPos > 0
        If aDados[nPos, 15] == 1 //Contabiliza on Line | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf


    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Gerar¿Generar Chq.p/Adiant. Anticipo?"  })
    If nPos > 0
        If aDados[nPos, 15] == 1 //GerarGenerar Chq.p/AdiantAnticipo | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1]) == "Rateia¿Prorratea Valor valor?" })
    If nPos > 0
        If aDados[nPos, 15] == 1 //RateiaProrratea Valorvalor | 1 - Bruto, 2 - LiquidoNeto
            aDados[nPos,15] := 2

        EndIf
    EndIf
        
    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Aglutina¿Agrupa Lançamentoasiento Contabil contable?"  })
    If nPos > 0
        If aDados[nPos,15] == 1 //AglutinaAgrupa Lançamentoasiento Contabilcontable | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos :=AScan(aDados,{|x|AllTrim(x[1])  == "Mostra¿Muestra Rateioprorrateo Excl. ?"  })
    If nPos > 0
        If aDados[nPos,15] == 1 //MostraMuestra Rateioprorrateo Excl. | 1 - SimSi, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Mov¿Mov.Banc.semsin Cheque ?"  })
    If nPos > 0
        If aDados[nPos,15] == 1 //Mov.Banc.semsin Cheque | 1 - SimSí, 2 - NãoNo
            aDados[nPos,15] := 2

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Gera¿Genera Rateio prorrateo?"  })
    If nPos > 0
        If aDados[nPos,15] == 2 //Gera¿Genera Rateio prorrateo? | 1 - TituloTítulo | 2 - TituloTítulo/ImpostosImpuestos
            aDados[nPos,15] := 1

        EndIf
    EndIf

    nPos :=AScan(aDados,{|x|AllTrim(x[1])  == "Valores¿Valores Acessóriosaccesorios Inclusão inclusión?"  })
    If nPos > 0
        If aDados[nPos,15] == 2 //Valores Acessóriosaccesorios Inclusãoinclusión | 1 - SimSí | 2 - NãoNo
            aDados[nPos,15] := 1

        EndIf
    EndIf

    nPos := AScan(aDados,{|x|AllTrim(x[1])  == "Visão¿Visión dodel Rastreamento rastreo?"  })
    If nPos > 0
        If aDados[nPos,15] == 2 //VisãoVisión dodel Rastreamentorastreo   | 1 - Por Títulotítulo | 2 - Por Processoproceso
            aDados[nPos,15] := 1

        EndIf
    EndIf

 
    //RetornoDevolución oal array de ala PerguntaPregunta comcon aslas respostasrespuestas alteradasmodificadas.
    aPergunta := aDados
 
    RestArea(aArea)
Return aPergunta