Sumar Columnas

[[Caral]]

Le pides peras al olmo: Esto se llama de aprendiz a aprendiz, haber que sale:

Código SQL [-]
With DataSet do
  begin
   Fieldbyname('Cantidades_Faltantes').Asinteger:=FieldByName
          ('Cantidades_Pedidas').Asinteger - FieldByName('Cantidades_Hechas').Asinteger;
DBEdit1.Text:= FieldByName('Cantidades_Hechas').Asinteger;
  end;

o

Código SQL [-]
With DataSet do
  begin
   Fieldbyname('Cantidades_Faltantes').Asinteger:=FieldByName
          ('Cantidades_Pedidas').Asinteger - FieldByName('Cantidades_Hechas').Asinteger;
Edit1.Text:= FieldByName('Cantidades_Hechas').Asinteger;
  end;

Asi te pondra en ese evento el valor del dato en el dbedit o en el edit.
Veamos y me cuentas
saludos

[leodelca23]

mira pero lo que quiero poner es las sumatoria de cantidades_faltantes . y con lo que me diste vos si lo modifico asi me muestra la ultima cantidad_hechas

Código SQL [-]
With DataSet do
  begin
   Fieldbyname('Cantidades_Faltantes').Asinteger:=FieldByName
          ('Cantidades_Pedidas').Asinteger - FieldByName('Cantidades_Hechas').Asinteger;
   DBEdit1.Text:= FieldByName('Cantidades_Hechas').Asstring;
  end;

end;

pero como te digo quiero la suma de eso gracias,
Saludos

[[Caral]]

Bueno quiere decir que te da esa:
Bueno pon la otra y ya:

Código SQL [-]
With DataSet do
  begin
   Fieldbyname('Cantidades_Faltantes').Asinteger:=FieldByName
          ('Cantidades_Pedidas').Asinteger - FieldByName('Cantidades_Hechas').Asinteger;
   Edit1.Text:= Fieldbyname('Cantidades_Faltantes').Asinteger;
  end;

La verdad el dato yo lo pondria en un edit no en un dbedit ya que confunde
Saludos

[leodelca23]

mira si pero de esa forma me muestra nada mas el ultimo dato no la sumatoria de todos, he ledio por ahi de lo de sum pero no me funciona.

[[Caral]]

Perdona que motor de base de datos usas?

[leodelca23]

Uso interbase

[[Caral]]

Pueba:

Código SQL [-]
AdoQuery1.Close;
AdoQuery1.Clear;
AdoQuery.Sql.Add('Select sum(Cantidades_Pedidas - Cantidades_Hechas) as Cantidades_faltantes');
AdoQuery.Sql.Add('from Telas');
AdoQuery1.Open;
Edit.text:= (Cantidades_Faltantes).Asinteger;

Esto hace lo mismo que el evento calculate solo que sql y lo pones en donde quieras hasta en un boton o en oncreate, pruebalo
Saludos

[leodelca23]

mira no se puede porque de esa forma pierdo el join con la tabla descripcion , gracias saludos

[[Caral]]

o Esto:

Código SQL [-]
SELECT ALL sum(Cantidades_Pedidas - Cantidades_Hechas) as Cantidades_faltantes 
FROM Telas INNER JOIN Descripcion
ON Telas.Descripcion1 = Descripcion.Descripcion;

o

Código SQL [-]
SELECT * sum(Cantidades_Pedidas - Cantidades_Hechas) as Cantidades_faltantes 
FROM Telas INNER JOIN Descripcion
ON Telas.Descripcion1 = Descripcion.Descripcion;

Prueba
Saludos

[leodelca23]

mira lo probe y no funciono que hago?

[[Caral]]

Esto es practicamente lo mismo:
En el Query1 que tienes pon:

Código SQL [-]
SELECT Telas.* sum(Cantidades_Pedidas - Cantidades_Hechas) as Cantidades_faltantes, Descripcion.*
FROM Telas INNER JOIN Descripcion
ON Telas.Descripcion1 = Descripcion.Descripcion;

Con un edit y un boton, pon en el evento on click del boton:

Código Delphi [-]
Edit1.Text := Query1.FieldByName('Cantidades_faltantes').AsInteger;

Asi funciona
Saludos

[leodelca23]

Cree otro query y puse

Código SQL [-]
IBQ.Close;
IBQ.Sql.Clear;
IBQ.SQL.Add('SELECT sum(Cantidades_Pedidas - Cantidades_Hechas) as total FROM Telas INNER JOIN Descripcion ON Telas.Descripcion1 = Descripcion.Descripcion where Telas.descripcion1 ='+quotedstr(Edit2.text));
IBQ.Open;
dbedit1.Visible:=true;

muchas gracias por toda la ayuda de todos.