Ayuda impresion de reporte con QReport4 para delphi7

[nachoalbano]

Hola, como estás?
Bueno, me pareces que estas confundido en el uso de los componentes en el reporte. Primero te cuento que para lo que tenes que hacer, no hace falta tanta linea de código, la idea de los reportes es automatizar un poco la cosa.
en banda de detalle tendrías que poner componentes QRDbText, que estan en la solapa del QReport. Por otro lado la query que uses tendría que relacionarse con un DateSet para poder relacionar los campos que devuelve la consulta con un componente QRDBText.
entonces por cada linea que devuelva la consulta se imprime una banda SubDetail.
Esto hará que elimines el while, aunque solo te va a servir para una sola fecha.

Iguamente se podría devolver una consulta que contenga todos los datos necesarios, es decir, los que se encuentren en el rango de fechas. Si lográs hacer eso utilizando una banda de Grupo podes hacer el reporte que querés con una solo consulta.

En todo caso, comentanos como es la estructura de las tablas, cual es la consulta que estás usando, así vemos la manera de adaptarla para que puedas hacer el reporte de una manera mas rápida casi sin colocar una línea de código.

Saludos

[jhoncacru]

El código SQL es el siguiente:

Código SQL [-]
 

set dateformat dmy 
declare @fecha as Datetime
set @fecha='07/11/2006'
declare @codigobarra as varchar(50)
set @codigobarra='800000080'

SELECT      @fecha as fechareporte,ap.id_personal,
           ap.ap_paterno +' '+ap.ap_materno+' '+ap.nombres As nombre_completo,ap.codigo_barra,
                   ads.numero as numero_dia,ads.nombre_dia, ads.nombre_ingles,ant.nombre_turno, 
           att.id_turno, CONVERT(char(8),att.hora_entrada,108) as entrada_contrato, 
           CONVERT(char(8),att.hora_salida,108) as salida_contrato, 
           ath.nombre_temporada,ath.fecha_inicio,ath.fecha_fin,
                  
FROM ASIS_PERSONAL ap
 INNER JOIN ASIS_PERSONAL_CONTRATO apc ON ap.id_personal = apc.id_personal 
 INNER JOIN ASIS_TIPO_CONTRATO atc ON apc.id_tipo_contrato = atc.id_tipo_contrato 
 INNER JOIN ASIS_DIA_TURNO_CONTRATO adtc ON apc.id_contrato = adtc.id_contrato 
 INNER JOIN ASIS_DIA_TURNO adt ON adtc.id_dia_turno = adt.id_dia_turno 
 INNER JOIN ASIS_DIAS_SEMANA ads ON adt.id_dia = ads.id_dia 
 INNER JOIN ASIS_TURNO att ON adt.id_turno = att.id_turno 
 INNER JOIN ASIS_TEMPORADA_HORARIO ath ON att.id_temporada = ath.id_temporada 
 INNER JOIN ASIS_NOMBRE_TURNO ant ON att.id_nombre_turno = ant.id_nombre_turno
         
where ap.codigo_barra=@codigobarra and  ads.numero=datepart(dw,@fecha) and
      ath.activado='1'

esta consulta me lanza el siguiente resultado:


Fechareporte id_p... nombre_completo codigo_barra Turno

2006-11-07 3195 QUISPE TORREZ GLORIA 800000080 Mañana
2006-11-07 3195 QUISPE TORREZ GLORIA 800000080 Tarde

y otros datos que por problema de espacio no lo typeo

el problema es que es éste el resultado de la consulta para un dia, si quisiera un rango de dias el QRSubdetail enlazando el DATASET a la consulta me imprime como resultado solamente la consulta del ultimo dia, es decir 2 tuplas.


Aprovechando este hilo, nachoalbano tengo una gran duda, en el SQL Query Analizer funciona perfectamente la consulta, pero pasandole parámetros a la consulta desde delphi, el resultado de la consulta se distorciona, aveces se suma y otras se resta, que es lo que pueda pasar????