Sql sumar campo sum()

[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

[teclilla]

idpre y codpres son de tipo longint, al dar de alta un presupuesto le pongo por codigo el idpres y en la tabla detalle al dar de alta el primer detalle tambien codpres tiene el valor correcto el mismo de idpres (el cual se muestra en el dbgrid) con lo cual esto lo asigna bien a la sql, ¿no será que las dos tablas estan en modo edicion y se deberia haber realizado el post?
Gracias.