Gestão de Pessoas - Manual do Usuário > Customizações > Funções > RetornaRespostasTeste

RetornaRespostasTeste

Tem o objetivo de buscar as respostas das perguntas geradas para o teste de certificação.

Sintaxe: RetornaRespostasTeste(Alfa Posicao)

Parâmetros:

Nome	Tipo	Descrição
Posicao	Alfa	Indica qual a posição da lista deve ser lida. Sendo: "I" = Primeiro registro da grade "P" = Próximo

Tipo de Retorno: Indica o resultado da leitura. Sendo:

Valor	Descrição
-1	não encontrou registros
0	encontrou registro
1	chegou ao final da lista

Exemplo:

xRet = RetornaPerguntasTeste("I");
Se (xRet <> -1)
{
     Enquanto (xRet = 0)
      {
         LstPerguntas.Adicionar();
         LstPerguntas.GruPer = R202PER.GruPer;
         LstPerguntas.CodPer = R202PER.CodPer;
         LstPerguntas.DesPer = R202PER.DesPer;
         LstPerguntas.Gravar();
         xRetRes = RetornaPerguntasTeste("I");
         Se (xRetRes <> -1)
         {
             Enquanto (xRetRes = 0)
              {
                 Se (R202PER.GruPer = R202RES.GruPer) e (R202PER.CodPer = R202RES.CodPer)
                  {
                      LstRespostas.Adicionar();
                      LstRespostas.GruPer = R202RES.GruPer;
                      LstRespostas.CodPer = R202RES.CodPer;
                      LstRespostas.CodRes = R202RES.CodRes;
                      LstRespostas.DesRes = R202RES.DesRes;
                      LstRespostas.Gravar();
                   }
                   xRetRes = RetornaRespostasTeste("P");
              }
        }
        xRet = RetornaPerguntasTeste("P");
    }
}

Utilização: Regra que executa o teste.

Disponível para o(s) Módulo(s): TR