Foros Club Delphi - Master / Detail Quickreport

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Master / Detail Quickreport (https://www.clubdelphi.com/foros/showthread.php?t=49605)

Master / Detail Quickreport

Hola comunidad, espero me puedan ayudar con lo siguiente: tengo una duda con un reporte de este tipo, tengo 3 tablas (Clientes, Prestamos, Abonos); con una relacion entre las 3, abonos con prestamos y esta a su vez con clientes.
El problema está en que quiero hacer un reporte con el(los) prestamo(s) que tiene determinado cliente; este préstamo a su vez puede contener uno o varios abonos. solo que no me aparecen los abonos de forma correcta, lo maximo que he logrado es que me aparezca un abono (aun cuando el prestamo tenia 3) por lo que opté por empezar de nuevo, pero sigue sin funcionar.

Algo más gráfico sería de la siguiente forma:
P1................
A1
A2
A3
P2................
A1
A2
P3................

Esa sería la forma en la que quiero que aparezcan los datos del reporte; he intentado poniendo las bandas detail, subdetail, o incluso el componente qrsubdetail.

Puse el siguiente codigo que recopilé de una busqueda en el foro:

Código:

procedure TFrmRepCli.QRSubDetail2AfterPrint(Sender: TQRCustomBand;

  BandPrinted: Boolean);

begin

    with MDOQuery2 do

      begin

            Close;

            SQL.Clear;

            SQL.Add('select * from abonos');

            SQL.Add('Where id_ptmo = :Variable');

            ParamByName('Variable').AsInteger := MDOQuery1['id_ptmo'];

            Open;

      end;

end;

Código:

with FrmRepCli.MDOQuery1 do

      begin

            //Active:=false;

            Close;

            SQL.Clear;

            SQL.Add('select id_ptmo, fecha, concepto, tipo_tasa, tasa, cargo, interes, saldo');

            SQL.Add('from prestamos');

            SQL.Add('where id_cliente = '''+id+'''');

            Open;

            Active:=true;

            //FrmBuscaClientes.DBGrid1.SelectedField.FieldName



      end;

Espero haberme explicado lo suficiente; no se si estén bien con las bandas que estoy utilizando, he probado con detail y subdetail e inclusive con dos subdetails. De antemano gracias.

La idea aquí, sería que hicieras una sola consulta uniendo los valores de las tres tablas:

Código SQL [-]Select P.Prestamo, C.NombreCliente, A.NumeroAbono, A.Cantidad
From Prestamos P
join Cliente C on P.Cliente = C.Cliente
join Abonos A on P.Prestamo = A.Prestamo
where ....

De esta forma, tendrías todos los préstamos con sus respectivos abonos y sus cliente. Obviamente no conozco como están definidas tus tablas, pero la idea es tener todo en una sola consulta.

Y finalmente, en el reporte enlazado a esta consulta, lo que harías sería agrupar por préstamo. Utilizando bandas TQRGroup. De esa forma aparecerá la información como tu quieres.

Hola ContraVeneno, gracias por tu respuesta, ya corregí la consulta y quedó de este modo:

Código Delphi [-]SQL.Add('select p.id_ptmo, p.fecha, p.concepto, p.tipo_tasa, p.tasa, p.cargo, p.interes, p.saldo, a.fecha, a.cantidad, a.bonificacion');
SQL.Add('from prestamos p');
SQL.Add('join Abonos A on P.id_ptmo = A.id_ptmo');

Ejecuto la consulta en el editor del IBExpert y funciona; pero sigo con el problema de que no me muestra correctamente la informacion en el reporte; si me pudieras explicar un poco mas qué bandas utilizar tanto para los prestamos y los abonos.
En este momento tengo un QrGroup en el cual pongo las cabeceras de los datos del prestamos, tengo una banda tipo detail en la que pongo los QRDBText que contienen los datos del prestamo.
Así como una banda para los Abonos en la que tengo activada la propiedad hasheader para poner las cabeceras del abono y en la banda Subdetail tengo los QRDBText correspondientes al Abono. He intentado varias combinaciones de bandas pero sin éxito; espero me puedan ayudar. Gracias de antemano.

Solucionado :), era cuestión de acomodo de las bandas, gracias por la ayuda.

hola, molestando de nuevo; tengo otro problema relacionado con la consulta asociada al reporte la cual tiene el detalle de mostrarme todos los prestamos pero únicamente los que tienen abonos, los préstamos sin abono no salen, he estado intentando modificar la consulta pero no lo he podido hacer; a ver si me pueden orientar un poco, gracias de antemano.

Código SQL [-]Select P.Prestamo, C.NombreCliente, A.NumeroAbono, A.Cantidad
From Prestamos P
join Cliente C on P.Cliente = C.Cliente
left outer join Abonos A on P.Prestamo = A.Prestamo
where ....