Hola
Es que como no tengo nada de lo que tu tienes a la mano solo puedo creer que dara resultado.
Prueba quitando cosas:
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 = ' + dm1.TBLEnvases.FieldByName('codigo').AsString ;
dm1.Qtemp.open;
end;
end;
o asi:
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 (sum(Ingre.Cantidad)-Sum(Egresos.Cantidad)) as Stock , ingre.codenvases '+
' From Ingre, Egresos where ingre.codenvases = ' + dm1.TBLEnvases.FieldByName('codigo').AsString ;
dm1.Qtemp.open;
end;
end;
Solo puedo imaginar lo que sucede.
Saludos
PD: Ademas no le puedes pedir mucho a este Novato, que esta para aprender.