Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Cria um objeto para entrada de dados editáveis. Esta classe permite armazenar ou alterar o conteúdo de uma variável através da digitação. No entanto, o conteúdo da variável será alterado quando o objeto perder o foco de edição para outro objeto.

Hierarquia

TControl
- TGet

Construtores

Propriedades

Métodos

Observações

Em builds superiores a 7.00.111010P o idioma do calendário, chamado a partir do componente TGet, respeitará o idioma definido no arquivo de inicialização do AppServer, na tag rpolanguage.
Em builds superiores a 7.00.121227P, caso o TGet tenha botão (calculadora, calendário, etc.), o CSS deste botão pode ser passado para o TGet que ele irá repassar para o botão.

Definindo os tipos de dados (Caracter, Data, Numerico)

A definição dos tipos de dados no componente TGet é feito a partir de dois pontos:

Definição do tipo de variável;
Definição do parametro lHasButton como Verdadeiro (.T.).

Veja o exemplo a seguir:

  #include "TOTVS.CH"

  User Function TGetTypes()
    Local cGet1 := "Define variable value" // Variavel do tipo caracter
    Local nGet2 := 0 // Variável do tipo numérica
    Local dGet3 := Date() // Variável do tipo Data
    Local lHasButton := .T.

    DEFINE MSDIALOG oDlg TITLE "Picture test" FROM 000, 000  TO 500, 500 COLORS 0, 16777215 PIXEL

    oGet1 := TGet():New( 005, 009, { | u | If( PCount() == 0, cGet1, cGet1 := u ) },oDlg, ;
       060, 010, "!@",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"cGet1",,,,lHasButton  )
    oGet2 := TGet():New( 020, 009, { | u | If( PCount() == 0, nGet2, nGet2 := u ) },oDlg, ;
       060, 010, "@E 999.99",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"nGet2",,,,lHasButton  )
    oGet3 := TGet():New( 035, 009, { | u | If( PCount() == 0, dGet3, dGet3 := u ) },oDlg, ;
       060, 010, "@D",, 0, 16777215,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F. ,,"dGet3",,,,lHasButton  )

    ACTIVATE MSDIALOG oDlg CENTERED
  return

Preview - TGet com diferentes tipos de dados

Exemplos

  #include "TOTVS.CH"

  User Function TGet()
    DEFINE DIALOG oDlg TITLE "Exemplo TGet" FROM 180,180 TO 550,700 PIXEL
    // Usando o New
    cTGet1 := "Teste TGet 01"
    oTGet1 := TGet():New( 01,01,{|u|if(PCount()==0,cTGet1,cTGet1:=u)},oDlg,096,009,; 
		"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
    // Usando o Create
    cTGet2 := "Teste TGet 02"
    oTGet2 := TGet():Create( oDlg,{|u|if(PCount()==0,cTGet2,cTGet2:=u)},14,01,096,009,; 
		"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, )
    ACTIVATE DIALOG oDlg CENTERED
  Return

Exemplo da classe TGet

Referências

A construção de um componente da classe TGET também pode ser feita através do comando AdvPL @ .. GET

Abrangência

Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server