Fórum Script Brasil > (Resolvido) Formatar Cnpj

Versão Completa: (Resolvido) Formatar Cnpj

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

Eder

31/10/2008 - 15:29

Ola..

Tenho um QrDbText do Quick que recebe o valor que é um CNPJ(campo tipo numerico).
ele aparece assim no relatorio (formato): 82653653000100

mas eu gostaria de por uma maskara ou formar para ficar assim:

82.653.653/0001-00

mas não to conseguindo....

já tentei de vários formas uma delas foi esta:

CODE

procedure TFormPOCompra.QRDBText13Print(sender: TObject;
var Value: String);
begin
Value := FormatFloat('00.000.000/0000-00',StrToFloat(Query1[QrDBtext13.DataField]));
end;

mas não funca certo...sai tudo misturado.

Grato

Jhonas

31/10/2008 - 16:42

Uma das maneiras:

CODE

Function FormataCNPJ(CNPJ : string): string;
begin
   Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := '82653653000100';
   Label1.Caption := FormataCNPJ(Edit1.Text);
end;

outra maneira:

CODE

procedure TForm1.Button2Click(Sender: TObject);
begin
   Maskedit1.EditMask:='00.000.000/0000-00;0';
   Maskedit1.Text := Edit1.Text;
   Label1.caption := Maskedit1.Text;
end;

abraço

Eder

03/11/2008 - 13:13

Ola..Jonas

Só para Completar caso alguém precise.

Eu cima da tua idéia fiz assim:

//função para formatar o cnpj

CODE

Function FormataCNPJ(CNPJ : string): string;
begin
Result :=Copy(CNPJ,1,2)+'.'+Copy(CNPJ,3,3)+'.'+Copy(CNPJ,6,3)+'/'+Copy(CNPJ,9,4)+'-'+Copy(CNPJ,13,2);
end;

//função para formatar o CPF

CODE

Function FormataCPF(CPF : string): string;
begin
Result :=Copy(CPF,1,3)+'.'+Copy(CPF,4,3)+'.'+Copy(CPF,7,3)+'-'+Copy(CPF,10,2);
end;

Para Comparar se é CNPJ OU CPF e Chamar:

CODE

procedure TFormPOCompra.QRDBText13Print(sender: TObject;
  var Value: String);
begin
{Formata o CNPJ e CPF}
IF (Length(Value)=14) THEN
Begin
  Value := FormataCNPJ(value);
end
   Else
Begin
  Value := FormataCPF(value);
End; End;

valeu..Carinha...Agradecido.

Abraço

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.