Fazendo um backup dos alias em memória com SaveArea1 e RestArea1 – Maratona AdvPL e TL++ 429

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.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

Deixe uma resposta

Terminal de Informação