Corte de Caja

[ContraVeneno]

Si tienes los datos separados, no le veo problema

Solo colocas un TQRDBText enlazado al campo respectivo y colocado en la posición necesaria.

Solamente que tengas el dato del efectivo / Cheque / Tarjeta en un solo campo, algo como:

 Cantidad     FormaPago
100             Cheque
200             Tarjeta
300             Efectivo
100             Tarjeta

Por cierto, no recomendaría diferenciar los tipos de pago con letras, es mucho más rápido y fácil tener un catálogo de tipos y un identificador numérico para cada uno.

Entonces lo que tendrías que utilizar es un TQRExpr en lugar de TDBText.
En la propiedad expression, pondrías algo como: If(FormaPago='Cheque',Cantidad,'')

Pero sigo sin entender cuál es la situación exacta en la que estas.

[[coso]]

Deberias usar un qrdbtext para cada campo, y estos los alineas segun te convengan, en la banda detail. Respecto a lo que dices de ponerlo en una columna u otra segun cobro, puedes usar la QRBandBeforePrint, algo asi

Código Delphi [-]
if tabla.FieldByName('PAGO') = 'CHEQUE' then QRDBText_cantidad.Left := QRText_Titulo_Cheque.Left;
else
if tabla.FieldByName('PAGO') = 'TARJETA' then QRDBText_cantidad.Left := QRText_Titulo_Tarjeta.Left;
else
if tabla.FieldByName('PAGO') = 'EFECTIVO' then QRDBText_cantidad.Left := QRText_titulo_Efectivo.Left;

mas o menos.

[[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.

[*Caro*]

Por lo que entiendo, tiene los datos en un solo campo.

Empezado por ContraVeneno

Solamente que tengas el dato del efectivo / Cheque / Tarjeta en un solo campo, algo como:

 Cantidad     FormaPago
100             Cheque
200             Tarjeta
300             Efectivo
100             Tarjeta

Entonces lo que tendrías que utilizar es un TQRExpr en lugar de TDBText.
En la propiedad expression, pondrías algo como: If(FormaPago='Cheque',Cantidad,'')

Yo también lo haría con un QRExpr, solo que necesitarías 3 QRExpr, uno para cada columna y utilizarlo de la forma que te explica ContraVeneno:

QrExpr1 -> Expresion -> If(FormaPago='Cheque',Cantidad,'')
QrExpr2 -> Expresion -> If(FormaPago='Tarjeta',Cantidad,'')
QrExpr3 -> Expresion -> If(FormaPago='Efectivo',Cantidad,'')

Saluditos

[[enecumene]]

También se puede usar con una sentencia SQL utilizando CASE WHEN.

Saludos.

[Ferrari]

Gracias a Tod@s por su aportacion...ya quedo solucionado el problema con el QRExpr y he podido nuevamente respirar .
Saludos a Contraveneno pork vi que eres tambien de Torreon, Coah. Hay si sabes de alguien para desarrollo en Delphi te lo encargo paisano.