Sql sumar campo sum()

[teclilla]

Hola Caral, muchas gracias por tu respuesta, (disculpa por las etiquetas soy nueva en el foro), he cambiado el siguiente codigo :

Código Delphi [-]
total:=QSuma.FieldByName('ST').Value;

y me da el siguiente error:
'Invalid variant type conversion'

[[enecumene]]

Hola, tiene que ser asi:

Código Delphi [-]
total:=QSuma.Fields[0].Value;

Saludos.

[[Caral]]

Hola
El campo es Real osea Double.
La suma es double, el nombre del campo es Importe conocido como ST, no veo el error, tal vez asi?

Código Delphi [-]
total:=QSuma.FileByName('Importe').Value;

No se, inténtalo, pero es extraño.
Saludos

[teclilla]

Muchas gracias por la respuesta, uso Paradox 7 (disculpad por no haberlo dicho antes), he añadido esto a la función:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        import, total: real;
begin
        import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value;
        TPresupuestosSumaTotal.AsFloat:=total;
end;

y ejecuto paso a paso para depurar y resulta que el TPresProdDetalle es tabla detalle y hasta que no confirmo el presupuesto no realizo TPresProdDetalle, no se si el error puede venir por ahí, ya que si pruebo solo con un producto en el detalle el importe que recoge es un numero erroneo, a pesar de que a esta funcion se le llama en el evento TPresProdDetalleAfterInsert, no se si vosotros tendreis alguna idea. Muchas Gracias.

[[Caral]]

Hola
No dices si te da problemas o que problemas te da, cero que no da la informacion?.
Haz este y veras que dato envia:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        import, total: real;
begin
        import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value;
        
        ShowMessage(import);
        ShowMessage(total);

        TPresupuestosSumaTotal.AsFloat:=total;
end;

Asi veremos quien es el que tiene la informacion, supongo.
Saludos

[teclilla]

import = 0
y genera el error 'Invalid variant type conversion'

Código Delphi [-]
import:=TPresProdDetalle.FieldByName('Importe').asFloat;
        ShowMessage(FloatToStr(import));
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        total:=QSuma.FieldByName('ST').Value; //genera el error
        ShowMessage(FloatToStr(import));
        TPresupuestosSumaTotal.AsFloat:=total;

Muchas gracias Caral

[[Caral]]

Hola
Segun me dicen ST tiene un valor NULL, por eso manda el error.
No se a que se debe, se supone que es la suma del campo importe y si este contiene datos no deberia dar ese problema.
Para mi por alguna razon no esta reconociendo ST como un campo.
Quedo un poco corto en la apreciacion del problema, no lo termino de entender.
Espero lo puedas solucionar, o esperar a un maestro, ya vendrán.
Saludos

[[Lepe]]

total:=QSuma.FieldByName('ST').AsFloat;

Ya que trabajas con paradox, usa AsFloat, te convertirá el dato NULL por un cero (y no muestra error).

.Value es de tipo Variant, y si no tiene nada asignado o tiene el valor especial NULL, devolverá Unassigned o NULL, y como esos valores no tienen correspondencia con un real, delphi lanza la excepción.

las propiedades Asxxxxx si realizan la conversión.

Por cierto, dale una visual a la ayuda "data types", puede que un Float se más grande que un real, y obtengas errores en ejecución. (Mira el valor máximo que puede guardar cada tipo de dato).

Saludos

Saludos