Nesse vídeo demonstraremos a utilização das funções SGetArea e SRestArea, que servem para fazer um backup e restaurar dos alias abertos em memória (similar ao GetArea e RestArea).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} User Function zExe442
Faz um backup da área em memória e depois volta (de várias tabelas)
@type Function
@author Atilio
@since 31/03/2023
@obs
Função SGetArea
Parâmetros
Recebe o nome do Array que irá armazenar as áreas
Recebe o alias que deverá ser adicionado no Array
Retorno
Retorna um array com cada tabela e com as posições [1] Alias ; [2] Índice Usado ; [3] Registro posicionado
Função SRestArea
Parâmetros
Array com as posições igual armazenadas na SGetArea
Retorno
Não tem retorno
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe442()
Local aArea := {}
//Adiciona as áreas no Array
SGetArea(aArea, "SB1")
SGetArea(aArea, "SBM")
SGetArea(aArea, "SB5")
//Aqui suas customizações
SRestArea(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 31/03/2023
/*/
User Function A010TOK()
Local lRet := .T.
//Seleciona outra tabela
DbSelectArea("SA1")
//Aciona o exemplo do GetArea e RestArea
u_zExe442()
Return lRet
Bom pessoal, por hoje é só.
Abraços e até a próxima.
