0
igoza
01.09.13
✎
09:30
|
В отчёте нада вывести IP, ФИО, имя системника, рабочая группа, учётная запись с паролем, место расположение "помещение", MAC, Наличие интернета
И вся эта информация лежит в 3 отдельных места, т.е делю 3 зарпоса, а дальше то что, как их объединить в 1
раньше всё было просто, лежало в одном месте, но так не канает))
ЭлементыФормы.Результат.Очистить();
Если НЕ обЗначениеНеЗаполнено(РабочаяГруппа) Тогда
ПерУсловие = "И РабочаяГруппа = &РабочаяГруппа";
КонецЕсли;
Макет = Отчеты.IPВСети.ПолучитьМакет("Макет");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РабочиеМеста.IP,
| РабочиеМеста.Сотрудник,
| РабочиеМеста.Помещение,
| РабочиеМеста.РабочаяГруппа,
| РабочиеМеста.ИмяКомпьютера,
| РабочиеМеста.УчётнаяЗапись,
| РабочиеМеста.Пароль,
| РабочиеМеста.Запись,
| РабочиеМеста.IP.Интернет,
| РабочиеМеста.IP.Комментарий
|ИЗ
| Справочник.РабочиеМеста КАК РабочиеМеста
|ГДЕ
| IP.Код <> &IP
| "+ПерУсловие+"
|
|
|";
Пер = "";
Запрос.УстановитьПараметр("РабочаяГруппа", РабочаяГруппа);
Запрос.УстановитьПараметр("IP", Пер);
Результат = Запрос.Выполнить();
Результат = Запрос.Выполнить();
//ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
//ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
ЭлементыФормы.Результат.Вывести(ТабДок);
|
|