Форма с описанием логической таблицы Назад В начало Вперед
.form "ex"
.create view t2 as select employee.*;
.var
  x:integer
  y:integer
  z:integer;
.endvar
.fields
  z
  name
.endfields
.begin
  x:=0;
  z:=0;
  y:=modifier getfirst employee
!использование модификатора getfirst;
  if y=0 then begin
	z:=1;
	while x<100 do begin
	y:=modifier getnext employee;
!использование модификатора getnext;
	if y<>0 then
		break;
	z:=z+1;
	end;
  end;
end.
  z=^
.{table 't2:main' by name
   name ^
.}
.endform