Manuel
16-01-2007, 15:05:31
Hola amigos del club, estoy desaarrollando un informe en freereports, esta casi terminado pero he chocado con algunos detalles que no he podido superar, trabajo en quickreports, pero por un problema de impresión de las hojas legales en forma horizontal, he decido hacerlo en este otro reporteador, pero es otra historia. Ahora mi problema es el siguiente, este reporte informa de calificaciones con este formato "0.0", todo bien hasta que sucede lo siguiente que una calificación venga vacía o sea en 0 (cero), me imprime en 0,0, para solucionar esto realizó lo siguiente en el evento onprint.
procedure TFActas2.QRDBText29Print(sender: TObject; var Value: String);
begin
if value = '0.0' then value := ''
else if value = '-1.0' then value := 'Ex.'
end;
no tengo problemas, pero como hago algo similar en freereports?, gracias por su ayuda amigos.
procedure TFActas2.QRDBText29Print(sender: TObject; var Value: String);
begin
if value = '0.0' then value := ''
else if value = '-1.0' then value := 'Ex.'
end;
no tengo problemas, pero como hago algo similar en freereports?, gracias por su ayuda amigos.