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 18-03-2010
Aprendiendo Aprendiendo is offline
Miembro
 
Registrado: may 2003
Ubicación: España
Posts: 122
Poder: 22
Aprendiendo Va por buen camino
Thumbs up Imprimir talones

Hola a tod@s,

Necesitaría me indicaran como proceder para realizar lo siguiente.

Estoy ultimando una aplicación para llevar el control de horas, etc...

Y el proceso final es imprimir talones de los empleados seleccionados.

El generador de informes que utilizo es fastreport, mi intención es realizar un bucle en la tabla "talones" para imprimir un talón por cada empleado.

¿Cómo haría para ir imprimiendo el talón de cada empleado? Son cuatro talones por cada A4 "Mediante impresora matricial y el papel es continuo".

Espero haberme explicado bien.

Esperando una pronta respuesta, reciban un cordial saludo...
Responder Con Cita
  #2  
Antiguo 19-03-2010
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Supongo que puedes decirle a FastReport que el tamaño de la página es un curato de A4.

También puedes hacer un procedimiento en la base de datos que te devuelva los datos a imprimir de 4 en 4.

Por ejemplo:
Código SQL [-]
create procedure DameDatosTalon(nombre1 varchar(60), importe1 double precision,nombre2 varchar(60), importe2 double precision,nombre3 varchar(60), importe3 double precision,nombre4 varchar(60), importe4 double precision)
as
declare variable nombre varchar(60);
declare variable importe double precision;
begin
  i = 1;
  for select nombre,importe from talones do
      into :nombre,:importe
  begin
     if (i=1) then
     begin
        nombre1 = nombre;
        importe1 = importe;
     end
     if (i=2) then
     begin
        nombre2 = nombre;
        importe2 = importe;
     end
     if (i=3) then
     begin
        nombre3 = nombre;
        importe3 = importe;
     end
     if (i=4) then
     begin
        nombre4 = nombre;
        importe4 = importe;
     end
     i = i + 1;
     if (i=5) then
     begin
        /* Aqui devuelve los datos */
        suspend; 
        /* vuelvo a inicializar */
        nombre1 = '';
        importe1 = 0;
        nombre2 = '';
        importe2 = 0;
        nombre3 = '';
        importe3 = 0;
        nombre4 = '';
        importe4 = 0;
     end
  end
end
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
Imprimir en usb trex2000 Impresión 0 13-03-2009 19:09:47
Imprimir un pdf nelem Internet 1 23-10-2008 16:02:31
Imprimir en PDF Minio Impresión 4 23-04-2008 18:30:50
Imprimir BMP gallipi Impresión 2 15-04-2008 12:36:39
imprimir Carlos Armenta Impresión 3 16-06-2004 13:43:40


La franja horaria es GMT +2. Ahora son las 22:37:06.


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