with adoquery1 do
begin 
  first;
  S := 0;
  while not Eof do
  begin
    fieldvalues['ce']:=fieldvalues['sj']-fieldvalues['jh'];
    fieldvalues['ljce']:=fieldvalues['ce']+s;
    s:=fieldvalues['ljce'];
    Next;
  end;
end;