Club Builder

[francisco rocha]

Hola a todos,
estoy creando un reporte con dos componentes tAdoQuerys el primero me trae los datos principales del cliente:
SELECT CAST(Cliente.Cl_Cve_Cliente AS INT) as Cl_Cve, Cliente.Cl_cve_Cliente, Cliente.Cl_Razon_Social_1,
(Cliente.Cl_Ciudad + ', ' + Cliente.Cl_Estado) as Ciudad,
max(
(CASE
WHEN DATEDIFF(day, Cxc_Fecha, GetDate()) >0 THEN DATEDIFF(day, Cxc_Fecha, GetDate())
ELSE 0
END) ) as Dias, sum(Cxc_Precio_Neto_Saldo) as Saldo
FROM
Cuenta_x_Cobrar
inner join cliente on cliente.Cl_Cve_Cliente = Cuenta_x_Cobrar.Cl_Cve_Cliente
WHERE
Cuenta_x_Cobrar.Cxc_Precio_Neto_Saldo > 0 AND
Cuenta_x_Cobrar.Es_Cve_Estado <> 'CA' and
(CASE
WHEN DATEDIFF(day, Cxc_Fecha, GetDate()) >0 THEN DATEDIFF(day, Cxc_Fecha, GetDate())
ELSE 0
END) >= :dias AND Cliente.Vn_Cve_Vendedor = :vendedor
group by Cliente.Cl_Cve_Cliente, Cliente.Cl_Razon_Social_1, Cliente.Cl_Ciudad, Cliente.Cl_Estado
ORDER BY 5 desc

El segundo me debe de traer el detalle del cliente:
SELECT
Cliente.Cl_Cve_Cliente,
Cliente.Cl_Razon_Social_1,
(Cliente.Cl_Ciudad + ', ' + Cliente.Cl_Estado) as Ciudad,
Cxc_Fecha,
(CASE
WHEN Cxc_Tabla = 'VENTA' THEN
(SELECT SubString(Venta.Vn_Comentario,1,6) FROM Venta WHERE Venta.Vn_Folio = Cuenta_X_Cobrar.Cxc_Documento AND Vn_ID = '0001')
ELSE Cuenta_x_Cobrar.Cxc_Referencia
END) as Documento,
Cxc_Precio_Neto_Saldo,
(CASE
WHEN DATEDIFF(day, Cxc_Fecha, GetDate()) >0 THEN DATEDIFF(day, Cxc_Fecha, GetDate())
ELSE 0
END) as Dias,
cast(0 as Integer) as stImpreso
FROM
Cuenta_x_Cobrar
inner join cliente on cliente.Cl_Cve_Cliente = Cuenta_x_Cobrar.Cl_Cve_Cliente
WHERE
Cuenta_x_Cobrar.Cxc_Precio_Neto_Saldo > 0 AND
Cuenta_x_Cobrar.Es_Cve_Estado <> 'CA' and
(CASE
WHEN DATEDIFF(day, Cxc_Fecha, GetDate()) >0 THEN DATEDIFF(day, Cxc_Fecha, GetDate())
ELSE 0
END) >= :dias AND Cliente.Vn_Cve_Vendedor = :Vendedor and Cliente.Cl_Cve_Cliente = :Cl_Cve_Cliente
ORDER BY
Cl_Razon_Social_1, Cxc_Fecha, 6

La cuestion es que cuando genereo el reporte solamente me esta imprimiendo el detalle del primer cliente, en todos los clientes, esto quiere decir no esta tomando el numero del cliente el segundo query conforme va avanzando.
Esto es lo que tengo en el quick report:
qrRepCobranzaxdias->qrlblAgente->Caption = "COBRANZA DEL SR. " + sNombre_;
qrRepCobranzaxdias->qrlblDias ->Caption = " DE " + IntToStr(iDias_) + " EN ADELANTE";
/*PRIMER QUERY ENCABEZADO*/
qrRepCobranzaxdias->qsCliente->Close();
qrRepCobranzaxdias->qsCliente->Parameters->ParamByName("Dias")->Value = iDias_;
qrRepCobranzaxdias->qsCliente->Parameters->ParamByName("Vendedor")->Value = sAgente_;
qrRepCobranzaxdias->qsCliente->Open();

/*SEGUNDO QUERY DETALLE*/
qrRepCobranzaxdias->qsFactura->Parameters->ParamByName("Dias" )->Value = iDias_;
qrRepCobranzaxdias->qsFactura->Parameters->ParamByName("Vendedor")->Value = sAgente_;
qrRepCobranzaxdias->qsFactura->Parameters->ParamByName("Cl_Cve_Cliente")->Value = qrRepCobranzaxdias->qsCliente->FieldByName("CveCte")->AsString.Trim();
qrRepCobranzaxdias->qsFactura->Open();

qrRepCobranzaxdias->Preview();

He realizado reportes con TQuerys a los cuales le pongo un TDataSet y este lo ligo con el query del detalle para que tome el campo como parametro automaticamente o sea no tengo que asignarlo al query en codigo.

Espero puedan echarme la mano con este detalle, mientras sigo buscando soluciones.

de antemano muchas gracias.
Atte.
Fco. Rocha

[dobermannmx]

francisco, estás enlazando ambos querys?, porque en el detalle le tienes que poner en MASTER SOURCE el data source que apunta al Maestro (primer query), y después en los parámetros o en el query directamente tienes que poner la condición de enlace, es decir where id_numcliente = :id_numcliente, y con esto automáticamente se enlazan y el detalle va avanzando conforme avanzan los registros del primero.

Espero haberte ayudado.

Saludos
_________________
ISC
Dobermannmx