OnNeedData

[pedralli 0]

Boa Tarde Galera!

 

Fiz um relatório no QReport de um livro caixa. Os dados são retirados de um componente Query e jogados numa band rbDetail.

Tenho os dados ENTRADAS, SAIDAS e SALDO.

O problema é o seguinte:

Quero que, quando o valor em saldo for negativo, a cor do meu QRDBTEXT fique vermelha. Caso for positivo, azul.

 

Tentei colocar o seguinte no evento OnNeedData do QuickRep1:

 

procedure Timp_caixa.QuickRep1NeedData(Sender: TObject;

var MoreData: Boolean);

begin

MOREDATA := not f_cons_caixa.Query1.Eof;

if f_cons_caixa.Query1SALDO.Value <=0 then

begin

QrDBText9.Font.Color:=clRed;

f_cons_caixa.Query1.Next;

end

else

begin

QrDBText9.Font.Color:=clblue;

f_cons_caixa.Query1.Next;

end;

end;

 

Mas nada ocorre. A fonte fica na cor original mesmo (clBlack). Help! Obrigado!

[Pantoja 5]

esse evento NEEDDATA é disparado qdo amigo?