Прочее
Прочитать реквизиты форм типа набора записей
&НаСервере
Процедура ПрочитатьДвиженияДокумента(ДокументДвижений)
Для каждого СтрокаРегистра Из Регистры Цикл
Если СтрокаРегистра.Отображение Тогда
ИмяРеквизита = СтрокаРегистра.Имя + "НаборЗаписей";
НаборЗаписей = РеквизитФормыВЗначение(ИмяРеквизита);
НаборЗаписей.Отбор.Регистратор.Установить(ДокументДвижений);
НаборЗаписей.Прочитать();
ЗначениеВРеквизитФормы(НаборЗаписей, ИмяРеквизита);
Если СтрокаРегистра.ТипРегистра = "РегистрНакопления"
И СтрокаРегистра.РегистрОстатков Тогда
Для каждого СтрокаЗаписи Из ЭтотОбъект[ИмяРеквизита] Цикл
Если СтрокаЗаписи.ВидДвижения = ВидДвиженияНакопления.Приход Тогда
СтрокаЗаписи.КартинкаСтроки = 2 + ?(СтрокаЗаписи.Активность, 0, 1);
Иначе
СтрокаЗаписи.КартинкаСтроки = 4 + ?(СтрокаЗаписи.Активность, 0, 1);
КонецЕсли;
КонецЦикла;
КонецЕсли;
СтрокаРегистра.Записывать = ЭтотОбъект[ИмяРеквизита].Количество() > 0;
КонецЕсли;
КонецЦикла;
КонецПроцедуры