QuickReport, Forzar minimo de filas en Subdetail.

[Mfi]

Estoy haciendo un Informe de.. , digamos un parte de trabajo que si no es muy largo de explicar, el caso es que tengo en detalles la tarea a realizar, datos del cliente, etc.. y en subdetail estarían las lineas en las que el trabajador introduce las acciones que va realizando, reparacion de tal pieza, verificación de tal otra.. etc..

El caso es que una vez llegada la avería esta se mete en el ordenador y se genera el parte de trabajo que va al trabajador, lo rellena a boli, y luego se introduce en el ordenador. El problema es que al imprimir la primera vez no hay ninguna acción con lo que en acciones me sale solo una fila, y necesito que me salgan unas 15 a modo de tabla para que el trabajador tenga donde escribir con el boli. No se si me he explicado bien :rolleyes:. He estado buscando por el foro y por el google.. pero no he encontrado nada, igual es una chorrada pero es el primer informe que hago con QuickReports.

Muchas gracias por anticipado;)

[elmago]

Si entendí bien creo que tu reporte no debería usar subdetail cuando el numero de filas es muy pequeño, podrias usar un Page footer para rellenar la pagina con la cantidad de filas que le faltan al subdetail.

[egostar]

Será algo así:

http://img230.imageshack.us/img230/3403/qrepsg0.png


Salud OS.

[Mfi]

Elmago, si a lo que te refieres es a "dibujar" las filas usando Shapes en el Footer no me vale, porque el caso es que el numero de filas a dibujar será variabla, si la tabla del subdetail esta vacía dibujare 15.. si tiene 3 registros 12.. si tiene 10 registros 5 ... etc

Egostar.. podría valer..

La cosa es que salga algo parecido a esto:
[img=http://img507.imageshack.us/my.php?image=parteep4.png] (http://imageshack.us)

Que la parte del Subdetail tenga un numero fijo de filas tenga la tabla los datos que tenga.

Gracias a los dos por el interes.

PD: La Imágen al subir ha perdido lineas horizontales en la tabla.. se supone que todas las filas tienen la misma altura.

[egostar]

Que tal, esto es facil aunque un poco de trabajo, así se vería:

http://img297.imageshack.us/img297/645/salidafv5.png

Y aquí te pongo el diseño, espero te ayude.

http://img167.imageshack.us/img167/1862/diseomj9.png

Salud OS.

[Mfi]

el resultado esperado podría ser ese.. aunque por las imágenes no veo bien como lo has hecho, el caso es que lo he conseguido con el evento OnNeedData, metiendole los datos "a mano".


procedure TfrmReport1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
const i:integer =0;
begin

if not IBTable1.eof then
begin
i:=i+1;
qrlabel1.Caption := IBtable1.Fieldbyname('FECHA').AsString;
qrlabel2.Caption := IBtable1.Fieldbyname('TECNICO').AsString;
qrlabel3.Caption := IBtable1.Fieldbyname('DESC').AsString;
moredata:= true;
end
else if i<15 then
begin
i:=i+1;
qrlabel1.Caption := 'Añadido';
qrlabel2.Caption := 'Añadido';
qrlabel3.Caption := 'Añadido';
moredata :=true;
end else MoreData := False;


if moredata then
IBtable1.next;
end;

Bueno.. el IBTable1.Next se podría meter perfectamente en el primer if.. cambiar el 'Añadido' por cadenas en blanco ' ' y seguro que el código se puede optimizar un poco.. pero el caso es que según está funciona, muchas gracias a todos por la ayuda.

[Mfi]

Bueno.. he retomado este proyecto que tenía un poco aparcado, y tatachán!!! he encontrado un problema que me tiene muy despistado, con el procedimiento anterior me sale la previsualización perfecta, pero el problema ha venido al intentar imprimir un parte de trabajo con lineas introducidas, es decir un parte que ya estaba introducido en el ordenador y que hay que imprimirlo de nuevo para que el trabajador continue o modifique cosas que no han quedado bien, pues entonces por la impresora no sale NINGUNA :eek: de las operaciones/filas introducidas... bueno.. realmente sale la última repetida las 15 veces pero como el 99,9999% de las veces es en blanco.. pues no sale nada.

Estoy mosca porque realmente en la previsualización sale perfecto esté como este la BD...:confused::confused::confused::confused:

¿alguna idea?