Formatar Campo Numérico

[JAIR RANGEL]

Boa noite!
Preciso que na digitação de um valor numérico(MONETÁRIO) o campo seja formatado conforme o usuário vai digitando, como funciona nos caixas eletrônicos.
Como posso fazer isso?

Obrigado!

[lugab]

Eu aprendí, aqui no fórum, a usar assim...

Código: Selecionar todos

Tvalor=0
@ L,C say "Valor" get tvalor pict "@e 999,999,999.99"
read

[rochinha]

Amiguinhos,

lugab você apresentou muito bem a formatação visual, mas a necessidade do JAIR RANGEL vai mais além.

A necessidade dele seria suprida com alguma função no valid ou when e a medida que começamos a digitar os valores vão crescendo na visualização do campo.

Código: Selecionar todos

Tvalor=0
@ L,C say "Valor" get tvalor pict "@e 999,999,999.99" valid FormataValorDaDireitaParaEsquerda( tvalor )
read

Pena que só posso falar, não posso codificar. Um PF me proibiu de chegar a 500 metros de um computador.

Como este forum é repleto de boas dicas e códigos(xBARSA) você pode ver que colegas encontraram soluções e adequaram:

Alinhar GET numérico à DIREITA

Veja se pode implementar a idéia.

[JAIR RANGEL]

Boa tarde!
Seria exatamente isto rochinha, eu encontrei soluções para isso em JavaScript e em Java enquanto pesquisava, mas estou dando uma olhada no link que você postou, caso atenda a minha necessidade eu volto aqui para dizer. Irei estudar isto mais a fundo e caso encontre a solução eu posto aqui.

Obrigado!

[JAIR RANGEL]

Esqueci de dizer que essa formatação seria em um TEXTBOX da HMG, estou usando a versão do Harbour 3.3.0 junto a sua ide... Então esses exemplos não me ajudam muito, mas vou continuar pesquisando. Muito obrigado!