Как правильно вытащить Подразделение?

Выдает ошибку:
{Форма.Отчет.Форма(224)}: Поле объекта не обнаружено (Подразделение)
Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;

____________________________________________________________­___________________________
Подразделение = "";

Если ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда

Если ВыборкаДетальныеЗаписи.Документ.Товары.Количество() > 0 Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;

КонецЕсли;

ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ВводНачальныхОстатковПоВзаиморасчетам") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.КорректировкаЗаписейРегистров") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ОперацияБух") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ПлатежноеПоручениеВходящее") Тогда

Причина = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ПлатежноеПоручениеИсходящее") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ПриходныйКассовыйОрдер") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.РасходныйКассовыйОрдер") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
ИначеЕсли ТипЗнч(ВыборкаДетальныеЗаписи.Документ) = Тип("ДокументСсылка.ОперацияБух") Тогда

Подразделение = ВыборкаДетальныеЗаписи.Документ.Подразделение;
КонецЕсли;

Если (НоваяСтрокаДолг.Дата = Неопределено)
или (НоваяСтрокаДолг.Дата < ВыборкаДетальныеЗаписи.ДатаДолга) Тогда

НоваяСтрокаДолг.Дата = ВыборкаДетальныеЗаписи.ДатаДолга;
НоваяСтрокаДолг.Причина = Причина;
//СуммаДолга = ВыборкаДетальныеЗаписи.ОборотДебет;

ИначеЕсли НоваяСтрокаДолг.Дата > ВыборкаДетальныеЗаписи.ДатаДолга Тогда

КонецЕсли;
----------------------------------------------------------------------------------
и почему интерфейс текста сообщения не могу использовать??(на форуме)