Как добавить новый вид субконто к счету?

  ВидМенеджеры = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.НайтиПоНаименованию("Менеджеры", Истина); 

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

// Получить нужный счет. 
Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); 
Если (Не Счет.Пустая()) И (Счет.ВидыСубконто.Найти(ВидМенеджеры) = Неопределено) Тогда 

    // Добавить новый вид субконто к счету. 
    ОбъектСчета = Счет.ПолучитьОбъект(); 
    НовыйВидСубконто = ОбъектСчета.ВидыСубконто.Добавить(); 
    НовыйВидСубконто.ВидСубконто = ВидМенеджеры; 
    НовыйВидСубконто.ТолькоОбороты = Истина; 
    НовыйВидСубконто.Суммовой = Истина; 
    
    ОбъектСчета.Записать(); 
КонецЕсли;