ActiveDelphi

[mtagliari2]

Olá...

Fiz a burrice de gravar os dados no banco de dados com a máscara. Então ao invés de gravar somente os números, ele gravou também as máscaras, como no caso do CNPJ 44.444.444/000-03.

Gostaria de saber se é possível criar um loop para ler todos os dados da tabela e retirar os pontos, barras e traços mas manter a informação original, ou seja, os números em si.

Obrigado.

Matheus

[karlosrapanui]

Tente assim

Utilizando IBDataSet

procedure TfrmFormPrincipal.Button1Click(Sender: TObject);
var
CNPJ, CNPJnum : String;
i : integer;
begin
IBDATASET1.Open;
while not IBDATASET1.Eof do begin
CNPJ := IBDATASET1.FieldBYName('CNPJ').AsString;
CNPJnum := '';
for i := 1 to length(CNPJ) do
if CNPJ[i] in ['0'..'9'] then
CNPJnum := CNPJnum + CNPJ[i];

while length( CNPJnum ) < 17 do

CNPJ := copy( CNPJnum,1,2 )+copy( CNPJnum ,4,3 )+copy( CNPJnum, 8,3)+copy(CNPJnum,12,3)+copy(CNPJnum,16,2);

IBDATASET1.Edit;
IBDATASET1.FieldBYName('CNPJ').AsString := CNPJ;
IBDATASET1.Post;
IBDATASET1.Next;
end;
ShowMessage('OK...');
end;


Não testei, mas qualquer coisa, só adaptar.



Tambem da pra fazer dessa maneira, direto no sql

UPDATE TABELA SET CNPJ =
SUBSTRING(CNPJ FROM 1 TO 2)||
SUBSTRING(CNPJ FROM 4 TO 3)||
SUBSTRING(CNPJ FROM 8 TO 3)||
SUBSTRING(CNPJ FROM 12 TO 4)||
SUBSTRING(CNPJ FROM 17 TO 2)
WHERE
SUBSTRING(CNPJ FROM 3 TO 1) = ´.´ AND
SUBSTRING(CNPJ FROM 7 TO 1) = ´.´ AND
SUBSTRING(CNPJ FROM 11 TO 1) = ´/´ AND
SUBSTRING(CNPJ FROM 16 TO 1) = ´-´


Dica retirada do post
http://www.devmedia.com.br/forum/remover-caracteres-com-update/316287


[]'s

Carlos

[mtagliari2]

Obrigado amigo!!

O programinha em delphi não funcionou, ele trava... O sql me dá erro de execução... Vou tentar novamente, veremos!!

[adriano_servitec]

[mtagliari2]

Resolvido, Obrigado!!!!

[mtagliari2]

Adriano, seria possível vc me explicar um pouco da logica dessa função?

[adriano_servitec]

[mtagliari2]

Ahh, entendi! Então se fosse CPF, teriamos a posição 4, 8 e 12 para retirar os pontos e o traço, certo?

[adriano_servitec]