Acomodo de Datos en Qreport

[david duarte]

Hola!!!!

Perdon por responder hasta hoy, pero estaba ocupado con este proyecto que me ha sacado canas verdes(pero lo bueno es que he aprendido muchisisisisimo)

Lo que hice fue lo siguiente:

cree en tiempo de ejecucion los qrdbtext y les asigne el nombre de la tabla, y el nombre del campo.

Y me funciona a las mil maravillas, ahora lo que no logro es que me muestre espacios en blanco.

algunos campos tienen el valor de 'o' (letra o de Oscar), pero necesito que cuando se muestre el valor( si tiene 'o') que muestre un guion o dos (--),y si tiene otro valor numero, pues que muestre ese valor, pero no encuentro como hacerle

Alguien sabe como resolver este problemilla???
Tengo un rato buscandole pero no logro corregirlo

Muchas gracias!!!!
Saludos!!!!

[[Lepe]]

Puedes usar el evento BeforePrint de ese QrLabel o QrDbText, allí cambias el texto que viene como un parámetro de texto.

Saludos

[david duarte]

Hola, solucione mi problema, cambiando el 'o' por el '-' y asi ya no tengo que estar metiendome con ningun codigo y automaticamente si no tienen nada capturado se muestra el guion??

otra pregunta tengo una tabla del mismo proyecto que son los analisis extras en donde tengo la siguiente estructura

Folio ->El folio de la solicitud
Numero-> es para saber el renglon en el que esta
Nombre_analisis-> es para saber el nombre del analisis
Posicion-> la posicion de la maquina de donde sacaron la muestra
Resultado -> resultado del analisis de la muestra

mi pregunta es la siguiente, con la tabla normal creo un tqrdbtext por cada campo, eso no es ningun problema

Código Delphi [-]
          texto := TQRDBText.Create(DetailBand1);
          texto.Top := arriba;
          texto.Left := izq;
          texto.DataSet := Query1;
          texto.DataField := modulotablas.resul_soplado.FieldDefs.Items[cont].DisplayName;
          texto.Parent  := DetailBand1;

pero ahora necesito crear un qrdbtext por cada analisis extra que este en la tabla.
Se puede hacer esto??

p.e.
si tengo 3 analisis extras, y se van a realizar 2 analisis de esas muestras
(in1,in2,in3 -> muestras)

Folio            Numero    Nombre analisis   Posicion  Resultado
IAbr00106       001          in1                    -            -
IAbr00106       001          in2                    -            -
IAbr00106       001          in3                    -            -
IAbr00106       002          in1                    -            -
IAbr00106       002          in2                    -            -
IAbr00106       002          in3                    -            -

Como puedo yo crear un qrdbtext para cada nombre de analisis extra?
se me ocurre con un query para cada uno, no se

select nombre_analisis, posicion, resultado 
from analisis_extra
where nombre_analisis = (aqui supongo que tengo que crear un arreglo o algo para guardar el nombre de los analisis realizados)

Alguien sabe como le puedo hacer??, creo que poner un query para cada analisis, seria mucho no? que tal si tengo 10 o mas analisis extras?

El reporte tendria que quedar asi

                          (Nombre_ analisis)....
  Posicion               in1         in2        in3      ......
             (RESULTADOS)
     1A                  125.5     125.5     125.5
     3A                    -            -          -

Gracias por su tiempo.
Saludos!!!!

[[Lepe]]

Código SQL [-]
select distinct nombre_analisis
from analisis_extra

Con eso ya sabes cuantos análisis extras tienes y como se llaman. Ahora si puedes crear un QRLabel con el nombre del analisis_extra y un QrDBText debajo.

Ahora tienes que montar otra query para obtener los Resultados de los análisis.

No sé ... quizás usando QrExpr sea más cómodo porque solo tienes que introducir en la propiedad Expression el nombre del analisis_extra, solo ahorras una línea de código, pero dentro de un bucle para 10 análisis_extras.... pues son 10 líneas menos a ejecutar .

Saludos

[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.