Formata m�scara para exibir em um DBGrid?

Question

Ol� amigos t� com o seguinte problema, eu criei uma tabela(tbMascara com os compos: CodMascara, TipoMascara, Mascara) onde gostaria de salvar os tipos de m�scaras:_______________________1 | CPF       ...

Aerreira · Answer

Considerando que as tabelas j� est�o referenciadas, no evento AfterScroll da tabela tbContato coloque
[b:43a0f4cd9f]tbContatoContato.editmask := tbMascaraMascara.value;[/b:43a0f4cd9f]

Acredito que funcionar� bem para seu caso.

Joule · Answer

N�o deu certo, eu consegui +/- um resultado usando a fun��o FormatMaskText + ainda n�o � o desejado....

Dart · Answer

Cara da pra vc usa o propriedade do field.Va na propriedade do field e em editmask e coloca a mascara la.Entendeu?...

Aerreira · Answer

Dart, ele n�o pode colocar como uma propriedade fixa, pois ela varia de acordo com o tipo de conteudo do campo, por isso minha dica foi justamente alterar o EditMask l� do campo da tabela, por�m sempre que houver uma mudan�a de registro o editmask seria alterado para o novo valor.

Joule · Answer

Pessoal consegui chegar perto do resultado usando esse c�digo aqui:

tbMask.Open;
tbcontato.close;
tbcontato.Open;
tbcontato.First;
while not tbcontato.Eof do
begin
tbContato.Edit;
tbmask.Locate(�codmask�,tbContatoCodMask.Value,[lopartialkey,locaseinsensitive]);
if tbMaskCodMask.value=2 then
begin
tbContatoContato.EditMask := tbMaskMask.Value;
tbContatoContato.Value := tbcontatocontato.Value;
showmessage(tbcontatocontato.Value);

(tbmaskmask.Value,tbContatoContato.Value);
end
else
tbContatoContato.Value := FormatMaskText(tbMaskMask.Value,tbContatoContato.Value);

tbContato.post;
tbcontato.Next;

Aerreira · Answer

Com esse seu c�digo, voc� est� alternado o conte�do do campo Contato para um conte�do j� com a m�scara, e se o usu�rio for alterar o campo o edit vir� com os pontos e n�o haver� na verdade uma m�scara e sim um campo aberto com pontos no meio, podendo alterar livremente.
Al�m do mais, voc� ter� que rodar esse seu loop de vez em quando para manter os campos com a formata��o... est� muito estranho isso.

Minha sugest�o continua a mesma, inclusive voc� usou ela no seu c�digo:

tbContatoContato.EditMask := tbMaskMask.Value;

S� que do meu modo, o conte�do do campo contato continuar� limpo, apenas aparecer� a mascara nos grids e nos edits, pois a cada registro que voc� navegar a rotina AfterScroll rodar� ajustando o EditMask do campo Contato. Mas para isso as tabelas precisam estar relacionadas entre si, ou seja, em cada registro da tabela tbContato haver� um CodMascara que estar� relacionado � tabela tbMascara por sua chave CodMascara.

Usando IBX, seu select para o IBDataSet para a tabela tbContato dever� ser algo mais ou menos assim:

select * from Contatos where CodMascara = :CodMascara

ligando a propriedade DataSource desse dataset a um DataSource ligado ao DataSet da tabela Mascara. Xiii, meio enrolado... claro, n�o sei nem qual o seu banco de dados!!!

Aerreira · Answer

Tenho uma situa��o num sistema que � mais ou menos igual a este seu caso e funciona. Existem v�rias tabelas de procedimentos m�dicos com diversos c�digos, por�m em cada tabela a formata��o dos c�digos � diferente.

Exemplos:
AMB / consulta / 00.01.001-4
CBHPM / consulta / 1.01.01.01-4
SUS / insuf.card�aca / 77.500.11-3

Os c�digos acima s�o armazenados assim:
00010014 - consulta
10101014 - consulta
77500113 - insuf.card�aca

Em cada tabela as m�scaras s�o armazenadas no campo MascCod assim:
99.99.999-9
9.99.99.99-9
99.999.99-9

Conforme o usu�rio consulta uma tabela diferente a m�scara do campo Tabela do dataset ValCod � alterada usando o c�digo abaixo no AfterScroll do dataset de tbTab:
tbValCodTabela.editmask := trim(tbTabMascCod.value)+�;0;_�;

Acho que essas informa��es podem lhe ajudar a encontrar um meio de ajustar seu problema.