Delphi - Sumar 2 QRDBText

   
Vista:

Sumar 2 QRDBText

Publicado por Elianny Esther (31 intervenciones) el 06/04/2013 17:59:10
Hola a todos,

Tengo 2 QRDBText que almacenan números, lo que quiero es restar los dos QRDBText y que el resultado salga en un QRLabel1, en resumen
QRLabel1:= QRDBText1 – QRDBText2, pero lamentablemente no me funciona.

Gracias por anticipadas.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Matriz de 4x4
- GL Lander
- Algritmos de Bezier

Sumar 2 QRDBText

Publicado por jose (2 intervenciones) el 14/04/2013 12:16:31
Hola,

No tengo intalado el Quickreport, pero deberias hacer algo como:

QRLabel1.Text := IntToStr(QRDBText1.asInteger - QRDBText2.asInteger);

en el caso de que la operación ha realizar sea entre enteros, en caso de que sea la operacion entre float, seria realizar la conversion del tipo float a string..

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sumar 2 QRDBText

Publicado por Elianny Esther (31 intervenciones) el 15/04/2013 02:55:34
gracias por tu interés, pero no funciona, lo he intentado de muchas manera pero no funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Sumar 2 QRDBText

Publicado por Elianny Esther (31 intervenciones) el 17/04/2013 02:39:30
Solucionado:

en el Evento BeforePrint coloqué este codigo, y declare en var como entero a: QRRestaPago


1
2
RestaPago:=datam.Tbla_Pagobalance_feligres.AsInteger - datam.Tbla_Pagomonto_pago.AsInteger;
QRRestaPago.Caption:= IntToStr(RestaPago);
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar