Alteração de valor para impressão no Quick Report

Delphi

27/10/2003

Boa tarde!

Tenho um banco de dados Interbase, e como exemplo, tenho um valor no campo Cliente chamado ´Venda a Vista´ (string). Como faço para que na impressão ou vizualização através do Quick Report apareça um outro valor, como por exemplo, ´Caixa´.

Não consigo achar uma solução, e não gostaria de mudar o valor no banco, pois é apenas para um relatório que deverá ser impresso com esta alteração.

Aguardo um breve retorno.


Luciano Alves

Luciano Alves

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

27/10/2003

Tente assim:
-No evento onPrint do QRDBText.

procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
   Value:=´Caixa´;
end;



GOSTEI 0
Luciano Alves

Luciano Alves

27/10/2003

Obrigado pela atenção Fábio!

Acho que está incompleto, pois tenho que fazer uma comparação entre o conteúdo do QRDBTEXT, o que não estou conseguindo. Oha o que eu tentei e não consegui:

if qVendaNome_Cliente.Caption = ´VENDA A VISTA´ then
Value := ´CAIXA´
end;


GOSTEI 0
Fabio.hc

Fabio.hc

27/10/2003

Tente assim:
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); 
begin 
   if value = ´VENDA A VISTA´ then
      Value:=´CAIXA´; 
end;



GOSTEI 0
POSTAR