РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
Рег = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
Рег.Отбор.Объект.Установить(Источник.Ссылка);
Рег.Отбор.Свойство.Установить(ХарактеристикаСклад);
Рег.Прочитать();
Если Рег.Количество() > 0 Тогда
      	Склад = Рег.Получить(0).Значение;
КонецЕсли;