1С 8.2 УП : Определение пола по имени

 Функция ОпределитьПол(Имя) Экспорт

	

	Если СтрДлина(Имя) > 1 Тогда

		Запрос = Новый Запрос("

		|ВЫБРАТЬ

		|	П.Пол КАК Пол

		|ИЗ

		|	Справочник.Пациенты КАК П

		|ГДЕ

		|	ВЫРАЗИТЬ(П.Имя КАК СТРОКА(100)) = ВЫРАЗИТЬ(&Имя КАК СТРОКА(100))");

		Запрос.УстановитьПараметр("Имя",Имя);

		Результат = Запрос.Выполнить().Выгрузить();

		

		М = 0;

		Ж = 0;

		Для Каждого Строка Из Результат Цикл

			Если Строка.Пол = Перечисления.Пол.Мужской Тогда

				М = 1;

			КонецЕсли;

			Если Строка.Пол = Перечисления.Пол.Женский Тогда

				Ж = 1;

			КонецЕсли;

		КонецЦикла;

		

		Если (М = 1) И (Ж = 0) Тогда

			Возврат Перечисления.Пол.Мужской;

		КонецЕсли;

		Если (М = 0) И (Ж = 1) Тогда

			Возврат Перечисления.Пол.Женский;

		КонецЕсли;

	КонецЕсли;

		

КонецФункции