Sql sumar campo sum()

[[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

[teclilla]

Muchas gracias lepe, lo he cambiado pero creo que es la sql la que no la realiza bien, ¿como puedo mostrar el resultado de la query por pantalla antes de convertirla a float y asignarla a una variable?
Gracias.

[teclilla]

Creo que el tema va por aquí, cuando doy de alta un presupuesto mediante formulario inserto 1 producto, calculo el importe y me da 850,00 y despues calculo el total:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        total: real;
begin
        QSuma.Close;
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        ShowMessage(VarToStr(QSumaST.Value)); // me da 0
        total:=QSumaST.AsFloat;
        ShowMessage(FloatToStr(total));
        TPresupuestosSumaTotal.AsFloat:=total;
end;

creo que la sql no la realiza bien,

Código SQL [-]
size="1">
Select sum(Importe) as ST from presprod where Codpres= res
group by Codpres

en Importe en teoría debe contener 850,00 con lo cual al haber un solo producto este deberia ser el resultado de la query.
Gracias por vuestra ayuda.

[[Lepe]]

El sql ten por seguro que funciona, la función Sum lleva "un par de días inventada" .

quizás aun no hayas guardado el presupuesto y por ello el valor de idpres es igual a cero o null.

Ten en cuenta los posibles valores nulos, si existe un importe a Null, la función Sum devuelve null según el standard del SQL.

Saludos

[[Caral]]

Hola
Lo mas seguro es que me equivoque, pero:
1- La sentencia sql seguro la tienes dentro del query y en la pantallita tendras el campo?.
2- Si ves la secuencia que usas, veras que cierras la tabla antes de darle el parametro (QSuma.Close eso no es correcto.
Yo lo haria por codigo asi:

Código Delphi [-]
procedure TFormPresupuestos.CalcularTotal;
var
        total: real;
begin
        QSuma.Sql.Text:= 'Select sum(Importe) as ST from presprod where Codpres =  :res group by Codpres ';
        QSuma.Params[0].AsInteger:=TPresupuestosIdpres.AsInteger;
        QSuma.Open;
        ShowMessage(VarToStr(QSumaST.Value));
        total:=QSuma.Files[0].AsFloat;
        ShowMessage(FloatToStr(total));
        TPresupuestosSumaTotal.AsFloat:=total;
end;

Saludos

[teclilla]

Siendo que 'presprod' es una tabla detalle de 'presupuestos' con los cual los campos id deben coincidir, ¿estará mal la sql? a la hora de calcular la suma las tablas están en modo appen y no se ha realizado un post por si el usuario no quiere confirmar el presupuesto y desea cancelar. No lanza ningun error y la aplicacion funciona, la suma siempre es 0, pero si que hay un linea (record) con importe 850,00 creo al menos sum deberia ser 850

Código SQL [-]
 
Select sum(Importe) as ST from presprod where Codpres= :res
group by Codpres

Muchas gracias.

[[Lepe]]

Empezado por teclilla

Siendo que 'presprod' es una tabla detalle de 'presupuestos' con los cual los campos id deben coincidir,

¿Cuando le das valores a presid y a prespod? Porque si usas un autoincrmento, se hará al guardar el registro. Todo lo que hagas antes de guardar, presid y prespod tendrán un cero patatero.

La suma la hace bien, pero no encuentra nada que sumar.

Paradox no copia automáticamente el valor de las claves de la tabla Maestra a la detalle, debes hacerlo tú por código. Me da la impresión de que le das un valor a presid de la tabla maestra, pero no lo asignas a la tabla detalle (codpres).

Saludos