Nesse vídeo demonstraremos a utilização das funções SaveArea1 e RestArea1. que servem para pegar fazer um backup dos alias em memória e depois voltar o backup (similar a GetArea e RestArea).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} User Function zExe429
Faz um backup da área em memória e depois volta (de várias tabelas)
@type Function
@author Atilio
@since 29/03/2023
@obs
Função SaveArea1
Parâmetros
Recebe um array com os alias da tabela
Retorno
Retorna um array com cada tabela e com as posições [1] Alias ; [2] Índice Usado ; [3] Registro posicionado
Função RestArea1
Parâmetros
Array com as posições igual armazenadas na SaveArea1
Retorno
Não tem retorno
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe429()
Local aArea := SaveArea1({"SB1", "SBM", "SB5"})
//Aqui suas customizações
RestArea1(aArea)
Return
/*/{Protheus.doc} User Function A010TOK
Ponto de entrada ao clicar no botão Ok no Cadastro de Produtos
@type Function
@author Atilio
@since 29/03/2023
/*/
User Function A010TOK()
Local lRet := .T.
//Seleciona outra tabela
DbSelectArea("SA1")
//Aciona o exemplo do GetArea e RestArea
u_zExe429()
Return lRet
Bom pessoal, por hoje é só.
Abraços e até a próxima.
