usar inputmask

[jcsprog]

ola como utilizar inputmask ao trazer um dado do arquivo sem mascara , mostrar com e devolver sem tem alum format ou inputmask

no arquivo tenho 12345556000198
mostrar 12.345.556/0001-98 aberto a modificações
gravar no arquivo 1234555600198

agradeço a atenção

[jcsprog]

fala galera achei a solução

Form.Cnpj.Value := TransForm(arq->cnpj,'@R 99.999.999/9999-99')

valeu galera

[Mario Mesquita]

Boa noite, amigos.

Aproveitando o tema pergunto:

Como ponho no INPUTMASK para formatar numeros no modo "9.999,99"? Já tentei o velho "@E 9,999.99", "E 9,999.99", "E: 9,999.99", Todos deram erro em tempo de execução.

Como sempre, obrigado pela ajuda,
Mario.

[asimoes]

Tenta isso:

NUMERIC INPUTMASK '9,999,999,999.99' FORMAT 'E'

@450,550 TEXTBOX T_ImpReserva ;
WIDTH 100 HEIGHT 20 ;
VALUE 0 ;
NUMERIC INPUTMASK '9,999,999,999.99' FORMAT 'E' ;
RIGHTALIGN

[asimoes]

Olá

Eu usária getbox no lugar de textbox veja:

Código: Selecionar todos

    DEFINE GETBOX oValorRecebido
         ROW 032
         COL 160
         WIDTH 80
         HEIGHT 25
         VALUE nValorPago
         PICTURE "@E 999.99"
         FONTNAME cFonte
         FONTSIZE 12
         VALID {||ValidaValor(This.Value)}
         FONTCOLOR _VERDE
         BACKCOLOR _BLUE3
         ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
         ON LOSTFOCUS This.BackColor:=_BLUE3
         TOOLTIP ""
      END GETBOX

[Mario Mesquita]

Bom dia a todos.

Obrigado pela ajuda, mas estou usando a IDE do HMG, então não dá pra mexer no form diretamente.

Quando coloco "@E 99,999.99" em INPUTMASK, ele compila, mas dá um erro em tempo de execução:

"@ ... TEXTBOX: Wrong InputMask Definition"

O TEXTBOX está numérico, então não entendo. Curioso é que num BROWSE que uso, tem uma InputMask de uma coluna como "@E 99,999.99" e funciona normalmente.

Se alguem tiver uma noção do que acontece, desde já agradeço.

Saudações,
Mario.

[Pablo César]

Mario, talvez seja questão de mudar de numérico para caracter essa expressão, prove.

estou usando a IDE do HMG, então não dá pra mexer no form diretamente

Ja experimentou pegar o código desse form e colocar como parte do código ?. Na IDE da HMG você clica duas vezes no form (visualizará na tela) e no menu "Visualizar" ou "View" (se ainda não estiver configurado para português) e "Código do Formulário" ou "Form Code" para mostrar o código, daí é só marcar e colar parte do código, como se fosse fazer as telas na munheca. Também tem um aplicativo que converte os Fmgs para Prgs. Talvez assim vocÊ possa interagir melhor nas telas.

[Mario Mesquita]

Olá, Pablo.

Seria uma possibilidade a ser estudada, mas a IDE adianta o lado muita coisa, apesar de sentir as vezes falta de mexer no codigo diretamente. Com o tempo e mais experiencia penso ser uma alternativa interessante. Mas, nesse momento tenho uma certa urgencia e esse form é enorme, com um TAB de duas abas e uns quase 50 campos de informação.

Acho estranho é uma coisa tão básica como o velho PICTURE não funcionar bem numa ferramenta tão moderna.

Obrigado pela dica.

Abraço,
Mario.

[Mario Mesquita]

Pessoal, ultima forma:

Para formatar o campo numérico, além do INPUTMASK, deve-se colocar "E" em FORMAT. Li o guia da MiniGui, mas não tinha entendido. Agora foi...

Vivendo e aprendendo.

Abraço a todos,
Mario.

[asimoes]

Mário,

"@ ... TEXTBOX: Wrong InputMask Definition"

você tentou isso:

@450,550 TEXTBOX T_ImpReserva ;
WIDTH 100 HEIGHT 20 ;
VALUE 0 ;
NUMERIC INPUTMASK '9,999,999,999.99' FORMAT 'E' ;
RIGHTALIGN

O FORMAT 'E' equivale ao @E

[]s

[asimoes]

Mário,

Você não leu o meu post!
Já estaria resolvido.

[]´s

[Mario Mesquita]

Oi, Asimoes.

Eu li. Só que eu estou usando a IDE, então não tenho como mexer do script do Form. Na verdade, resolvi na própria IDE, pois o "E" entra na propriedade FORMAT.

É que ainda estou meio verde em HMG. Mas com a ajuda de voces aqui do forum, tenho progredido.

Obrigado pela força!

Abraço,
Mario.

[microvolution]

Pessoal boa noite!
Hoje é que estou tentando entender esse "tal de inputmask".
Bom, nas minhas 2 linhas a seguir, geram esse erro:

C:\MVinfo\MIGRAR\SiCCA\SiCCA3603hmg\sci10000\pci10011.prg(4419) Error E0030 Syntax error "syntax error at '@'"
C:\MVinfo\MIGRAR\SiCCA\SiCCA3603hmg\sci10000\pci10011.prg(4420) Error E0030 Syntax error "syntax error at '@'"

Código: Selecionar todos

                @ 370 , 470 TEXTBOX txtCDPRODUTO  PARENT Frm_TELA_ENTRADA WIDTH 150 HEIGHT 30 FONTCOLOR BLUE BOLD NUMERIC  INPUTMASK '999.999' FORMAT 'E'  MAXLENGTH 13 ON ENTER { || fCDPRODUTO_GUI () } // 
                @ 370 , 570 TEXTBOX txtQT_VENDA   PARENT Frm_TELA_ENTRADA WIDTH  35 HEIGHT 30 FONTCOLOR BLUE BOLD NUMERIC  INPUTMASK pQT_VENDA FORMAT 'E'  MAXLENGTH 13 ON ENTER { || fQT_VENDA_GUI () } // 

O que pode estar errado?
PS: Se eu retirar o INPUTMASK o erro para de aparecer e compila normalmente.

[Toledo]

Amigo, em TEXTBOX numérico (NUMERIC) com INPUTMASK não é necessário MAXLENGTH, então excluir MAXLENGTH 13.

Abraços,

[microvolution]

bom dia!
tirei o MAXLENGTH e voltei o INPUTMASK e deu a seguinte mensagem de erro:

Date:16/03/2016 Time: 09:08:29
Error: HMG 3.4.2 Stable (32 bits)
@...TEXTBOX: Wrong InputMask Definition
Called from _DEFINEMASKEDTEXTBOX(282)
Called from CAD_PRODUTOS_GUI(4386)