Clipper On Line • Ver Tópico - DUVIDA INPUTMASK?

DUVIDA INPUTMASK?

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

DUVIDA INPUTMASK?

Mensagempor pena » 21 Jun 2011 20:36

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?
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

DUVIDA INPUTMASK?

Mensagempor Imatech » 06 Jul 2012 19:44

Apesar do post ter sido a 2 semanas atraz: segue a resposta...


* 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 )

M., Ronaldo

by: IMATECH

IMATION TECNOLOGIA
Avatar de usuário

Imatech
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 350
Data de registro: 24 Ago 2010 23:48
Cidade/Estado: Goiânia-GO
Curtiu: 4 vezes
Mens.Curtidas: 27 vezes

DUVIDA INPUTMASK?

Mensagempor Toledo » 06 Jul 2012 20:57

Imatech escreveu:Apesar do post ter sido a 2 semanas atraz

Você quer dizer: 1 ano e 2 semanas!
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

DUVIDA INPUTMASK?

Mensagempor Imatech » 06 Jul 2012 21:12

Olá Toledo !

Obrigado pela observação...

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

:)

Abç...
M., Ronaldo

by: IMATECH

IMATION TECNOLOGIA
Avatar de usuário

Imatech
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 350
Data de registro: 24 Ago 2010 23:48
Cidade/Estado: Goiânia-GO
Curtiu: 4 vezes
Mens.Curtidas: 27 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro