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