Nesse vídeo demonstraremos a utilização da função SetKey, que serve para definir um atalho que será executado via teclado.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe437
Adiciona um atalho do teclado para executar funcionalidades
@type Function
@author Atilio
@since 30/03/2023
@see https://tdn.totvs.com/display/tec/SetKey
@obs
Função SetKey
Parâmetros
+ nCodKey , Numérico , Número do atalho (veja mais sobre no link do TDN acima)
+ bAcao , Bloco de Código , Bloco com a função que será executada
Retorno
+ bRet , Bloco de Código , Bloco que estava definido anteriormente
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe437()
Local aArea := FWGetArea()
/*
Atalho: Ctrl + L
Função: zSearch
Descrição: Abre uma tela de pesquisa de campos em um cadastro do Protheus
Download: https://terminaldeinformacao.com/2018/04/03/pesquisa-de-campos-em-telas-protheus/
*/
SetKey(K_CTRL_L, {|| u_zSearch() })
/*
Atalho: Shift + F7
Função: zIsMVC
Descrição: Verifica se uma rotina é em MVC, montando também um exemplo de ponto de entrada
Download: https://terminaldeinformacao.com/2018/04/24/saiba-como-identificar-se-uma-funcao-e-em-mvc-como-fazer-seu-ponto-de-entrada/
*/
SetKey(K_SH_F7, {|| u_zIsMVC() })
/*
Atalho: Shift + F8
Função: zMiniForm
Descrição: Abre uma tela para executar fórmulas no Protheus
Download: https://terminaldeinformacao.com/2018/02/13/funcao-para-executar-formulas-protheus-12/
*/
SetKey(K_SH_F8, {|| u_zMiniForm() })
/*
Atalho: Shift + F9
Função: zFazErro
Descrição: Força um Error Log para analisar a pilha de chamadas e ver onde a função esta travada
*/
SetKey(K_SH_F9, {|| u_zFazErro() })
/*
Atalho: Shift + F11
Função: zTiSQL
Descrição: Abre uma tela para execução de queries SQL, ideal para quem usa Cloud
Download: https://terminaldeinformacao.com/2021/11/05/tela-que-executa-consultas-sql-via-advpl/
*/
SetKey(K_SH_F11, { || u_zTiSQL() }) //Shift + F11
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
