Numeros a Letras!!

[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

[[Lepe]]

Aclaro un poco más:

suponemos que tienes una tabla TblDetalles donde tienes el campo Importe y quieres sacar la suma de todos los importes.

Pues bien, create una consulta llamada qryImporte que sea asi:
select sum(importe) from Detalles where codigoFactura = :Codigo

Ahora en el QuickReport pones un QRlabel, y en el evento beforePrint haces
esto:

Código Delphi [-]
var Suma:currency
begin
QryImporte.parambyname('Codigo').asinteger := 3  //hallamos la suma para
// el codigo 3 
qryImporte.open;
Suma := qryImporte.fields[0].ascurrency;
qryImporte.close; // ya no lo necesitamos mas
Letras1.Numero := Suma;
qrlabel1.caption := Letras1.AsString;

Espero haber ayudado.