Ver Mensaje Individual
  #3  
Antiguo 29-12-2004
Putrum Putrum is offline
Registrado
 
Registrado: abr 2004
Ubicación: Barcelona
Posts: 7
Reputación: 0
Putrum Va por buen camino
Bueno, bueno, gracias por la rapida contestacion aunque era un poco mas complicado que eso.

Finalmente, y siguiendo por tu camino, puse en el tema de beforeprint que si el idtipo=3, que me ecriba las lines en un memo de la band summary y luego he puesto que printband=flase, de forma que no esriba esa linia en el detail. Si a alguien le va bien, aqui pongo el codigo

Código:
procedure TForm11.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if (query1.FieldByName('idtipo').AsString= '3') then begin
	sumdesc.Lines.Add(query1.fieldByname('descripcio').asString);
	sumuni.Lines.Add(query1.fieldByname('unitats').asString);
	sumpreu.Lines.Add(query1.fieldByname('preu').asString);
	sumtotal.Lines.Add(query1.fieldByname('total').asString);
	printBand:=false;
  end;
end;
De momento parece que funciona aunque es una solucion no muy buena. Supongo que para un campo me iria bien tu solucion (que ya habia pensado), pero con varios y a mas que se repitan no.
La verdad es que el quickreport que trae el delphi 5 deja un poco que desear.
En fin....
Buenas uvas y gracias
Responder Con Cita