Хранение значений в табличной части документа

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

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

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

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