2
Admin_Net_1C
12.12.22
✎
08:21
|
как-то так:
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДЗ = РезультатЗапроса.Выбрать();
Пока ВыборкаДЗ.Следующий() Цикл
НовыйЭлемент = КалендарьЗаписей.Элементы.Добавить(ВыборкаДЗ.НачалоИнтервала, ВыборкаДЗ.КонецИнтервала);
НовыйЭлемент.Текст = СокрЛП(ВыборкаДЗ.Документ);
НовыйЭлемент.Значение = ВыборкаДЗ.Документ;
ЗначениеИзмерений = Новый Соответствие;
ЗначениеИзмерений.Вставить(КалендарьЗаписей.Измерения[0].Значение, ВыборкаДЗ.Ресурс);
НовыйЭлемент.ЗначенияИзмерений = Новый ФиксированноеСоответствие(ЗначениеИзмерений);
КонецЦикла;
|
|