Пример интерфейса с вызовом отчета

Описание формы

.form test
.fields
  user
.endfields
   Список пользователей системы
.{
   ^
.}
.endform

Интерфейс

interface testForm doaccept;
create view
var x:integer;
as select * from X$USERS;
form test("test.out");
handleEvent
cmInit:
{
 x:=testForm.GetFirst;
 if x=0 then
   test.Write(xu$FullName);
 if x=0 then begin
   while x=0 do begin
	 x:=testForm.GetNext;
	 if x=0 then
	 test.Write(xu$FullName);
   end;
 end;
 test.PutEvent(feBreak);
 test.ShowFile("");
}
end;
end.