Прочее

Прочитать реквизиты форм типа набора записей

&НаСервере

Процедура ПрочитатьДвиженияДокумента(ДокументДвижений)

Для каждого СтрокаРегистра Из Регистры Цикл

Если СтрокаРегистра.Отображение Тогда

ИмяРеквизита = СтрокаРегистра.Имя + "НаборЗаписей";

НаборЗаписей = РеквизитФормыВЗначение(ИмяРеквизита);

НаборЗаписей.Отбор.Регистратор.Установить(ДокументДвижений);

НаборЗаписей.Прочитать();

ЗначениеВРеквизитФормы(НаборЗаписей, ИмяРеквизита);

Если СтрокаРегистра.ТипРегистра = "РегистрНакопления"

И СтрокаРегистра.РегистрОстатков Тогда

Для каждого СтрокаЗаписи Из ЭтотОбъект[ИмяРеквизита] Цикл

Если СтрокаЗаписи.ВидДвижения = ВидДвиженияНакопления.Приход Тогда

СтрокаЗаписи.КартинкаСтроки = 2 + ?(СтрокаЗаписи.Активность, 0, 1);

Иначе

СтрокаЗаписи.КартинкаСтроки = 4 + ?(СтрокаЗаписи.Активность, 0, 1);

КонецЕсли;

КонецЦикла;

КонецЕсли;

СтрокаРегистра.Записывать = ЭтотОбъект[ИмяРеквизита].Количество() > 0;

КонецЕсли;

КонецЦикла;

КонецПроцедуры