Agregar hojas en qreport

[jachguate]

Con NewPage forzas que el siguiente detalle, si lo hay, se imprima en una nueva página. QReport imprime los pies de página correctamente al llamar al método (según recuerdo).

El OnNeedData es un evento que se utiliza cuando imprimis un reporte que no está conectado directamente a un DataSet. Valiendose de él, podrias imprimir, por ejemplo, el contenido de un string grid, o un archivo de texto.

Saludos.

[*Caro*]

Hola Jackguate, me podrias indicar porfavor como podria imprimir un archivo de texto con el OnNeedData del qreport

Gracias por adelantado

[jachguate]

Empezado por Caro

Hola Jackguate

Hola Caro, supongo que me hablas a mi: jachguate, ¿cierto?

Añadí una banda de detalle al reporte, con un TQRLabel, que se llamará qrlLinea; y se implementará los métodos BeforePrint, para abrir el archivo, OnNeedData para imprimir cada línea y AfterPrint para cerrar el archivo. También añadiremos un miembro en la parte privada de la clase, de nombre FTexto y tipo TextFile

El código quedará algo asi:

Código Delphi [-]
procedure TQuickReport2.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  AssignFile(FTexto, 'c:\datos.txt');
  ReSet(FTexto);
end;

procedure TQuickReport2.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
var
  linea : string;
begin
  MoreData := not eof(FTexto);
  if MoreData then
  begin
    ReadLn(FTexto, Linea);
    qrlLinea.caption := Linea;
  end;
end;

procedure TQuickReport2.QuickRepAfterPrint(Sender: TObject);
begin
  CloseFile(FTexto);
end;

No he comprobado nada, así que el código podria contener errores de sintaxis, y hasta lógicos, pero la idea es esa. Con el tema comprendido, podras corregirlos (si los hay) por tus propios medios.

Hasta luego.

[*Caro*]

Muchisimas Gracias amigo jachguate

[david duarte]

Hola!!!!

aqui de nuevo, he estado un poco atareado con esto de los reportes, y no habia tenido tiempo de revisar esta pagina(un poco ironico, la verdad es que me urge y no me ha dado tiempo de checar) =) verdad??

Consegui lo siguiente:

encontre buscando por mucho tiempo en internet como hacerle para añadir una pagina nueva

se añade lo siguiente:
QRBand.ForceNewPage := True;

se supone que con esa linea te añade una pagina nueva, si me la añade, pero no puedo crear las labels(en tiempo de ejecucion) en esa pagina, ademas la pagina me la añade en la primera parte (la pagina que añadi, pasa a ser la primera) y en donde tenia mis datos pasa a ser la segunda.

Alguien sabe como hacere para crear las labels en la pagina nueva???

La verdad es que estoy hecho un lio con esto de qreport, pero bueno, al cliente lo que pida. jejeje
Gracias.
Cómo te sientes hoy??

[jachguate]

Empezado por david duarte

La verdad es que estoy hecho un lio con esto de qreport, pero bueno, al cliente lo que pida. jejeje
Gracias.
Cómo te sientes hoy??

Creo que el problema va por alli... quizas no necesitas una página nueva. Por que no mejor contas que es lo que te está pidiendo tu cliente y seguro alguien te echa un cable por aqui.

Saludos.

[david duarte]

Mira, lo que pasa es que tengo una base de datos(de el cliente) que es una empresa que hace analisis de polimero, telas, hilo.

entonces lo que quieren es que se haga un reporte con todos los analisis de las muestras.

esto es, cada muestra puede tener n analisis y a esas muestras les pueden hacer n pruebas a cada analisis, ej.

por ej, en este, son 1 muestras y se le realizaron 3 analisis y a cada analisis se le realizaron 5 pruebas

Folio   Posicion Numero analisis1  analisis2 analisis 3
  1	    3a		 01	   2.25	  6.25	   8.45
  1	    2a		 02	  48.25	  ---	  98.35
   1	    5a		 03	  58.55	  6.66	  ---
   1	    6a'	    04		 6.45	6.56	   6.94
   1	    4a		 05	   4.25	  1.25	   6.25
 ......
 ......
 .....

pero las pruebas pueden ser desde 1 hasta n (maximo aprox 70).

Lo que hago en el qreport es crear los labels de los resultados en tiempo de ejecucion, pero si son 50 pruebas, las labels se pasan del alto de la banda de detalle....

cuando pase es ,lo que quiero es crear una nueva pagina y continuar creando los labels en esa pagina.

Espero que me haya ententido.

Gracias.

Cómo te sientes hoy??