&НаКлиенте
Процедура Инфо(Команда)
табДок = инф();
ТабДок.Показать("Информация", "Инфо.mxl");
КонецПроцедуры
&НаСервере
Функция инф()
ТабДок = Новый ТабличныйДокумент;
Секция = ТабДок.ПолучитьОбласть("R1");
Секция.Область("R1C1").Текст = "ФИО.";
ТабДок.Вывести(Секция,1,"Группа",Истина);
Секция.Область("R1C1").Текст = "Текст задачи";
ТабДок.Вывести(Секция,1,"Группа",Истина);
Для каждого спр Из Справочники Цикл
Сообщить(спр);
стр = СтрЗаменить(спр,"СправочникМенеджер.","");
Секция.Область("R1C1").Текст = стр;
ТабДок.Вывести(Секция,1,"Группа",Истина);
выб = спр.выбрать();
а = 0;
пока выб.следующий() Цикл
а = а + 1;
КонецЦикла;
Секция.Область("R1C1").Текст = а;
ТабДок.Вывести(Секция,1,"Группа",Истина);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
Возврат ТабДок;
КонецФункции
Помогите с решением)