Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-06-2007
Mfi Mfi is offline
Miembro
 
Registrado: may 2007
Posts: 16
Poder: 0
Mfi Va por buen camino
QuickReport, Forzar minimo de filas en Subdetail.

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 . 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
Responder Con Cita
  #2  
Antiguo 12-06-2007
Avatar de elmago
elmago elmago is offline
Miembro
 
Registrado: ene 2006
Ubicación: El fin del mundo.
Posts: 43
Poder: 0
elmago Va por buen camino
Cool

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.
Responder Con Cita
  #3  
Antiguo 12-06-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Será algo así:

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


Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #4  
Antiguo 13-06-2007
Mfi Mfi is offline
Miembro
 
Registrado: may 2007
Posts: 16
Poder: 0
Mfi Va por buen camino
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]

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.

Última edición por Mfi fecha: 13-06-2007 a las 10:31:26.
Responder Con Cita
  #5  
Antiguo 15-06-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
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.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #6  
Antiguo 15-06-2007
Mfi Mfi is offline
Miembro
 
Registrado: may 2007
Posts: 16
Poder: 0
Mfi Va por buen camino
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".


Código Delphi [-]
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.

Última edición por Mfi fecha: 15-06-2007 a las 17:50:03.
Responder Con Cita
  #7  
Antiguo 23-08-2007
Mfi Mfi is offline
Miembro
 
Registrado: may 2007
Posts: 16
Poder: 0
Mfi Va por buen camino
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 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...

¿alguna idea?
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
firebid en red wan con un minimo de 50 clientes jus Firebird e Interbase 7 15-06-2006 00:13:46
como pasar el dataset a un subdetail satabel Impresión 1 03-09-2005 00:02:15
Imrpimir el primer registro de subdetail satabel Impresión 0 16-07-2005 03:53:57
Detail y Subdetail Aura Impresión 1 08-12-2004 18:06:10
Banda Subdetail en 2 columnas Taribus Impresión 4 08-02-2004 14:11:33


La franja horaria es GMT +2. Ahora son las 00:40:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi