Exemplo de TGET com Opções Adicionais no Protheus

Neste artigo apresento um exemplo prático de como criar um TGET no Protheus aplicando recursos adicionais que tornam o componente mais completo, flexível e funcional no dia a dia do usuário.

Recursos Extras Utilizados

• cF3 – Habilita a consulta padrão F3 diretamente no campo.
• cTooltip – Exibe uma dica (tooltip) ao passar o mouse sobre o campo.
• bHelp – Executa um bloco de código personalizado ao pressionar F1.

Código de Exemplo

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} UDTGETF3
UDTGETF3

@type       function
@author     Eurai Rapelli
@since      2021.08.14

@see        https://udesenv.com.br
/*/
User Function UDTGETF3()
    Local oDlg := Nil AS Object
    Local oGet := Nil AS Object
    Local cGet := ''  AS Character

    oDlg := MSDialog():New( 000,000,520,830,'Demonstração F3 Tooltip',,,.F.,,,,,,.T.,,,.T. )

    oGet := TGet():New( 008,070,bSETGET(cGet),oDlg,040,010,,,,/*10*/,,,,.T.,/*15*/,,,,,/*20*/,,)
    oGet:cTooltip := 'TOOLTIP'
    oGet:cF3      := 'SA1'
    oGet:bHelp    := {|| ShowHelpCpo( 'Ajuda', {' MINHA AJUDA '}, 0 ) }

    oDlg:Activate(,,,.T.)

Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎

Um abraço, e até a próxima!