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