Форматирование наименования

&После("ПередЗаписью")
Процедура РЧ2025_ПередЗаписью(Отказ)
	
  КолонкиКалендарейСотрудников = "Справочник.Ссылка.КолонкиКалендарейСотрудников";
  НаименованиеКолонки = КолонкаКалендаря.Наименование;
  
  ВипЛимит = 4;
  
  
  Если НаименованиеКолонки = "Анализ" Тогда
    ВипЛимит = 3; 
  КонецЕсли;
  
  Запрос = Новый Запрос;
  Запрос.Текст =
    "ВЫБРАТЬ
    |  КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ЗаписиКалендаряСотрудника.Источник) КАК КоличествоЗадачВКолонке
    |ИЗ
    |  Справочник.ЗаписиКалендаряСотрудника КАК ЗаписиКалендаряСотрудника
    |ГДЕ
    |  ЗаписиКалендаряСотрудника.Источник <> &Источник
    |  И ЗаписиКалендаряСотрудника.КолонкаКалендаря = &КолонкаКалендаря
    |  И ЗаписиКалендаряСотрудника.Календарь = &Календарь
    |  И ЗаписиКалендаряСотрудника.Ссылка <> &Ссылка
    |  И НЕ ЗаписиКалендаряСотрудника.ПометкаУдаления";
  
  Запрос.УстановитьПараметр("Источник", Источник);
  Запрос.УстановитьПараметр("КолонкаКалендаря", КолонкаКалендаря);
  Запрос.УстановитьПараметр("Календарь", Календарь);
  Запрос.УстановитьПараметр("Ссылка", Ссылка);
  
  Выборка = Запрос.Выполнить().Выбрать();
  
  Выборка.Следующий();
  
  КоличествоЗадачВКолонке = Выборка.КоличествоЗадачВКолонке;
  
  Если Выборка.КоличествоЗадачВКолонке >= ВипЛимит Тогда
    ОбщегоНазначения.СообщитьПользователю("Превышено максимальное количество задач в колонке '" + НаименованиеКолонки + "'",,,,Отказ);
  КонецЕсли;
  
КонецПроцедуры

Если НаименованиеКолонки = "Анализ" Тогда
    КолонкаКалендаря.Наименование = "Анализ (" + КоличествоЗадачВКолонке + "/" + ВипЛимит + ")";
  КонецЕсли;