Acomodo de Datos en Qreport

[david duarte]

Ok. muchas gracias!!!
lo voy a checar
lo acabo de checar con un dbgrid y me funciono a las mil maravillas, lo voy a aplicar en mi sistema y te digo como me fue.

Saludos!!!!

[david duarte]

Hola a todos!!!!

Acabo de platicar con mi jefe y me dijo que no era necesario tener los analisis extras en otra tabla, que los podia tener en la misma tabla, al fin y al cabo no son muchos los analisis que mandan a hacer, por lo que nada mas le voy a poner 5 campos mas a la tabla y ya.

pero ahora el problema que tengo es que no me caben los nombres de los analisis en forma horizontal, le cambie de formato al tamaño de la hoja(lo puse en horizontal), pero hay veces que ni siquiera así se alcanzan a mostrar todos, Alguien tiene una sugerencia???
La verdad es que creo que va a pasar lo mismo que cuando no popia mostrar los analisis en forma vertical, pero si alguien tiene alguna sugerencia, se los agradeceria.
Seguire investigando
Gracias!!!!
Saludos!!!

Edito

Lo que hice fue cambiarle el tamaño al font, pero no me ayudo de mucho, no me ahorra mucho espacio en forma horizontal

[[Lepe]]

Lamento responder tan tarde, supongo que ya se ha solucionado el problema. El tema está en que por alguna razón he perdido este hilo .

Si los nombres son muy grandes, puedes usar abreviaturas para los nombres de los campos, despues ajustar el DisplayWidth de cada campo para mostrar X carácteres. Puedes hacer una rutina que analice todos los valores de un Query y ajuste el DisplayWidth de cada campo a la cadena más larga, como son números siempre hará el ancho de columna más pequeño y podrá entrar más columnas en el informe.

Obviamente es una tarea costosa para el sistema, ya que se ha de recorrer todos las columnas por cada registro de la Query (dos For anidados). Otra forma que se me acaba de ocurrir, es crear Otra Query basada en los datos de la anterior y pedir el máximo a la base de datos:

Select Max(Length(campo1)) as Campo1, Max(Length(campo2)),...

Saludos y siento la tardanza.

[david duarte]

Hola!!!!

El problema es que si se seleccionan muchos analisis(no puedo abreviar el nombre de los analisis, lo que hice fue abreviar desde la tabla algunos campos, pero como comente anteriormente, no me fue de mucha ayuda), podrian no llegar a caber todos los analisis en el ancho de la hoja. Lo que comentas del fontwidth ya lo hice, analizo el ancho de cada columna y le pongo el tamaño (del campo) mas grande, pero ni asi funciona, no se que voy a hacer, no logro solucionar el problema.
Seguire investigando
Saludos!!!!

Muchas gracias por su tiempo y su ayuda.

[[Lepe]]

Imagino que cambiar la fuente al listado no es viable, porque se vería muy pequeño; tendrás que partir el informe en 2, 3 o 4 folios de ancho. El resultado será que primero imprime todos los registros (pero solo 10 columnas), y despues imprime todos los registros (pero solo las 10 columnas siguientes)

Ajustas el ancho para que se vean todos los datos, y ahora recorres las columnas sumando el Width de cada uno hasta llegar al ancho de la hoja.

Haces una consulta cuyo datasource sea la consulta donde tienes todas las columnas, pero solo seleccionas, digamos que caben las 10 primeras columnas, y esta consulta es la que imprimes. Lo digo así para que no tengas que crear otra consulta con el mismo where, además esta segunda consulta puede ser muy rápida porque ya los tienes los resultados.

Una vez finalizada la impresión, ahora cambias los nombres de los campos por las otras 10 columnas siguientes (o las que quepan) y vuelta a imprimir.

Saludos

[david duarte]

creo que me explique mal o no les entiendo=(

lo que yo quiero hacer es parecido a lo que hace el qreport horizontalmente cuando ya no le caben los datos en esa hoja ( cuando ya no le caben los datos, anexa otra hoja y sigue mostrando o imprimiendo los resultados en la(s) siguiente(s) hojas).

Creen que se pueda??
A ver si se me ocurre algo,

Y Perdon por la tardanza en responder.

Esta bien la respuesta que me dicen, pero el problema es cómo lo hago???
no encuentro la forma para hacerlo, tengo que seguir viendo las propiedades de la pagina del qreport

Muchas Gracias de nuevo
Saludos!!!

[[Lepe]]

Suponemos que queremos imprimir todos estos campos:

TeFolio            Numero    Nombre analisis   Posicion  Resultado

Pero los datos del campo TeFolio son muy largos y solo caben las dos primeras columnas en una página.

Armamos el SELECT:

Código SQL [-]
SELECT TeFolio, Numero    , Nombre ,analisis   ,Posicion  ,Resultado 
FROM TABLE

Imagina que tu query tiene 180 registros, y en cada página caben 60 registros (uno debajo de otro), así que debemos imprimir 3 páginas, pues no, sacamos 6 páginas:
- 3 páginas con las columnas: TeFolio y Numero
- otras 3 páginas más, con las columnas : Nombre, analisis, posicion, resultado.

Si coges la primera página y a su derecha pones la cuarta página, tendrás un registro completo con sus 6 campos.

Código Delphi [-]

uses quickrpt, qrextra, qrprntr, qrctrls;

procedure TForm1.Button2Click(Sender: TObject);
var q:TQuickRep;
    listaCampos:TStringList;
    i:Integer;
begin
   listaCampos:= TStringList.Create;
   try
      // lista de campos a incluir en el informe, como sabemos que solo caben 2, pues los 2 primeros
    listacampos.add('TeFolio');
    listaCampos.add('Numero');
    query1.Open;
    q:=nil;

// esto crea un listado con los campos que se le han dicho
    QRCreateList(tcustomquickrep(q),nil,query1,'Listado Principal',listaCampos);
    q.Print; 

   finally
      FreeAndNil(q);
   end;
// ya está impreso las 2 primeras columnas, ahora imprimimos el resto:
// el código es copy y paste, solo cambia los nombres del campo:
   try
      // lista de campos a incluir en el informe, el resto de campos, 
// por simplificar, estoy suponiendo que las 4 columnas caben en el ancho de una página
    ListaCAmpos.Clear;
    listacampos.add('Nombre');    
    listacampos.add('analisis');
    listaCampos.add('Posicion');
    listaCampos.add('Resultado');   
    query1.First; // volvemos al primer registro.
    q:=nil;

// esto crea un listado con los campos que se le han dicho
    QRCreateList(tcustomquickrep(q),nil,query1,'Listado Principal',listaCampos);
    q.Print; 

   finally
      FreeAndNil(q);
   end;

end;

Yo si entiendo lo que quieres hacer, pero no se puede hacer de forma automática, tienes que hacerlo tú a mano, y ésta es la solución que se me ocurre.

¿Se me entiende ahora?

Saludos