1С 8.2 УП : Как добавить новый вид субконто к счету?

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



// Добавить новый вид характеристик. 

Если ВидМенеджеры.Пустая() Тогда 

    ВидМенеджеры = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СоздатьЭлемент(); 

    ВидМенеджеры.Наименование = "Менеджеры"; 

    ВидМенеджеры.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.Пользователи"); 

    

    ВидМенеджеры.Записать(); 

КонецЕсли; 



// Получить нужный счет. 

Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1"); 

Если (Не Счет.Пустая()) И (Счет.ВидыСубконто.Найти(ВидМенеджеры) = Неопределено) Тогда 



    // Добавить новый вид субконто к счету. 

    ОбъектСчета = Счет.ПолучитьОбъект(); 

    НовыйВидСубконто = ОбъектСчета.ВидыСубконто.Добавить(); 

    НовыйВидСубконто.ВидСубконто = ВидМенеджеры; 

    НовыйВидСубконто.ТолькоОбороты = Истина; 

    НовыйВидСубконто.Суммовой = Истина; 

    

    ОбъектСчета.Записать(); 

КонецЕсли;