Corte de Caja

[[coso]]

para las sumas finales, deberias hacer consultas, antes o despues, como

Código Delphi [-]
q.Active := false;
q.SQL.Text := 'select pago, sum(total) as TOTAL_CHEQ from tabla where PAGO = ''CHEQUES''';
q.Active := true;

total_cheq := q.FieldByName('TOTAL_CHEQ').Asfloat

etc...

y poner unos QRLabel en un summary band con esos valores.

saludos.