Numeros a Letras!!

[lionsoft]

Intenté usar el componente ATexto en el reporte (QReport).

En el evento BeforePrint, intenté tomar la expresion que tengo como resultado de una suma y poner dicho valor en letras, en un label de reporte.

Pero no se puede. No se como levantar el resultado que arroja la expresion. Si utilizo la propiedad .value o .caption me da la expresion de sum (SUM bla bla bla).

Alguien me puede decir como imprimo esto?

Muchas gracias!

Lion

PD: como se instala el componente ATexto en Delphi 6 ?

[Pablo Carlos]

Empezado por lionsoft

Alguien me puede decir como imprimo esto?

Mira este código.....

Código Delphi [-]
procedure TfrmImprimirRecibo.FormCreate(Sender: TObject);
begin
{ ImporteRecibo es el nombre del componente aTexto
Numero propiedad de aTexto 
qRboProfesor es un query cuyo field rp_Importe es un campo de una tabla
Importe.Caption es qrLabel := importe recibido es el valor del campo pasado a texto--- espero que sea claro, fijate el evento que uso 
}
  ImporteRecibo.Numero := dmQuerys.qRboProfesor.FieldByName('RP_Importe').Value;
  Importe.Caption := ImporteRecibo.AsString;
end;

Saludos

[lionsoft]

Estoy bastante cerca de entender como usar el componente.

El drama surge, en que yo ya tengo una expresion que tiene la sumatoria de otras expresiones.
Lo que necesito es poder levantar ese valor numerico. Si uso la propiedad "caption", obtendré el texto SUM(...) que no es lo que busco.

Como puedo hacer para obtener el valor numerico qued muestra la expresion en pantalla, para asi poder cargarselo al componente ATexto?

Saludos y muchas gracias!!
Lion

[torito]

porque no lo guardas en una variable temporal y de ahi lo pasas al caption de tu etiqueta

[lionsoft]

Esa es la idea... guardarlo en una variable temporal. Pero el problema es como obtener ese valor.. ese numero. Lo que obtengo es la expresion de sumatoria, la cual no me interesa.

[torito]

ok, entonces como que no comprendo, yo te recomiendo que si es una suma, generes una variable global y tu formula de suma la pongas en el evento afterscroll de tu tabla y tu etiqueta la iguales a esa variable, asi al final te aparecerá el valor total de tu suma en el reporte

[[Lepe]]

Seguro que no me explicado con claridad, aunque tampoco se dice
exactamente donde está el campo que suma, y donde quieres poner el texto
en letras.

En principio, puedes poner un QRExpr, o un QRlabel en el QuickReport y en el
evento BeforePrint de ese componente, acceder al valor de la suma con:

dbtSuma.Value o bien con
dbtSumaYSigue.Value.dblResult si el campo es de tipo double.

Debes tener en cuenta algo importante:
Si te devuelve el valor "sum(importe)" es que te estas apresurando a coger un
valor que todavia no se ha evaluado.

De lo anterior deduzco que necesitas conocer el texto en letras antes
que la suma del importe

La solución es crearte otra consulta independiente, que haga lo mismo que la
anterior, pero que solo sume el importe (o el campo que sea), así tienes el
valor justo cuando lo necesites.

un saludote