Acomodo de Datos en Qreport

[[fjcg02]]

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]]

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]]

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]

OK. Gracias

Lo voy a revisar y a cambiarle unas cosas.

Gracias.

Cómo te sientes hoy?

[david duarte]

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]]

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]

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]]

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

[david duarte]

Hola Lepe, gracias por tu ayuda, pero creo que lo que yo quiero es que los analisis salgan en posicion horizontal, no vertical.

Creo que ya logre solucionarlo, al menos en la primera linea de los resultados.

Lo que me hacia era que el ultimo campo, al momento de pasar al siguiente registro, me lo bajaba a la siguiente linea, por lo tanto se traslapaba con el primer resultado de la posicion.

Lo que hice es que al final de recorrer los campos de la tabla, genero un label en blanco, nada mas lo creo

Código Delphi [-]
  lab := TQRLabel.Create(QRBResultados);

y ya.

por lo que veo, es que si el ultimo label se baja, como no tiene nada de datos, aunque se traslape, pues no se verá.

Necesito que me digan si esta bien la solucion o existe otra mas facil(ya se que me han dicho otras cosas).

les anexo las imagenes para que las chequen como quedó, y vean las anteriores para que comparen.

Ahora lo que necesito es que las labels de los resultados queden abajo de los nombre de los analisis.

Gracias

Cómo te sientes hoy?