Nesse vídeo demonstraremos a utilização da função ReadVar, que serve para buscar o nome do campo que está em memória.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe404
Busca o nome do campo posicionado
@type Function
@author Atilio
@since 28/03/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=24347037
@obs
Função ReadVar
Parâmetros
Função não tem parâmetros
Retorno
Retorna o nome do campo
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe404()
Local aArea := FWGetArea()
Local cCampo := ReadVar()
Local xConteudo := &(cCampo)
//Mostra o nome do campo
FWAlertInfo("O campo é " + cCampo, "Teste 1 ReadVar")
//Mostra o conteúdo digitado no campo
FWAlertInfo("O conteúdo é " + cValToChar(xConteudo), "Teste 2 ReadVar")
FWRestArea(aArea)
Return
/*/{Protheus.doc} User Function MA010BUT
Ponto de entrada para adicionar funções no ButtonBar da Mata010
@type Function
@author Atilio
@since 28/03/2023
@see https://tdn.engpro.totvs.com.br/pages/releaseview.action?pageId=6087592
/*/
User Function MA010BUT()
Local aArea := FWGetArea()
Local aButtons := {}
//Adiciona um atalho no Shift+F5 para acionar o exemplo 404
SetKey(K_SH_F5, {|| u_zExe404() })
FWRestArea(aArea)
Return aButtons
Bom pessoal, por hoje é só.
Abraços e até a próxima.
