PDA

Ver la Versión Completa : Imprimir talones


Aprendiendo
18-03-2010, 12:46:25
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:
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