24 февраля 2019 г.

1С [Конвертация] Комментарий ко всем объектам

Конвертация => ПослеЗагрузкиОбъекта:


ЕстьПолеКомментарий=Неопределено;
СправочникГруппа=Ложь;
ЗаполненоПолеКомментарий="";
Попытка
 ЕстьПолеКомментарий=Объект.Метаданные().Реквизиты.Найти("Комментарий");
Исключение
КонецПопытки;
Попытка
 ЗаполненоПолеКомментарий=Объект.Комментарий;
Исключение
КонецПопытки;
Попытка
 СправочникГруппа=Объект.ЭтоГруппа;
Исключение
КонецПопытки;
Если ЕстьПолеКомментарий <> Неопределено И Не СправочникГруппа И ЗаполненоПолеКомментарий="" Тогда
 Объект.Комментарий=Строка("Загружено из другой базы: "+ТекущаяДата());
КонецЕсли

Комментариев нет:

Отправка комментария