Пример навигации по таблице с посылкой событий

//=============================================================
interface Event doAccept;

create view

var
  ind: integer;

as select
  *

from
  x$files
;

//-------------------------------------------------------------
browse DepBrowse2 table table1, eventNavigation;

fields
  Number_Dep #3'Номер отдела';
  Name_Dep   #3'Наименование отдела';
  ind		#3'Индикатор';
end;

//-------------------------------------------------------------
handleEvent

cmInit:
  ind:=500;

cmDoGetPrev:
  ind:=ind-5;

cmDoGetNext:
  ind :=ind+5;

cmDoGetFirst:
  ind :=0;

cmDoGetLast:
  ind:=1000;

end;
end.