[Loviedo]

Código Delphi [-]
{ Event for DataBand1.OnBeforePrint }
function DataBand1_OnBeforePrint(Self: TRaveDataBand);
begin
 if dataview1haber.asfloat < 0 then
   datatext5.color := clred;
 else
   datatext5.color := clblack;
 end if;
 if dataview1debe.asfloat < 0 then
   datatext4.color := clred;
 else
   datatext4.color := clblack;
 end if;
end OnBeforePrint;