9.4. Метод СрезПоследних(…) менеджера регистра сведений

В модуле формы списка мы поместили кнопку "Печать", работа которой приводит к формированию табличного документа (см. рис. 9.21). Однако в этой печатной форме нет информации о балансовой и рыночной стоимости, которая хранится в регистре сведений.

Рис. 9.21. Результат работы кнопки "Печать".

Поэтому можно доработать отчет, поместив в него сведения из регистра "ДанныеОС". Так как этот регистр периодический, то извлекать данные можно только на какую-то дату. Для упрощения задачи мы будем строить отчет на Рабочую дату.

Считывать данные по одной записи, используя метод ПолучитьПоследнее(…) не очень эффективное решение, поэтому мы воспользуемся другим методом - СрезПоследних(…).

Этот метод возвращает объект типа "Таблица значений". Он может содержать переменное число строк и столбцов.

Упражнение №9.30.

Измените настройку ячеек в столбцах "Фирма", "Группа ОС", "Дата ввода" и "Дата списания", чтобы улучшить представленные в них данные. Добавьте три столбца "Балансовая стоимость", "Рыночная стоимость" и "Подразделение" (см. рис. 9.22).

Рис. 9.22. Макет печатной формы после доработки.

Для того чтобы получить срез последних записей, нам необходимо вставить в процедуру "Печать" до начала выборки записей из справочника следующую строку текста:

// Получение среза ТаблицаСреза = РегистрыСведений.ДанныеОС.СрезПоследних(РабочаяДата);

Фрагмент процедуры, который выводит реквизиты элемента справочника, будет выглядеть следующим образом:

Секция = Макет.ПолучитьОбласть("Элемент"); Секция.Параметры.Код = Объект.Код; Секция.Параметры.Наименование = Объект.Наименование; Секция.Параметры.Фирма = Объект.Фирма; Секция.Параметры.ГруппаОС = Объект.ГруппаОС; Секция.Параметры.ДатаВвода = Объект.ДатаВвода; Секция.Параметры.ДатаСписания = Объект.ДатаСписания; // Найдем строку содержащую ОС в таблице значений СтрокаСреза = ТаблицаСреза.Найти(Объект.Ссылка, "ОС"); Если СтрокаСреза<>Неопределено Тогда     Секция.Параметры.БалансоваяСтоимость = СтрокаСреза.БалансоваяСтоимость;     Секция.Параметры.РыночнаяСтоимость = СтрокаСреза.РыночнаяСтоимость;     Секция.Параметры.Подразделение = СтрокаСреза.Подразделение; КонецЕсли; ТабДок.Вывести(Секция);

Упражнение №9.30 (продолжение).

Внесите необходимые изменения в текст процедуры Печать() и проведите, если необходимо ее отладку.

9.5. Соединение в языке запросов

В предыдущем подразделе при выводе информации в табличный документ мы соединили в одном отчете данные из разных таблиц ИБ. Аналогичные действия можно делать и в языке запросов. Поэтому в этом подразделе мы построим точно такой же отчет, но путем формирования запроса к ИБ. Сначала выполните подготовительные действия:

Упражнение №9.31.

Добавьте в форму списка справочника "ОсновныеСредства" новую кнопку: Свойство Значение Имя ПечатьЗапросом Заголовок Печать запросом Нажатие ПечатьЗапросомНажатие И расположите ее около кнопки "Печать" (см. рис. 9.24).

Рис. 9.24. Кнопка "Печать запросом".

Упражнение №9.31 (продолжение).

Переключитесь на закладку модуль и наберите "заготовку" для написания текста запроса: //ПечатьЗапросомНажатие - выполняет теже действия, что и //процедура Печать(...), но с использованием объекта запрос Процедура ПечатьЗапросомНажатие(Элемент)     ТабДок = Новый ТабличныйДокумент;     Макет = Справочники.ОсновныеСредства.ПолучитьМакет("Печать");     // Заголовок     Секция = Макет.ПолучитьОбласть("Заголовок");     ТабДок.Вывести(Секция);     // Шапка     Секция = Макет.ПолучитьОбласть("Шапка");     ТабДок.Вывести(Секция);     Запрос = Новый Запрос();     Запрос.Текст =     "";     // Выполняем запрос     Результат = Запрос.Выполнить();     ТабДок.ОтображатьСетку = Ложь;     ТабДок.Защита = Ложь;     ТабДок.ТолькоПросмотр = Истина;     ТабДок.ОтображатьЗаголовки = Ложь;     ТабДок.Показать(); КонецПроцедуры

