ARD отчет. Описание логической таблицы. Цикл по таблице. Условный внутренний блок

.form "base1"
.ard
.var
  vids:string
  t:string
.endvar
.create view t1 as select
basedoc.*,klval.*,katorg.*
where ((
  basedoc.cval==klval.nrec and
  basedoc.corg==katorg.nrec
))
;
.fields
  basedoc.nodoc
  basedoc.name:"p:l"
  basedoc.summa:"p:r"
  klval.simvolv
  katorg.name
  vids
  t
.endfields
.begin
  datetostr(t1.basedoc.dform,"");
end.

				список документов оснований
Номер   Наименование Сумма Валюта Контрагент
.{table "t1" by basedoc.nrec;
&&&&&&& @@@@@@@@@@@@ &&&&& @@@@	@@@@@@@@
.begin
  vids:="Счет";
  if basedoc.viddoc=201 then vids:="счет - фактура";
  if basedoc.viddoc=501 then vids:="заявка";
  t:=datetostr(basedoc.dform,"");
end.
  Вид документа: ^
.{?Internal;T<>"";
  Дата формирования:^
.}
----------------------------------
.}
.endform