В общих чертах отчет выглядит так (лишнее порезано):
Код: Выделить всё
.create view t01 as
select persons.*, STAFFSTRUCT.SEQNMB from persons, STAFFSTRUCT
       where (( 'С' == persons.isemployee
                and ssilpodr == persons.department
                and persons.appointcur == appointments.nrec
                and appointments.staffstr == staffstruct.nrec
             ))
             and year(persons.disdate)=0
       order by STAFFSTRUCT.SEQNMB
;
.create view t09 as select nrec,cparent,name,code from catalogs
        where (( 0 == lpr and 465 == mainlink ))
;
.{table 't09'
.begin
   ssilpodr:=t09.catalogs.nrec;
   naimpodr:=t09.catalogs.name;
   p1:=p1+1;
   xlSetCellStringValue(naimpodr,p1,1,p1,1);
end.
.{table 't01'
.begin
   p1:=p1+1;
   xlSetCellStringValue(t01.persons.fio,p1,3,p1,3);
end.
.}
.}
Остается конечно еще вариант объединить эти два запроса в один, видимо так и попробую сделать, но придется почти весь отчет перелопачивать (чужой причем), а всего то попросили сортировку добавить, надеялся, что достаточно будет один запрос поправить...