Nesse vídeo demonstraremos a utilização das funções NgSalvaMvPa e NgRetAuMVPa, que servem para fazer um backup ou restaurar os parâmetros em memória (MV_PAR01 até o MV_PAR60).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe369
Exemplo de função que armazena o conteúdo dos parâmetros em um backup sendo possível depois retornar esse backup
@type Function
@author Atilio
@since 30/11/2022
@obs
Função AtfSaveMvVar
* Não possui parâmetros, nem retorno *
Função AtfRestMvPar
* Não possui parâmetros, nem retorno *
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe369()
Local aArea := FWGetArea()
Local cMensagem := ""
//Mostra uma pergunta qualquer ao usuário
Pergunte("A311TES", .F.)
cMensagem += "Após o Pergunte da A311TES, o MV_PAR02 é '" + MV_PAR02 + "' " + CRLF
//Faz um backup dos MV_PAR em memória
aBackup := NgSalvaMvPa()
cMensagem += "Foi realizado um backup" + CRLF
//Aqui pode ser feito outras tratativas, acionar ParamBox, Pergunte, etc
Pergunte("A410INCREM", .F.)
cMensagem += "Após o Pergunte da A410INCREM, o MV_PAR02 é '" + MV_PAR02 + "' " + CRLF
//Volta esse backup que estava em memória
NgRetAuMVPa(aBackup)
cMensagem += "Após o voltar o Backup, o MV_PAR02 é '" + MV_PAR02 + "' " + CRLF
ShowLog(cMensagem)
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
Grande, Atílio, sempre trazendo ótimas ferramentas para o nosso dia-a-dia! Acredita que precisei de algo há pouco mais de 1 mês, mais ou menos, e tive que desenvolver uma user function para isso, já que não conhecia esta função que disponibilizou aqui? Rs
Assim que voltar de férias voucrevisar meu código e utilizar a função padrão! Obrigado!!
Fala Rafa, bom dia, tudo joia?
Opa, muito obrigado pelo comentário e carinho, é muita bondade sua.
Sim, já aconteceu isso algumas vezes comigo também rsrs, quem nunca né rs
Um grande abraço.
Grande Atílio, sempre ajudando, só para complementar tem mais esse no padrão
aMvPars := GuardPars()
RestPars(aMvPars)
Bom dia Alexandre, tudo joia?
Opa, nós que agradecemos o feedback. Olha que legal, não conhecia a GuardPars e RestPars.
Depois vou estudar um pouco sobre elas.
Um grande abraço.