Установка программно субконто

Question

Добрый день, подскажите как программно заполнить в документе ОперацияБух, вид субконто подразделение? Оно отсутствует в предопределенных у плана вида характеристик ВидыСубконтоХозрасчетные.
 
[1C-CODE]ДокументОбъект = Документы.ОперацияБух.СоздатьДокумент();
        ДокументОбъект.Дата = ТекущаяДата();
        ДокументОбъект.Организация = Справочники.Организации.НайтиПоНаименованию("ООО");
        ДокументОбъект.СуммаОперации = 999;
        ДокументОбъект.Ответственный = ПараметрыСеанса.ТекущийПользователь;
        ДокументОбъект.Комментарий = "операция создана обработкой";
        ДокументОбъект.Проведен = Истина;
        Движения = ДокументОбъект.Движения.Хозрасчетный;
        Движение = Движения.Добавить();
        Движение.Активность = Истина;
        	
		Движение.СчетДТ= ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговле;
		Движение.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НайтиПоНаименованию("Подразделение"), Подразделение);
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Справочники.Номенклатура.НайтиПоНаименованию("Бренди Торрес 5 Солера резерва 0,7л 38% под.уп.");
        Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = Партия;
		Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад;
		
		Движение.СчетКт= ПланыСчетов.Хозрасчетный.ТоварыВРозничнойТорговле;
		ТУТ //Движение.СубконтоКТ[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Подразделение] = Подразделение;
        Движение.СубконтоКТ[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Справочники.Номенклатура.НайтиПоНаименованию("Бренди Торрес 5 Солера резерва 0,7л 38% под.уп.");
        Движение.СубконтоКТ[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии] = Партия;
		Движение.СубконтоКТ[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад;
		Движение.Сумма = 111;
		
		Движения.Записывать = Истина;                            
        Попытка
            ДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
        Исключение
            Отказ = Истина;
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
[/1C-CODE]

Accepted Answer

Уже давно в БП 3 Подразделение - это измерение.
[CODE]Движение.ПодразделениеДт = Подразделение;
Движение.ПодразделениеКт = Подразделение;[/CODE]