Nesse vídeo demonstraremos a utilização da função RetMVPar, que serve para buscar as respostas de parâmetros de um Pergunte, armazenando em um array.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe417
Guarda as respostas de um Pergunte em um Array
@type Function
@author Atilio
@since 22/02/2023
@obs
Função RetMVPar
Retorno
Retorna um array com as respostas dos parâmetros do Pergunte
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe417()
Local aArea := FWGetArea()
Local aResultado := {}
//Aciona a pergunta em memória, e guarda o resultado
Pergunte("A311TES", .F.)
aResultado := RetMVPar()
//Exibe uma mensagem de teste
FWAlertInfo("Foi encontrado " + cValToChar(Len(aResultado)) + " resposta(s) ", "Teste RetMVPar")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
