Nesse vídeo demonstraremos a utilização das funções GetKeys e RestKeys, que servem para fazer um backup dos atalhos (por exemplo, F4, F5, F6, etc) e depois restaurar esse backup.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe276
Faz um backup das teclas de atalho em memória e depois retorna
@type  Function
@author Atilio
@since 21/02/2023
@see https://tdn.totvs.com/display/tec/GetFuncArray
@obs 

    Função GetKeys
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna o backup das teclas de atalho do F1 ao F12

    Função RestKeys
    Parâmetros
        Recebe um array com o backup realizado
    Retorno
        Não tem retorno
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe276()
    Local aArea    := FWGetArea()
    Local aAtalhos := {}

    //Busca os atalhos em memória
    aAtalhos := GetKeys()

    FWAlertInfo("Suas customizações...", "Teste de GetKeys e RestKeys")

    //Retorna os atalhos
    RestKeys(aAtalhos)

    FWRestArea(aArea)
Return


/*/{Protheus.doc} User Function nomeFunction
Ponto de entrada para adicionar opções no menu do cadastro de produtos
@type  Function
@author Atilio
@since 21/02/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=370617549
/*/

User Function MTA010MNU()
    Local aArea := GetArea()
    
    //Adicionando uma função no menu principal
    aAdd(aRotina, {"* Testar Atalhos", "u_zExe276()", 0, 2, 0, NIL})
    
    RestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++