Fórum Alteração de valor para impressão no Quick Report #190932
27/10/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
29/10/2003
Fabio.hc
Tente assim:
-No evento onPrint do QRDBText.
-No evento onPrint do QRDBText.
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String); begin Value:=´Caixa´; end;
Responder
Gostei + 0
29/10/2003
Luciano Alves
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;
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;
Responder
Gostei + 0
29/10/2003
Fabio.hc
Tente assim:
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
if value = ´VENDA A VISTA´ then
Value:=´CAIXA´;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)