Como puedo calcular Stock ...

[ilichhernandez]

Estimados, la sentencia que me facilito caral, efectivamente me devuelve el stock , solo que para un código, estoy intentando adaptar esto para que pueda obtener la existencia de todos los productos ....y va mas o menos asi... pero al hacerlo de esta manera pierdo siempre el valor anterior... que será mejor.... realizar una tabla temporal donde colocar los datos a medida que los calculo??......una ayudita, gracias.....

Código Delphi [-]
while not dm1.TBLEnvases.eof do 
Begin 
dm1.Qtemp.SQL.clear;  
cadena := 'Select (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock,ingre.codenvases From Ingre, Egresos where ingre.codenvases=' +  dm1.TBLEnvases.FieldByName('codigo').AsString ;  
dm1.Qtemp.SQL.Text := cadena; 
dm1.Qtemp.open; 
vartext1  := dm1.Qtemp.FieldByName('Stock').AsString; end;