Bom! eu crio um campo calculado no sql e no
OncalFields do SQL eu chamo essa rotina.
QYSelRegCGCCPF_.AsString := ECgcCpf(QYSelRegCGCCPF.AsString);
function ECgccpf(cCGCCPF: String ): String;
begin
if Length(Trim(cCGCCPF)) = 11 then
result := copy(cCGCCPF, 1,3)+'.'+
copy(cCGCCPF, 4,3)+'.'+
copy(cCGCCPF, 7,3)+'-'+
copy(cCGCCPF,10,2)
else
if length(Trim(cCGCCPF)) = 14 then
result := copy(cCGCCPF, 1,2)+'.'+
copy(cCGCCPF, 3,3)+'.'+
copy(cCGCCPF, 6,3)+'/'+
copy(cCGCCPF, 9,4)+'-'+
copy(cCGCCPF,13,2)
else
result := cCGCCPF;
end;
-----Mensagem original-----
De: Milton Matsunaga [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 20 de setembro de 2004 15:11
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] QuickReport: Formatacao display
Ola,
Nao estou conseguindo formatar um campo (CNPJ, por exemplo) no
QuickReport. O relatorio esta ok, falta somente formatar como
"12.123.123/1234-12" ao inves de "12123123123412". Alguem ajuda este
novato?
(Tentei usar a propriedade Mask do TQRDBText mas não consegui...)
Tenho um DataModule com SQLConnection, SQLDataSet, DataSetProvider e
ClientDataSet;
O Relatorio assinalado para o ClientDataSet;
Uso D7Prof, Firebird, DBX;
Milton Kiyoshi Matsunaga
Analista de Sistemas
[EMAIL PROTECTED]
---------------------------------
Yahoo! Messenger 6.0 - jogos, emoticons sonoros e muita diversão.
Instale agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
