Substituir valores no QReport

Delphi

12/02/2003

Ola pessoal, alguem saberiame dizer como eu faço para mostrar um valor no QuickReport ao inves do que esta no banco de Dados..
Por Ex.:
Tenho um campo chamado CIC, e estou gerando um relatorio que me exiba os dados da pessoa. Mas no caso de o pessoa nao ter o CIC, iria aparecer em branco no relatorio, e eu gostaria que aparecece ´Cic nao cadastrado´ ao inves de ´nada´..
Como posso fazer isso?
Obrigado por enquanto..
Renato


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

12/02/2003

No evento OnBeforePrint da Banda (Detail/SubDetail), voce faz a validacao para saber se tem CIC cadastrado. Se tiver, atribui o CIC ao campo QrText.Caption (ou QrText.Text, não me lembro bem). Se nao tiver, é só atribuir a string que voce quiser.


GOSTEI 0
Anonymous

Anonymous

12/02/2003

use o evento OnPrint do do QRDBText, atribuindo o texto que você quiser para Value. Funciona muito melhor que no OnBeforePrint da Banda


GOSTEI 0
Anonymous

Anonymous

12/02/2003

Vou tentar

Obrigado;;


GOSTEI 0
Anonymous

Anonymous

12/02/2003

:cry:
Tentei dos dois jeitos mas nao deu certo..
Existe alguma outramaneira?
Obrigado.


GOSTEI 0
Mardônio

Mardônio

12/02/2003

Tente trabalhar com o evento OnGetText do componente de dados em questão.

Exemplo:

if Sender.IsNull then
Text := ´CIC não cadastrado.´

Espero ter ajudado, qualquer dúvida escrevar.

Atenciosamente,

Mardônio Cavalcante


GOSTEI 0
Anonymous

Anonymous

12/02/2003

Crie um campo calculado na Query ou Table em questao, para receber o CIC.

E no Evento OnCalcFields escreva a seguintes linhas:

if QueryCIC.Value = ´´ then
QueryCampoCalculado.Value:=´CIC nao cadastrado´
else
QueryCampoCalculado.Value:=QueryCIC.Value;

OK!!!

Francisco Brito


GOSTEI 0
POSTAR