S
Size: a a a
Аr
X
🅵
// Вызвать исключение, если не доступна подсистема Дополнительных Реквизитов и Сведений
Процедура ПроверитьИспользованиеДополнительныхРеквизитов()
Если Не УправлениеСвойствами.СвойстваДоступны() Тогда
ВызватьИсключение "Для текущего пользователя не доступна подсистема Дополнительных Реквизитов и Сведений";
ИначеЕсли Не ПолучитьФункциональнуюОпцию("ИспользоватьДополнительныеРеквизитыИСведения") Тогда
ВызватьИсключение "Подсистема Дополнительных Реквизитов и Сведений не включена:
|Администрирование > Общие настройки > Дополнительные реквизиты и сведения
|Установить галочку на 'Дополнительные реквизиты и сведения'.";
КонецЕсли;
КонецПроцедуры // ПроверитьИспользованиеДополнительныхРеквизитов()
🅵
...
СвойстваОбъекта = УправлениеСвойствами.СвойстваОбъекта(СсылкаНаОбъект);
ДопРеквизит = Неопределено;
Для Каждого Свойство Из СвойстваОбъекта Цикл
Если Свойство.Заголовок <> Заголовок Или Свойство.ПометкаУдаления Тогда Продолжить КонецЕсли;
ДопРеквизит = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаОбъект, Свойство);
Прервать;
КонецЦикла;
...