Hola, disculpa la molestia nuevamente, he intentado con el ultimo codigo que has colocado y me arroja un error "INVALID COLUMN REFERENCE", he revisado los campos y son los adecuados y las tablas tambien....
Código Delphi
[-]
procedure TFstock.FormShow(Sender: TObject);
var cadena,vartext1 : string;
begin
while not dm1.TBLEnvases.eof do
Begin dm1.Qtemp.SQL.clear;
dm1.Qtemp.SQL.Text := 'Select DISTINCT ingre.codenvases, (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock '+
' From Ingre, Egresos where ingre.codenvases = Egresos.codenvases '+
' and ingre.codenvases = ' + dm1.TBLEnvases.FieldByName('codigo').AsString ;
dm1.Qtemp.open;
end;
end;
gracias....