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;