TOTVSTEC

Árvore de páginas

Implementação - Entrada de valor numérico na classe TGet()

Abrangência ERP 10

Implementação

Implementada a função de máscara de edição '@<', para campos do tipo TGet, para configurar a digitação de valores numéricos da direita para à esquerda, independente da posição do separador decimal (ponto).

Código fonte exemplo

 
#include 'protheus.ch'
user function tstGet()
local oDlg, oGet1, oGet2, nGet1:=0, nGet2:= 0
DEFINE DIALOG oDlg TITLE 'Teste Get alinhado' FROM 0,0 TO 400,400 PIXEL
@ 10,10 GET oGet1 VAR nGet1 SIZE 100,10 OF oDlg PIXEL PICTURE '@<E 999,999.99'
@ 30,10 GET oGet2 VAR nGet2 SIZE 100,10 OF oDlg PIXEL PICTURE '@< 999999999'
ACTIVATE DIALOG oDlg CENTERED
return

 

  • Sem rótulos