Histórico da Página
...
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
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: 1 -
- Definição do tipo de variável;
...
- Definição do parametro lHasButton como Verdadeiro (.T.).
Veja o exemplo a seguir:
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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,{||cTGet1},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) // Usando o Create cTGet2 := "Teste TGet 02" oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) ACTIVATE DIALOG oDlg CENTERED Return |
Preview - TGet com diferentes tipos de dados
...
Exemplo da classe TGet
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas