Nesse vídeo demonstraremos a utilização das funções Lj7GetArea e Lj7RestArea, que servem para criar um backup e depois restaurar das posições de tabelas em memória.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe328
Faz um backup da área em memória e depois volta (de várias tabelas)
@type Function
@author Atilio
@since 12/03/2023
@obs 

    Função Lj7GetArea
    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 Lj7RestArea
    Parâmetros
        Array com as posições igual armazenadas na Lj7GetArea
    Retorno
        Não tem retorno

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe328()
    Local aArea    := Lj7GetArea({"SB1", "SBM", "SB5"})
     
    //Aqui suas customizações
     
    Lj7RestArea(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 20/02/2023
/*/

User Function A010TOK()
    Local lRet     := .T.

    //Seleciona outra tabela
    DbSelectArea("SA1")

    //Aciona o exemplo
    u_zExe328()

Return lRet

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++