Página 1 de 1

DUVIDA INPUTMASK?

Enviado: 21 Jun 2011 20:36
por pena
Pessoal preciso da ajuda, não estou sabendo resolver, estou usando o firebird, mas acho que nao tem nada haver, isso tanto faz qual banco estar usando mas a situacao é a seguinte, tem este campo

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

quando vou gravar no banco eu retiro o mascara, entao o campo que esta assim

96.501-150, eu grava 96501150, até aqui td bem, mas quando leio o banco e vou mostrar novamente na tela, ele some com os valores onde estao as mascaras = 96.01-50 , como resolvo isso?

DUVIDA INPUTMASK?

Enviado: 06 Jul 2012 19:44
por Imatech
Apesar do post ter sido a 2 semanas atraz: segue a resposta...

Código: Selecionar todos


* Load Data:
Form.T_Cep.Value := TRAN( DATA->CEP, '@R 99.999-999' )

* Save Data:
DATA->CEP := F_Clear_Numeric_InputMask( Form.T_Cep.Value )

*-----------------------------------------------------------------------------*
* F_Clear_Numeric_InputMask( cStrNum )
*-----------------------------------------------------------------------------*
FUNCTION F_Clear_Numeric_InputMask( cStrNum )
  LOCAL cAux := ALLTRIM( cStrNum )
  cAux := STRTRAN( cAux, "/", "" )
  cAux := STRTRAN( cAux, "\", "" )
  cAux := STRTRAN( cAux, ";", "" )
  cAux := STRTRAN( cAux, "=", "" )
  cAux := STRTRAN( cAux, "+", "" )
  cAux := STRTRAN( cAux, "-", "" )
  cAux := STRTRAN( cAux, "_", "" )
  cAux := STRTRAN( cAux, ">", "" )
  cAux := STRTRAN( cAux, "<", "" )
  cAux := STRTRAN( cAux, "(", "" )
  cAux := STRTRAN( cAux, ")", "" )
  cAux := STRTRAN( cAux, "!", "" )
  cAux := STRTRAN( cAux, "@", "" )
  cAux := STRTRAN( cAux, "#", "" )
  cAux := STRTRAN( cAux, "$", "" )
  cAux := STRTRAN( cAux, "%", "" )
  cAux := STRTRAN( cAux, "&", "" )
  cAux := STRTRAN( cAux, "*", "" )
  cAux := STRTRAN( cAux, "|", "" )
  cAux := STRTRAN( cAux, "?", "" )
  cAux := STRTRAN( cAux, ":", "" )
  cAux := STRTRAN( cAux, "{", "" )
  cAux := STRTRAN( cAux, "}", "" )
  cAux := STRTRAN( cAux, "[", "" )
  cAux := STRTRAN( cAux, "]", "" )
  cAux := STRTRAN( cAux, ",", "" )
  cAux := STRTRAN( cAux, ".", "" )
  cAux := STRTRAN( cAux, "´", "" )
  cAux := STRTRAN( cAux, "`", "" )
  cAux := STRTRAN( cAux, "'", "" )
RETURN( cAux )


DUVIDA INPUTMASK?

Enviado: 06 Jul 2012 20:57
por Toledo
Imatech escreveu:Apesar do post ter sido a 2 semanas atraz
Você quer dizer: 1 ano e 2 semanas!

DUVIDA INPUTMASK?

Enviado: 06 Jul 2012 21:12
por Imatech
Olá Toledo !


Obrigado pela observação...

Tem alguem perdido no tempo e espaço... kkk



:)



Abç...