Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Imprimir talones (https://www.clubdelphi.com/foros/showthread.php?t=66910)

Aprendiendo 18-03-2010 12:46:25

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...
:):cool::)

duilioisola 19-03-2010 14:03:12

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


La franja horaria es GMT +2. Ahora son las 11:44:07.

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