Acomodo de Datos en Qreport

david duarte · #1 13-10-2005

Hola!!!
La form que tiene el qreport se genera desde que se carga el proyecto, y esta forma la mando llamar desde otra forma que tengo que es form_opcion(en esta forma aparecen dos botones los cuales son: capturar datos o ver reporte), y cuando le das clic en ver reporte utilizo esto:

Código Delphi [-] procedure Tform_opcion.btnversolicitudClick(Sender: TObject);
 begin
   frm_reporte2.show;

y en la frm_reporte2 en la propiedad OnShow manejo lo que es la creacion de las labels

Código Delphi [-]procedure Tfrm_reporte2.FormShow(Sender: TObject);
 Var
   b : Boolean;
   fol : String[9];
   cont, arriba, izq, campos,registros : Integer;
 //  long : Integer
 begin
   arriba :=0;
   izq :=10;
   cont :=0;
   registros :=0;
   campos :=0;
   if (form_opcion.label1.Caption[1] = 'T') then
   Begin
     b := modulotablas.tbltextil.Locate('LabFolio', form_opcion.label1.caption, [locaseInsensitive]);
     if (b) then
     Begin
       frm_reporte2.qrlaboratorio.Caption := frm_reporte2.qrlaboratorio.Caption + ' Textil';
       frm_reporte2.qrmlblfecha.Caption := modulotablas.tbltextil.FieldByName('Fecha').value;
       frm_reporte2.qrmlblfolio.Caption := modulotablas.tbltextil.FieldByName('LabFolio').value;
       frm_reporte2.qrmlblsolicitante.Caption := modulotablas.tbltextil.FieldByName('Solicitante').value;
       frm_reporte2.qrmlbltipomuestra.Caption := modulotablas.tbltextil.FieldByName('Tipo_muestra').value;
       frm_reporte2.qrmlbldeptosol.Caption := modulotablas.tbltextil.FieldByName('Depto_sol').value;
       frm_reporte2.qrmlblpruebasol.Caption := modulotablas.tbltextil.FieldByName('Pruebas').value;
       frm_reporte2.qrmlblobjetivo.Caption := modulotablas.tbltextil.FieldByName('Objetivo_trab').value;
       frm_reporte2.qrmlblfechaent.Caption := modulotablas.tbltextil.FieldByName('Fecha_ent').value;
       modulotablas.resul_textil.First;
       fol := modulotablas.resul_textil.FieldByName('LabFolio').value;
       cont := 1; //cont1 se utiliza para manejar el ciclo del numero de muestras del pre
       while fol <> form_opcion.label1.Caption do
       Begin
         modulotablas.resul_textil.Next;
         fol := modulotablas.resul_textil.FieldByName('LabFolio').value;
       end;
       {ciclo para mostrar los analisis que seleciono el usuario}
       if ((fol = form_opcion.label1.Caption) and (registros < modulotablas.resul_textil.RecordCount)) then
       Begin
         {si contador es menot que los campos que tiene la base de datos}
         if (cont <= modulotablas.resul_textil.FieldCount-2) then
         Begin
           {mientras campos sea menot que fieldcount}
           while campos < modulotablas.resul_textil.FieldCount-1 do
           Begin
             {si modulotablas en el campo de contados esta seleccionado entonces}
             if modulotablas.resul_textil.FieldByName(modulotablas.resul_textil.FieldDefs.Items[cont].DisplayName).value <> 'x' then
             Begin
               lab := TQRlabel.Create(QRBResultados); //se crea la label en el QRBResultados
               lab.Top := arriba;
               lab.Left := izq;
               lab.Caption := modulotablas.resul_textil.FieldDefs.Items[cont].DisplayName;
 //              long := length( modulotablas.resul_textil.FieldDefs.Items[cont].DisplayName);
               lab.Parent := frm_reporte2.QRBResultados;
               izq := izq + 5 + FontWidth(lab.Font,lab.Caption);
               cont := cont+1;
               campos := campos +1;
             end //modulotablas.resul_textil.FieldByName(modulotablas.resul_textil.FieldDefs.Items[cont].DisplayName).value <> 'x' then
             else
             Begin
               cont := cont+1;
               campos := campos +1;
             end;
           end; //while campos < modulotablas.resul_textil.FieldCount-1 do
           modulotablas.resul_textil.Next;
         end //if (cont1 <= modulotablas.tbltextil.FieldByName('Num_muestras').value) then
       end; //while ((fol = label1.Caption) and (modulotablas.resul_textil.
 
 end //if (b) then
     else
       ShowMessage ('No se encuentra el folio solicitado');
   end; //if (label1.Caption[1] = 'T') then
   frm_reporte2.QuickRep1.Preview; <----- PREVIEW
   form_opcion.Hide;

en este caso manejo el mismo procedimiento para mostrar el reporte la 1a vez que la 2a y 3a, etc...

Ahora para destruir los labels lo hago despues del AfterPreview

Código Delphi [-] procedure Tfrm_reporte2.QuickRep1AfterPreview(Sender: TObject);
 var
   contlabels : Integer;
 begin
  frm_reporte2.Hide; //ocultamos la forma donde se encuentra el reporte
   contlabels := frm_reporte2.QRBResultados.ComponentCount;// contamos los componentes en este caso son las labels
   while contlabels > 0  do// ciclo para liberar las labels
   Begin
     frm_reporte2.QRBResultados.Components[contlabels-1].Free;
     contlabels:= frm_reporte2.QRBResultados.ComponentCount;
   end; //while contlabels > 0  do
   frm_reporte2.qrlaboratorio.Caption := 'Laboratorio ';
   frmana.show;
 end;

Espero que me hayan entendido

Les doy las gracias por tomarse el tiempo de revisar mi codigo.

Gracias

Cómo te sientes hoy?

[fjcg02] · #2 14-10-2005

Efectivamente, tal y como yo lo he preparado, cada vez que ejecuto el listado, genero el form, porque ¿ para que voy a gastar recursos del pc si no los necesito?. Una vez terminado, se destruye. Por lo tanto, no tengo que preocuparme de liberar, no liberar, ...

No he podido coger el código, pero esta tarde podré y lo colgaré para que le echeis un vistazo, con un ejemplo de llamada.
En los programas que hago, generalmente pongo un módulo de listados ( "Cuadro de Mando" para los responsables ) que cogen las querys de una tabla, cuyo resultado presento en un grid; desde un botón llamo a la función con los parámetros correspondientes si se desea imprimir ( los parametros están tanbién en la misma tabla, por supuesto). De esta manera, para añadir un listado en el programa, solo tengo que añadir un registro en la tabla de listados, y no tengo que recompilar el programa y distribuirlo. Con una pequeña entrevista con los clientes, en una tarde puedes definir todos los listados que necesite y darlos de alta en la tabla. El programa no cambia. De todas maneras, no flipeis, que los listados son muy simples, pero efectivos. Soy de la opinion de que en un programa/aplicación empresarial lo importante son los datos, no las presentaciones.

Tendreis noticias, un saludo
PD: Cuando empecé a desarrollar la idea me llamaron 'tarao', pero al final es una manera muy útil de sacar la información en papel. Antes haciamos los programas, y posteriormente tardabamos el doble de tiempo una vez desarrollado haciendo listados de todo tipo.

[Lepe] · #3 14-10-2005

Cita:

Empezado por david duarte

Hola!!!
La form que tiene el qreport se genera desde que se carga el proyecto, y esta forma la mando llamar desde otra forma que tengo que es form_opcion(en esta forma aparecen dos botones los cuales son: capturar datos o ver reporte), y cuando le das clic en ver reporte utilizo esto:

Ahí mismo tienes el fallo. Como dice fjcg02, quita el formulario de informes de Projects --> options --> autocreate y dejalo en Available.

Cuando lo necesites lo llamas así (suponiendo que los nombres son estos):

Código Delphi [-]Application.CreateForm(Tfrmreporte2, frmReporte2);// tipo de form, variable

y en el Onclose:

Código Delphi [-]action := cafree;
frmReporte2:= nil;

De esta forma el Reporte consume memoria, solo cuando lo necesites ver.

[fjcg02] · #4 14-10-2005

Ya teneis el código, perfectamente utilizable, con ejemplo y todo.

Queda por hacer:
- hacerlo como un componente.
- mirar tal y como dice Lepe cómo se generan los titulos, campos, ... Si se crean con campo:= TQRLabel.Create(Banda), no seria necesario crear los arrays y destruirlos.
- Ajustar alguna cosilla

Este es un ejemplo ampliado. Permite imprimir y exportar a Excel, seleccionar los campos a listar, etc. Si en la llamada el primer parametro es falso, imprime directamente, si no saca la ventana para elegir campos. Los campos en rojo son los que se totalizan, ...
Si le lavais la cara a la ventana, marcaros un tanto en la oficina.

Este código es jamonware, o sea, que me podeis mandar un jamón. Mi mujer y yo os lo agradeceremos

Si los administradores del foro lo quieren publicar, pues que lo hagan , les doy mi permiso, ya que la idea la tenía, pero la forma y el cómo la di tras leer el hilo que doy de referencia.

Un saludo y que lo disfruteis

david duarte · #5 17-10-2005

OK. Gracias

Lo voy a revisar y a cambiarle unas cosas.

Gracias.

Cómo te sientes hoy?

david duarte · #6 18-10-2005

Hola!!!! fjcg02

ya revise tu codigo y me parece perfecto, pero hay una cosa!!!

Sigo sin entender como hacerle para que las labels no se te traslapen??

he seguido haciendo pruebas, pero al momento de crear la segunda hilera de labels, todas se me traslapan, ya estoy un poco fastidiado con eso, me tiene estresado.

Pero asi es esto, hay que seguir a prueba y error.

Gracias
Vi las funciones de ancho de caja y otras, pero verdaderamente estoy hecho un lio.

Cómo te sientes hoy?

Acabo de fijarme en algo, esta chistoso

Al momento de crear todas las labels del nombre de los analisis, que van en la primera fila, cuando se crean, todo esta perfecto, pero al momento de crear las labels para mostrar los resultados, se baja el ultimo nombre del analisis a la label del primer resultado y por lo tanto se enciman.
Alguien sabe porque???

Gracias
Cómo te sientes hoy?

Les mando las imagenes en zip para que las cheques

el primero es grid_res, que es donde tengo la informacion como debe de quedar.

la segunda imagen es qrp_antes, esta imagen como puedes ver, se muestran bien los titulos de los analisis a realizar, son los ultimos

y la 3a imagen es qrp_c_resultados, si te fijas bien, el nombre del ultimo analisis se bajo a la linea siguiente y los resultados no se muestran bien, las rayas '----' son los analisis que todavia no tienen resultados.

Gracias
Cómo te sientes hoy??

[fjcg02] · #7 18-10-2005

Perdona, pero creo que estamos en dimensiones diferentes.
Intuyo que lo que quieres es realizar un listado que no coincide con el que te he pasado. El mio es para sacar una fila de datos por registro, hacer totales, etc, una cosa sencilla. Creo que tú quieres imprimir tus datos en un informe tipo factura, más elaborado, en el que las bandas de cabecera, cuerpo etc, tienen un diseño más alborado.
No te acabo de entender del todo, por lo que no puedo ayudarte ( siempre y cuando sepa ) a no ser que me des más información.

Un saludo

david duarte · #8 18-10-2005

es mas o menos parecido al tuyo

mira, como comentaba al principio de este hilo, tengola tabla de resultados con los siguientes datos(Paradox).

Folio -> folio de la solicitud
Num -> numero de muestra a analizar
Posicion -> numero de la posicion de la muestra (las muestras tienen una posicion, ya que son de unas maquinas de hilo, y existen muchas maquinas de hilo con muchas posiciones).
Analisis1 -> aqui manejo 'o' para saber si esta seleccionado y se va a capturar los resultados o 'x' para ver que no esta seleccionado y no se va a realizar analisis de este.
Analisis2 ->
etc.

y para cada muestra, tiene un registro.

p.e.

me traen una 3 muestras para hacerles el analisis1, analisis2, analisis 4 y analisis 6, (folio1) y me traen otros analisis con 2 muestras, analisis: 1,3,5(folio 2)
entonces en la tabla voy a tener lo siguiente (cuando apenas se de de alta)

Código Delphi [-]  Folio     Num   Posicion   Analisis1   Analisis2   Analisis3  Analisis4   Analisis 5   Analisis6
   1    01      o          o           o          x           o           x            o
   1    02      o          o           o          x           o           x            o 
   1    03      o          o           o          x           o           x            o
   2    01      o          o           x          o           x           o            x
   2    02      o          o           x          o           x           o            x

etc.. puedes tener x folios. La posicion siempre tiene que estar seleccionada.

Entonces p.e. si quiero ver el reporte del folio 1, me tiene que aparecer...

Analisis Seleccionados : 1, 2, 4, 6

en la parte de resultados (en caso de que tengan resultados capturados), te aparecera la posicion y el resultado de el analisis que ya se realizo y en caso de que no se haya realizado ese analisis, te debera de aparecer en blanco o te aparecera '----'.

Código Delphi [-]  Posicion       Analisis1    Analisis2   Analisis4     Analisis6
    3a        ---        3.25      4.25       ----
    1a       1.25       ----       6.25      -----
    1a'       ----       ----       ----      -----

aqui no se ha realizado el analisis6.

y asi es como debe de aparecer en el qreport, pero no me queda. se traslapan las labels de los resultados.

Gracias

Espero que me entiendas me puedas ayudar!!!!

Cómo te sientes hoy??

[Lepe] · #9 18-10-2005

Pues sinceramente creo que te estas complicando la vida. El primer mensaje que puse hablando del QrCreateList hace exactamente eso.

Lo único es montar una consulta, del tipo

Código SQL [-]select * from tabla where folio = 1

Ahora creas un TStringList, y añades los campos:
Analisis1
Analisis2
Analisis4
Analisis6

Llamas a la función qrCreateList, y ya tienes generado el listado.

Si acaso, puedes recorrer los datos antes de hacer el preview, para que el campo que sea nulo, ponerle los guiones '----', si no lo haces, saldrá un 0 (que tampoco es tan grave).

En apens 15 lineas de código lo tienes hecho.

saludos

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Modo Híbrido Cambiar a Modo Hilado