Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   como utilizar valor de un Qexpr (https://www.clubdelphi.com/foros/showthread.php?t=72817)

oscarac 14-03-2011 06:28:36

como utilizar valor de un Qexpr
 
Buenas Madrugadas


estoy usando quickreport y en los totales tengo un problema
estoy utilizando Qexpre para calcular la suma de una columa

esto es lo que dice la expression

Código Delphi [-]
FORMATNUMERIC(',0.00',Sum(IA))

antes de imprimir quiero determinar en que posicion ira la suma... si es una suma positiva ira en un lado y si es negativa ira en otro

Código Delphi [-]
procedure TqrBalanceComprobacionMensual.SummaryBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
  var _SID, _SIA, _SRD, _SRA :Extended;
begin
  _SID := strtoint(qeSUMID.Value.strResult);
  _SIA := strtoint(qeSUMIA.value.strResult);
  _SRD := strtoint(qeSUMRD.value.strResult);
  _SRA := strtoint(qeSUMRA.value.strResult);
 if _SID - _SIA > 0 then
    QRExpr17.Left := QRExpr19.Left
  else
    QRExpr17.Left := QRExpr20.Left;
  if _SRD - _SRA > 0  then
    QRExpr18.Left := QRExpr21.Left
  else
    QRExpr18.Left := QRExpr22.Left;
end;

pero me sale un mensaje de error que dice

Cita:

EconvertError with Message "48,467.31" is no a valid floating ponti value
que estoy haciendo mal?

gracias anticipadamente


La franja horaria es GMT +2. Ahora son las 10:47:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi