Как в ЗУП 8 получить паспортные данные физического лица

// Функция формирует фамилию и инициалы либо по наименованию элемента спр-ка ФизическиеЛица
//  либо по переданным строкам.
//  Если передан Объект, то извлеченная из него строка считается совокупностью 
//  Фамилия + Имя + Отчество, разделенными пробелами.
//
// Параметры
//  Объект		- строка или ссылка или объект элемента спр-ка ФизическиеЛица.
//  Фамилия		- фамилия физ. лица.
//  Имя			- имя физ. лица.
//  Отчество	- отчество физ. лица.
//
// Возвращаемое значение 
//  Фамилия и Инициалы одной строкой. Побочные эффекты - переданная целая строка 
//  Побочные эффекты - переданная целая строка разбивается на подстроки, соответствующие
//  отдельным Фамилии,Имени и Отчеству
//
Функция ФамилияИнициалыФизЛица(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт

	Если Не ЗначениеЗаполнено(Фамилия) И Не ЗначениеЗаполнено(Имя) Тогда
		
		ФИО = ФамилияИмяОтчествоФизЛица(Объект);
		
		Фамилия = ФИО.Фамилия;
		Имя		= ФИО.Имя;
		Отчество= ФИО.Отчество;
		
	КонецЕсли;	
	
	Возврат ?(НЕ ПустаяСтрока(Фамилия), 
				Фамилия + ?(НЕ ПустаяСтрока(Имя)," " + Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), ""),
				"");

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

// Функция формирует фамилию и инициалы либо по наименованию элемента спр-ка ФизическиеЛица
//  либо по переданным строкам.
//  Если передан Объект, то извлеченная из него строка считается совокупностью 
//  Фамилия + Имя + Отчество, разделенными пробелами.
//
// Параметры
//  Объект		- строка или ссылка или объект элемента спр-ка ФизическиеЛица.
//  Фамилия		- фамилия физ. лица.
//  Имя			- имя физ. лица.
//  Отчество	- отчество физ. лица.
//
// Возвращаемое значение 
//  Фамилия и Инициалы одной строкой. Побочные эффекты - переданная целая строка 
//  Побочные эффекты - переданная целая строка разбивается на подстроки, соответствующие
//  отдельным Фамилии,Имени и Отчеству
//
Функция ИнициалыФизЛицаФамилия(Объект = "", Фамилия = " ", Имя = " ", Отчество = " ") Экспорт

	Если НЕ ЗначениеЗаполнено("" + Фамилия + Имя + Отчество) Тогда
		
		ФИО = ФамилияИмяОтчествоФизЛица(Объект);
		
		Фамилия = ФИО.Фамилия;
		Имя		= ФИО.Имя;
		Отчество= ФИО.Отчество;
		
	КонецЕсли;
			
	Возврат ?(НЕ ПустаяСтрока(Фамилия), 
				"" + ?(НЕ ПустаяСтрока(Имя),Лев(Имя,1) + "." + ?(НЕ ПустаяСтрока(Отчество),Лев(Отчество,1)+".", ""), "") + " " + Фамилия,
				"");

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

Функция ФамилияИмяОтчествоФизЛица(Объект)
	
	ТипОбъекта = ТипЗнч(Объект);
	
	ФИО = Новый Массив;
	
	Если ТипОбъекта <> Тип("Неопределено") Тогда
	
		СписокТиповСсылок	= ОбщегоНазначенияПереопределяемый.ВернутьСписокТиповСсылокДляФормированияФИО();
		СписокТиповОбъектов	= ОбщегоНазначенияПереопределяемый.ВернутьСписокТиповОбъектовДляФормированияФИО();

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