Давайте размышлять дальше. Для того чтобы выбрать данные (причем состав колонок в запросе должен совпадать с составом колонок в макете) из справочника, мы должны написать следующий текст:

"ВЫБРАТЬ | ОсновныеСредства.Ссылка КАК Ссылка, | ОсновныеСредства.Код КАК Код, | ОсновныеСредства.Наименование КАК Наименование, | ОсновныеСредства.Фирма КАК Фирма, | ОсновныеСредства.ГруппаОС КАК ГруппаОС, | ОсновныеСредства.ДатаВвода КАК ДатаВвода, | ОсновныеСредства.ДатаСписания КАК ДатаСписания | |ИЗ | Справочник.ОсновныеСредства КАК ОсновныеСредства

Для того чтобы получить срез последних записей из регистра сведений мы должны написать:

"ВЫБРАТЬ | ДанныеОС.БалансоваяСтоимость КАК БалансоваяСтоимость, | ДанныеОС.РыночнаяСтоимость КАК РыночнаяСтоимость, | ДанныеОС.Подразделение КАК Подразделение |ИЗ | РегистрСведений.ДанныеОС.СрезПоследних(&Период) КАК ДанныеОС

Тут следует обратить внимание на то, что запись РегистрСведений.ДанныеОС.СрезПоследних(&Период) представляет собой виртуальную таблицу, а &Период – это параметр ее создания. При создании текста с помощью Конструктора не забывайте нажимать на кнопку "Параметры виртуальной таблицы" (см. рис. 9.25). Если соединить два текста в один запрос, то в результате получится "каша" из записей справочника и виртуальной таблицы.

Для того чтобы какой-либо записи из справочника соответствовала бы какая-нибудь (если есть) запись, полученная из регистра сведений, необходимо установить соединение между этими исходными таблицами.

Рис. 9.25. Кнопка настройки виртуальной таблицы.

В тексте запроса это будет выглядеть так:

"ВЫБРАТЬ | ОсновныеСредства.Ссылка КАК Ссылка, | ОсновныеСредства.Код КАК Код, | ОсновныеСредства.Наименование КАК Наименование, | ОсновныеСредства.Фирма КАК Фирма, | ОсновныеСредства.ГруппаОС КАК ГруппаОС, | ОсновныеСредства.ДатаВвода КАК ДатаВвода, | ОсновныеСредства.ДатаСписания КАК ДатаСписания, | ДанныеОС.БалансоваяСтоимость КАК БалансоваяСтоимость, | ДанныеОС.РыночнаяСтоимость КАК РыночнаяСтоимость, | ДанныеОС.Подразделение КАК Подразделение |ИЗ | Справочник.ОсновныеСредства КАК ОсновныеСредства | ЛЕВОЕ СОЕДИНЕНИЕ | РегистрСведений.ДанныеОС.СрезПоследних(&Период) КАК ДанныеОС | ПО ОсновныеСредства.Ссылка = ДанныеОС.ОС

Слово ЛЕВОЕ означает, что все записи из справочника попадут в результат. Они будут соединены в отношении "1 ко многим" с записями из виртуальной таблицы.

Условие такого соединения: "ОсновныеСредства.Ссылка = ДанныеОС.ОС".

Для нашего случая виртуальная таблица РегистрСведений.ДанныеОС.СрезПоследних будет для каждого ОС содержать максимально одну запись.

Упражнение №9.31 (продолжение).

Внесите изменения в тест запроса и добавьте в его конце оператор упорядочивания результатов выборки: | |УПОРЯДОЧИТЬ ПО | Ссылка ИЕРАРХИЯ";

Теперь текст вызова запроса и цикл выборки будет выглядеть следующим образом:

// Выполняем запрос Запрос.УстановитьПараметр("Период",РабочаяДата); Результат = Запрос.Выполнить(); //Откроем выборку Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл     Если Выборка.Ссылка.ЭтоГруппа Тогда     Секция = Макет.ПолучитьОбласть("Группа");     Секция.Параметры.Заполнить(Выборка);     ТабДок.Вывести(Секция); Иначе     Секция = Макет.ПолучитьОбласть("Элемент");     Секция.Параметры.Заполнить(Выборка);     ТабДок.Вывести(Секция); КонецЕсли; КонецЦикла;

Следует обратить внимание на метод .Заполнить(…), который позволяет заполнить параметры области макета табличного документа, сократив объем фрагмента их заполнения до одной строки!

Упражнение №9.31 (продолжение).

Закончите формирование текста процедуры. Проверьте ее работу и сравните результаты печатной формы с предыдущим алгоритмом. По окончании выполнения упражнения измените версию конфигурации на значение – "8004.9".