QuickReport, Guardar resultado de un QRExpr

[[Caral]]

Hola
Si puedes usar el caption del QRExpr por que no lo puedes guardar en una variable el dato?.
Saludos

[Lenny]

Por ejemplo, si coloco:

Código Delphi [-]
procedure TFCLIENTE.QRExpr7Print(sender: TObject; var Value: string);
begin
QRLabel13.Caption:= QRExpr7.Value.strResult;
end;

Me deja el resultado en Blanco, si coloco:

Código Delphi [-]
procedure TFCLIENTE.QRExpr7Print(sender: TObject; var Value: string);
begin
QRLabel13.Caption:= QRExpr7.Caption;
end;

ó

Código Delphi [-]
procedure TFCLIENTE.QRExpr7Print(sender: TObject; var Value: string);
begin
QRLabel13.Caption:= QRExpr7.Expression;
end;

Me devuelve la formula:

Código Delphi [-]
SUM(TOTFACTURACION.MAYOR * TOTFACTURACION.Cantidad * 1.19)

Necesito poder guardar el resultado de la formula, o colocarla en un QRLabel para guardarla... no se si me explico, cualquier duda, estare cabezeandome con la solucion, de antemano gracias por la ayuda...

[Lenny]

Bueno, de tanto darle vuelta encontre la solucion:

Código Delphi [-]
QRLabel13.Caption:= FormatCurr ('########0',QRExpr7.Value.dblResult);

Hace Extactamente lo que necesito, gracias a ContraVeneno y a Caral por los comentarios, que al igual que las soluciones nos iluminan y ayudan en resolver nuetras dudas, Gracias chicos!!!

PD: Ahora para guardarlo a la base de datos deve ser otra cosa, pero creo que estoy mas que encaminado, Byes!!!

[[Caral]]

Hola
Me alegra que lo solucionaras.
Si llegaste hasta aqui, guardarlo en la BD sera muy sencillo.
Saludos

[Lenny]

Gracias Caral, aunque tuve que acudir a una solucion algo "CANIBAL"

Necesitaba guardar este valor una ves fuera impreso el informe, en este caso en el "AfterPrint" del QuickRep, pero al intentar hacer esto:

Código Delphi [-]
BDatos.TFACTURADO.FieldbyName('TOTAL').AsString := FormatCurr ('########0',QRExpr7.Value.dblResult);

Me guardaba Valor "0", asi que como mencionaba antes, en el evento OnPrint del QRExpr:

Código Delphi [-]
QRLabel13.Caption:= FormatCurr ('########0',QRExpr7.Value.dblResult);

Deje este Label oculto, tonces en el evento "AfterPrint" del QuickRep:

Código Delphi [-]
BDatos.TFACTURADO.FieldbyName('TOTAL').AsString := QRLabel13.Caption;

Por que de esta forma???, Estos tipos hay veces que rebajan valores a sus productos segun el cliente, asi pueden ver la factura y cambiar los valores cuantas veces sea necesario antes de "Imprimir", se que es un kilombo, pero bueno, alla ellos...
Se que no es muy "limpia" ni depurada la solucion, pero al menos hace lo que necesito, aunque este reinventando la rueda nuevamente, Jejejejeje, Un abrazo!!!