список справочника. нужно добавить колонку, данные которой выбираются из регистра сведений срезпоследних на текущую дату измерение это колонка присутствующая в списке
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(5)
Колонку на форму добавляем явно или программно.
В процедуру ПриПолученииДанных пишем примерно такой текст:
//Отбираем ссылки
СсылкиМассив = Новый Массив;
Соответствие = Новый Соответствие;
Для Каждого Стр Из ОформленияСтрок Цикл
СсылкиМассив.Добавить(Стр.ДанныеСтроки.Ссылка);
Соответствие.Вставить(Стр.ДанныеСтроки.Ссылка, Стр);
КонецЦикла;
//тут запрос к нужному регистру сведений с отбором по ссылкам (СсылкиМассив)
Выборка = ЗапросПоДаннымКолонки.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Соответствие.Получить(Выборка.Ссылка).Ячейки[ИмяКолонки].Значение = Выборка.ЗначениеКолонки;
//или
Соответствие.Получить(Выборка.Ссылка).Ячейки[ИмяКолонки].Текст = Выборка.ЗначениеКолонки;
КонецЦикла;
Колонку на форму добавляем явно или программно.
В процедуру ПриПолученииДанных пишем примерно такой текст:
//Отбираем ссылки
СсылкиМассив = Новый Массив;
Соответствие = Новый Соответствие;
Для Каждого Стр Из ОформленияСтрок Цикл
СсылкиМассив.Добавить(Стр.ДанныеСтроки.Ссылка);
Соответствие.Вставить(Стр.ДанныеСтроки.Ссылка, Стр);
КонецЦикла;
//тут запрос к нужному регистру сведений с отбором по ссылкам (СсылкиМассив)
Выборка = ЗапросПоДаннымКолонки.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Соответствие.Получить(Выборка.Ссылка).Ячейки[ИмяКолонки].Значение = Выборка.ЗначениеКолонки;
//или
Соответствие.Получить(Выборка.Ссылка).Ячейки[ИмяКолонки].Текст = Выборка.ЗначениеКолонки;
КонецЦикла;
(7)Сделал так:
Для Каждого Стр Из ОформленияСтрок Цикл
СсылкаСтр = Стр.ДанныеСтроки.Ссылка;
Если Не ЗначениеЗаполнено(СсылкаСтр.ДатаЗакрытия) Тогда
ДатаОтбора = ТекущаяДата();
Иначе
ДатаОтбора = СсылкаСтр.ДатаЗакрытия;
КонецЕсли;
Фил = СсылкаСтр.регион ;
ОтборДир = Новый Структура("Филиал", Фил);
Дир = РегистрыСведений.Алит_ДиректорФил.СрезПоследних(ДатаОтбора, ОтборДир);
Для Каждого Стр1 Из Дир Цикл
Директор = стр1.Директор ;
Стр.Ячейки["ДиректорФилиала"].Значение = Директор;
КонецЦикла;
ТТ = СсылкаСтр.ТТ ;
ОтборСуперв = Новый Структура("ТТ", ТТ);
Суперв = РегистрыСведений.Алит_Супервайзеры.СрезПоследних(ДатаОтбора, ОтборСуперв);
Для Каждого Стр2 Из Суперв Цикл
Супервай = Стр2.Супервайзер;
Стр.Ячейки["Супервайзер"].Значение = Супервай;
КонецЦикла;
КонецЦикла;
Показать
Для того, чтобы было быстрее, таблицу с нужными данными можно получить до цикла и потом в цикле дергать уже из таблицы. У меня без заметного подтормаживания работало на списках документов, параметр тянулся из регистра бухгалтерии. По замеру в обычном приложении такое решение совсем на копейки отличается от ДС.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот