Если ТипЗнч(ЭлементРасшифровки) = Тип("ЭлементРасшифровкиКомпоновкиДанныхПоля") Тогда
Для каждого Элемент Из ЭлементРасшифровки.ПолучитьПоля() Цикл
Если НЕ Элемент.Иерархия Тогда
ЗначенияПолей.Вставить(Элемент.Поле, Элемент.Значение);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Родители = ЭлементРасшифровки.ПолучитьРодителей();
Для каждого Элемент Из Родители Цикл
ЗаполнитьЗначенияПолейРасшифровки(Элемент, ЗначенияПолей);
КонецЦикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший