mascara cep, help??????????

[pena]

Boa noite, quando preencho o campo cep, na saida, retiro todas as mascaras para gravar no banco

Código: Selecionar todos

                       @ li+150,ci+080 TEXTBOX T_Cep                  ;
		                       OF Frm_empresas                ;
		                       VALUE cCep                     ;
		                       TOOLTIP 'Cep da empresas'      ;
                                       FONT 'Arial' SIZE 09           ;
                                       FONTCOLOR BLACK BOLD           ;
	                               INPUTMASK '99.999-999'         ;
	                               ON LOSTFOCUS(Testacep())

na saida como falei retiro a mascara

Código: Selecionar todos

           oEmpresa:Cep            := TiraMascara(Frm_empresa.T_Cep.Value)

so que quando carrego novamente

Código: Selecionar todos

cCep           := oEmpresa:Cep

quando vai carregar fica assim

96.501-150
fica assim
96.01-50

ja vi falar que nao entrada eu teria que mascarar novamente mas da erro na compilacao

tentei assim

Código: Selecionar todos

cCep           := Transform(oEmpresa:Cep,”@R 99.999-999”)

nao sei como resolver

[pena]

desculpe a ignorância, descobri

bastou acrescentar no value

Código: Selecionar todos

          @ li+150,ci+080 TEXTBOX T_Cep                  ;
		                       OF Frm_empresas                ;
		                       VALUE Tran(cCep,'@R 99.999-99') ;
		                       TOOLTIP 'Cep da empresas'      ;
                                       FONT 'Arial' SIZE 09           ;
                                       FONTCOLOR BLACK BOLD           ;
	                               INPUTMASK '99.999-999'         ;
	                               ON LOSTFOCUS(Testacep())

[billy1943]

Ao Pena,

Já te pedindo desculpas pela minha ignorância também, solicito-lhe que, se possível, informe o que está errado no trecho de código abaixo, tirado do tópico anterior que deve ser dos exemplos do HMG.3.3.1, Agenda.PRG.
Você informou que deu certo, comigo não está ocorrendo.

A compilação está dando o famoso erro E0030, na linha do VALUE TRAN..., com a mensagem " sintax error at '@' "

A sua compilação está saindo sem erro ?

Informo que não vou fazer nenhuma crítica no campo CEP, apenas quero que saia na tela como a máscara indica, ou seja, '99999-999";
Também não vou gravar no arquivo .DBF o campo com a edição, apenas os caracteres que o compõe.

Código: Selecionar todos

@103,390 TEXTBOX T_Cep  		;
                     OF Form_2		;
                     VALUE TRAN(ccep,'@R 99999-999') ;					 
                     WIDTH 80		;
	              TOOLTIP 'Cep do Contato'	;
		      MAXLENGTH 09		;
		     UPPERCASE ;
		     INPUTMASK '99999-999' ;
		      ON ENTER Form_2.T_Cidade.SetFocus

[Jairo Maia]

Olá Billy,

Remova a linha:

Código: Selecionar todos

INPUTMASK '99999-999' ;

Como Você está usando '@R 99999-999', a máscara é apenas visual. O campo Cep será gravado sem o hífem normalmente.

Código: Selecionar todos

           @103,390 TEXTBOX T_Cep        ;
           OF Form_2      ;
           VALUE TRAN(ccep,'@R 99999-999') ;                
           WIDTH 80      ;
           TOOLTIP 'Cep do Contato'   ;
           MAXLENGTH 09      ;
           UPPERCASE ;
ON ENTER Form_2.T_Cidade.SetFocus

[billy1943]

Olá Jairo Maia

Deu certo !

O campo aparece já com a forma de edição acertada pela máscara informada.

Vou usar para outros campos que necessitam de máscara tais como: telefones, celulares, códigos diversos ( CPF, CNPJ), etc.


Obrigado.