//Нужно запросом получить контактные данные(ФИО, Адрес, Телефон) :

// ФизЛицо			Адрес								Телефон

// Иванов Петр Сергеевич	140943, Московская обл, Дзержинский г, Угрешская ул, дом № 3, кв.21

// Иванова Оксана Александровна	119672, Москва г, Краснобогатырская ул, дом № 2, корпус 4, кв.15		(499) 730-18-02

// Петрова Тамара Алексеевна	141257, Московская обл, Долгопрудный г, Молодежная ул, дом № 7, кв.3	

// Сидорова Юлия Васильевна	107126, Москва г, Академика Анохина ул, дом № 12, кв.54			(495) 963-08-01



Запрос=Новый Запрос;

Запрос.Текст="

|ВЫБРАТЬ

|	ВЗАдрес.Ссылка КАК ФизЛицо,

|	ВЗАдрес.Адрес,

|	ВЗТелефон.Телефон

|ИЗ

|	(ВЫБРАТЬ

|		ФизическиеЛица.Ссылка КАК Ссылка,

|		КонтактнаяИнформация.Представление КАК Адрес

|	ИЗ

|		Справочник.ФизическиеЛица КАК ФизическиеЛица

|			ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

|			ПО ФизическиеЛица.Ссылка = КонтактнаяИнформация.Объект

|	ГДЕ

|		КонтактнаяИнформация.Вид = &АдрПоПрописке

|		И КонтактнаяИнформация.Тип = &Адрес) КАК ВЗАдрес

|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

|			ФизическиеЛица.Ссылка КАК Ссылка,

|			КонтактнаяИнформация.Представление КАК Телефон

|		ИЗ

|			Справочник.ФизическиеЛица КАК ФизическиеЛица

|				ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

|				ПО ФизическиеЛица.Ссылка = КонтактнаяИнформация.Объект

|		ГДЕ

|			КонтактнаяИнформация.Вид = &ВидТелеф

|			И КонтактнаяИнформация.Тип = &Телефон) КАК ВЗТелефон

|		ПО ВЗАдрес.Ссылка = ВЗТелефон.Ссылка

|

|УПОРЯДОЧИТЬ ПО

|	ФизЛицо

|АВТОУПОРЯДОЧИВАНИЕ

|";

Запрос.УстановитьПараметр("Адрес",Перечисления.ТипыКонтактнойИнформации.Адрес);

Запрос.УстановитьПараметр("АдрПоПрописке",Справочники.ВидыКонтактнойИнформации.ЮрАдресФизЛица);

Запрос.УстановитьПараметр("ВидТелеф",Справочники.ВидыКонтактнойИнформации.ТелефонФизЛица);

Запрос.УстановитьПараметр("Телефон",Перечисления.ТипыКонтактнойИнформации.Телефон);

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

Результат = Результат.Выбрать();

Пока Результат.Следующий() Цикл

	// обработка

КонецЦикла;    

 

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

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

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



//Пример обращения

Текст = "Андреева Алла Александровна";

Сообщить(ФамилияИО(Текст)); //Выведет - Андреева А. А.

   

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

	Пока Найти(Сотрудник, "  ") <> 0 Цикл

		Сотрудник = СтрЗаменить(Сотрудник,"  "," ");	

	КонецЦикла;

	

	Сотрудник = СтрЗаменить(Сотрудник," ",Символы.ПС);

	Возврат Лев(СтрПолучитьСтроку(Сотрудник,2),1) + ". "+Лев(СтрПолучитьСтроку(Сотрудник,3),1) + ". "+СтрПолучитьСтроку(Сотрудник,1);

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

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

	// позиция первого пробела

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		// позиция второго пробела

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

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