| aptemii 
								Гость
 | 
								|  | «  : 26-06-2009 07:04 »  |  | 
 
 Сам админ, а не программер, так заранее прошу не ругать за детские ошибки.Код отчета:
 Процедура Сформировать()
 Запрос = СоздатьОбъект("Запрос");
 
 ТекстЗапроса = "
 |ИнвКомпьютеров=Регистр.ОстаткиКомпьютеров.Компьютер;
 |Расположение=Регистр.ОстаткиКомпьютеров.Расположение;
 |Сотрудник=Регистр.ОстаткиКомпьютеров.Сотрудник;
 |Группировка Компьютер;
 |Группировка Расположение;
 |Условие(Компьютер в ВыбрКомпьютерГруппа);
 |Условие(Расположение в ВыбрРасположение);
 |";
 
 Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
 Возврат;
 КонецЕсли;
 
 Таб = СоздатьОбъект("Таблица");
 Таб.ВывестиСекцию("Заголовок");
 
 Пока Запрос.Группировка(1)=1 Цикл
 Если Запрос.Компьютер.ЭтоГруппа()=1 Тогда
 Таб.ВывестиСекцию("Компьютер");
 Иначе
 Таб.ВывестиСекцию("Расположение");
 Если Фл_НеВыводитьРасположение = 0 Тогда
 Пока Запрос.Группировка(2)=1 Цикл
 Таб.ВывестиСекцию("Сотрудник");
 КонецЦикла;
 КонецЕсли;
 КонецЕсли;
 КонецЦикла;
 Таб.Опции(0);
 Таб.Показать("ОстаткиКомпьютеров", "");
 
 КонецПроцедуры
 
 И ошибки:
 
 Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
 {Отчет.ОстаткиКомпьютеров.Форма.Модуль(15)}: Группировка Компьютер <<?>> ;
 Запр
 |