Автозаполнение "Имя для входа" в справочнике "Сотрудники"

Question

Добрый день!
Подскажите, как изменить алгоритм, чтобы в графу "Имя для входа" подставлялись не фамилия и инициалы от ИО, как стандартно это заложено, а фамилия и имя полностью?
Функция в общем модуле:

Функция ПолучитьКраткоеИмяПользователяИБ(Знач ПолноеИмя) Экспорт
	
	Разделители = Новый Массив;
	Разделители.Добавить(" ");
	Разделители.Добавить(".");
	
	КраткоеИмя = "";
	Для Счетчик = 1 По 3 Цикл
		
		Если Счетчик <> 1 Тогда
			КраткоеИмя = КраткоеИмя + ВРег(Лев(ПолноеИмя, 1));
		КонецЕсли;
		
		ПозицияРазделителя = 0;
		Для каждого Разделитель Из Разделители Цикл
			ПозицияТекущегоРазделителя = СтрНайти(ПолноеИмя, Разделитель);
			Если ПозицияТекущегоРазделителя > 0
			   И (    ПозицияРазделителя = 0
			      ИЛИ ПозицияРазделителя > ПозицияТекущегоРазделителя ) Тогда
				ПозицияРазделителя = ПозицияТекущегоРазделителя;
			КонецЕсли;
		КонецЦикла;
		
		Если ПозицияРазделителя = 0 Тогда
			Если Счетчик = 1 Тогда
				КраткоеИмя = ПолноеИмя;
			КонецЕсли;
			Прервать;
		КонецЕсли;
		
		Если Счетчик = 1 Тогда
			КраткоеИмя = Лев(ПолноеИмя, ПозицияРазделителя - 1);
		КонецЕсли;
		
		ПолноеИмя = Прав(ПолноеИмя, СтрДлина(ПолноеИмя) - ПозицияРазделителя);
		Пока Разделители.Найти(Лев(ПолноеИмя, 1)) <> Неопределено Цикл
			ПолноеИмя = Сред(ПолноеИмя, 2);
		КонецЦикла;
	КонецЦикла;
	
	Возврат КраткоеИмя;
	
КонецФункции

Показать

Accepted Answer

(1)

[CODE]
Функция ПолучитьКраткоеИмяПользователяИБ(Знач ПолноеИмя) Экспорт
	
	СтрокаРазделителей = ".,/";
	
	Для Символ = 1 По СтрДлина(СтрокаРазделителей) Цикл
		ПолноеИмя = СтрЗаменить(ПолноеИмя, Сред(СтрокаРазделителей, Символ, 1), " ");	
	КонецЦикла;
	ФИОвМассиве = СтрРазделить(ПолноеИмя, " ", Ложь);
	
	Если ФИОвМассиве.Количество() >= 2  Тогда
		КраткоеИмя = ФИОвМассиве[0] + ФИОвМассиве[1];
	ИначеЕсли ФИОвМассиве.Количество() = 1  Тогда
		КраткоеИмя = ФИОвМассиве[0];
	Иначе
		КраткоеИмя = СокрЛП(ПолноеИмя);
	КонецЕсли;
	
	Возврат КраткоеИмя;
	
КонецФункции[/CODE]