Перебрать все реквизиты любого объекта

Задача нужно сделать запись из справочника в РС и это все в УФ. При этом если это не новый то записывать не надо. Проверить на Модифицированность() ПриЗаписи у справочника не получится, поэтому делаем вот так

Функция Модифицированность(Версия,ЭтотОбъект) Экспорт
 МД_Реквизиты = ЭтотОбъект.Метаданные().Реквизиты;
 РезультатМодифицированность=Ложь; 
 Для каждого Элемент Из МД_Реквизиты Цикл
  Если Версия[Элемент.Имя]<>ЭтотОбъект[Элемент.Имя] Тогда
   РезультатМодифицированность=Истина;
   Прервать;
  КонецЕсли;
 КонецЦикла; 
 Возврат РезультатМодифицированность;
КонецФункции