Здравствуйте, работаю в ЗУП 3.1. необходимо сделать обзор для нескольких подразделений. Добавляю реквизит формы "Список значений". записываю в него значения, провожу документ, открываю и реквизит уже пустой. пытался сделать через "Автоматическое сохранение данных формы в настройках", но в таком случае сохраняются выбранные подразделения в последнем документе, открываешь любой документ и список значений везде одинаковый. помогите, подскажите как реализовать

Нужен реквизит объекта, а не формы.

Пытаюсь сохранить  значение в реквизит документа Хранилище подразделений:

&НаСервере
Функция ПолучитьЗначениеХЗ()
    
    Возврат ХранилищеПодразделений.Получить();
    
КонецФункции

&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
    
    ХранилищеПодразделений = Новый ХранилищеЗначения(СписокЗначенийПодразделений);
    
КонецПроцедуры



в итоге:


{Документ.ТабельУчетаРабочегоВремени.Форма.ФормаДокумента.Форма(546,32)}: Переменная не определена (ХранилищеПодразделений)
    СписокЗначенийПодразделений = <<?>>ХранилищеПодразделений.Получить(); (Проверка: Тонкий клиент)

(2)Лучше уж в строку СЗ сохраняй через ЗначениеВСтрокуВнутр() чтобйыс хранилищем не париться.

(3) тогда уж не в строку, а в ТЧ

(4)Есть сомнения, что ТС осилит это действие:-)

(5) а со строкой справится? )))

(6)Ну, я ему уже метод подсказал:-)

(7) прикольно выйдет если подразделение удалят или эта строка по обмену уйдет куда-нить )))

лучше таки ТЧ

(8)Ну да, ссылочная целостность- наше все:-)

Реализовал с помощью созданной табличной части "Подразделения"

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    
    Если НЕ Объект.Ссылка.Пустая() Тогда
        
        Для Каждого СтрокаТЧ Из Объект.Подразделения Цикл
            
            СписокЗначенийПодразделений.Добавить(СтрокаТЧ.Подразделение);
            
        КонецЦикла;
        
    КонецЕсли;
    
КонецПроцедуры