Uso de QRStringsBand

[[Gabo]]

Lo he traducido:

void __fastcall TfrmResumenPago::QuickRep1NeedData(TObject *Sender,
      bool &MoreData)
{
    AnsiString cadena;
    MoreData=IBQdetalle->Eof;
    if (MoreData)
    {
       cadena= IBQdetalle->Fields->Fields[0]->AsString; 
                   //FieldByName("NOMBRE")->AsString; También lo he probado así
       QRLabel8->Caption=cadena;
       IBQdetalle->Next();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmResumenPago::QuickRep1BeforePrint(
      TCustomQuickRep *Sender, bool &PrintReport)
{
    IBQdetalle->First();
}
//---------------------------------------------------------------------------

Ahora si me entrega seis filas, conforme al número de registros que son, pero no cambia el Caption, de hecho he probado con:

QRLabel8->Caption="hola";

y tampoco lo cambia.

Seguiré intentándolo.

[[fjcg02]]

Hola Gabo,
informarte de que el QReport incluye objetos de tipo expresión que realizan las sumas, medias, etc, sin que tengas que intervenir más que para definir que tipo de calculo quieres realizar.
Para probar, ouedes incluir un TQRExpr de la paleta QReport en la banda que quieras, definir una expresión y ver qué ocurre.

Si quieres ver los pagos a los empleados, listalos todos, incluye una banda de grupo y un objeto del que te he indicado. Te ahorra un montón de trabajo. El valor de expresion en la banda de grupo es el que indica cuando se imprime; puede ser un campo ( se imprime cada vez que cambai el valor de un campo)una expresión ,...

Imagino que no tendrás demasiados problemas.

Suerte y saludos

[[Gabo]]

Pero, tengo entendido que sólo se puede usar el TQRExpr sólo se puede usar con Table y yo uso Query.

Lo he probado, por si acaso y no me coge los campos del IBQdetalle.

[[Gabo]]

Acabo de ver el tutorial de QuickReport de Qusoft y allí el ejemplo es con Table y trabajan con la propiedad IndexName que no está disponible en Query.

[*Caro*]

Hola de nuevo Gabo, como te decia puedes usar el qrexpr del quickreport para hacer la suma, tambien funciona con query, solo que tu consulta ya tiene que estar hecha y su propiedad active tiene que estar en true en tiempo de diseño.

Colocas el componente qrexpr en tu banda, seleccionas su propiedad Expresion ahi te aparecera un Wizard, escojes function -> SUM -> continue, despues debes introducir el campo sobre el que se hara la suma, donde escojeras Database field, ahi te aparecera el query con sus respectivos campos, ahora escojeras sobre el campo que quieres hacer la sumatoria, despues aceptas todo lo que hiciste y listo.

Saluditos

[[Gabo]]

Lo probaré.

Verás las veces que he intentado ocuparlo no me aparecen los campos de la Query, sólo las o las Querys disponibles. Cuando hacía clic en alguna de ellas no me aparecían los campos. Di por sentado que era porque no usaba el IBTable que sugerían en el manual.

Voy a probarlo cambiando el Active del Query a True.

¡Gracias!

[[Gabo]]

¡Gracias Caro y fjcg02!

Ya pude ver por que no conseguía hacer las sumatorias...

Al poner la propiedad Active del TQuery en True, comencé a ver los campos en el asistente del TQRExpr. Yo pensaba que era por no usar el control IBTable, pero ya veo que no.

De nuevo, ¡muchas gracias!