Ver Mensaje Individual
  #2  
Antiguo 06-02-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Esto es un ejemplo de como puede hacerse:
Código Delphi [-]
 procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
   var PrintBand: Boolean);
   var
   nValouble;
 begin
 nVal:=QrExpr1.Value.dblResult;
 ShowMessage(FormatFloat(',0.00',nVal));
 end;

No tienes más que sustituir nVal, que es una variable que yo he creado a modo de ejemplo por el nombre del campo.

Otra cosa es que yo no estoy de acuerdo con el procedimiento ya que pienso que esto debe resolverse por código contra la misma Tabla o tablas.

En cualquier caso tienes que tener en cuenta que yo lo he declarado como Double porque en mi caso el ejemplo sabía que el resultado era este, si fuera otro esta es la información que necesitas.
Código Delphi [-]
 type TQREvResultType = (resInt, resDouble, resString, resBool, resError)
 type TQREvResult = record
        case Kind : TQREvResultType of
          resInt    : (intResult : Longint);
          resDouble : (dblResult : Double);
          resString : (strResult : String[255]);
          resBool   : (booResult : Boolean);
      end

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita