Re: RES: [delphi-br] QuickReport: Formatacao display
Rubem,
Ja descobri a besteira que eu fiz. Grato pela dica
Milton
Rubem Rocha <[EMAIL PROTECTED]> wrote:
Dá pra resolver sem alterar nada no relatório. Como? Basta definir o seguinte código
no evento OnGetText do objeto TField associado ao campo que você quer formatar:
{ Assumo que o clientdataset do relatório está em um data module, e que nesse
ClientDataSet está definido um campo no
Fields Editor (pra melhor entendimento) de nome CNPJ. Altere este código para a sua
necessidade. Também é necessário
fazer um uses na unit MaskUtils (ou Mask, dependendo da versão do Delphi que vc usa)
}
procedure TDataModule1.ClientDataSet1CNPJGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := FormatMaskText('99\.999\.999\/\-99;0;_', Sender.AsString);
end;
Dessa forma, não precisa configurar nada no QRDBText que é usado pra imprimir o campo.
O peixe, mais uma vez, foi pescado!
[]s
-Mensagem original-
De: Milton Matsunaga [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 20 de setembro de 2004 14: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]
Yahoo! Grupos, um serviço oferecido por:
-
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 Termos do Serviço do Yahoo!.
-
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
<*> 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
Re: RES: [delphi-br] QuickReport: Formatacao display
Rubem,
Fiz as alteracoes e esta dando "invalid class typecast". (Uso o Delphi 7 Prof).
Milton
Rubem Rocha <[EMAIL PROTECTED]> wrote:
Dá pra resolver sem alterar nada no relatório. Como? Basta definir o seguinte código
no evento OnGetText do objeto TField associado ao campo que você quer formatar:
{ Assumo que o clientdataset do relatório está em um data module, e que nesse
ClientDataSet está definido um campo no
Fields Editor (pra melhor entendimento) de nome CNPJ. Altere este código para a sua
necessidade. Também é necessário
fazer um uses na unit MaskUtils (ou Mask, dependendo da versão do Delphi que vc usa)
}
procedure TDataModule1.ClientDataSet1CNPJGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := FormatMaskText('99\.999\.999\/\-99;0;_', Sender.AsString);
end;
Dessa forma, não precisa configurar nada no QRDBText que é usado pra imprimir o campo.
O peixe, mais uma vez, foi pescado!
[]s
-Mensagem original-
De: Milton Matsunaga [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 20 de setembro de 2004 14: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]
Yahoo! Grupos, um serviço oferecido por:
-
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 Termos do Serviço do Yahoo!.
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[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
<*> 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
RES: [delphi-br] QuickReport: Formatacao display
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
RES: [delphi-br] QuickReport: Formatacao display
Dá pra resolver sem alterar nada no relatório. Como? Basta definir o seguinte código
no evento OnGetText do objeto TField associado ao campo que você quer formatar:
{ Assumo que o clientdataset do relatório está em um data module, e que nesse
ClientDataSet está definido um campo no
Fields Editor (pra melhor entendimento) de nome CNPJ. Altere este código para a sua
necessidade. Também é necessário
fazer um uses na unit MaskUtils (ou Mask, dependendo da versão do Delphi que vc usa)
}
procedure TDataModule1.ClientDataSet1CNPJGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := FormatMaskText('99\.999\.999\/\-99;0;_', Sender.AsString);
end;
Dessa forma, não precisa configurar nada no QRDBText que é usado pra imprimir o campo.
O peixe, mais uma vez, foi pescado!
[]s
-Mensagem original-
De: Milton Matsunaga [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 20 de setembro de 2004 14: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
