// Исправляем значения Контактной Информации контрагента в Регистре сведений

Функция ОчиститьEmail(

    Контрагент, 

    ТипКонтактнойИнформации,

    ВидКонтактнойИнформации,

    Представление 

    )



    // #1  Создаем набор записей

    НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();



    // #2 Отбираем (по измерениям)

    НаборЗаписей.Отбор.Объект.Установить(Контрагент);

    НаборЗаписей.Отбор.Тип.Установить(ТипКонтактнойИнформации);

    НаборЗаписей.Отбор.Вид.Установить(ВидКонтактнойИнформации);    



    // #3 Читаем набор записей

    НаборЗаписей.Прочитать();



    // #4 редактируем в цикле каждую запись из набора

    Для каждого СтрНабЗап Из НаборЗаписей Цикл



        СтрНабЗап.Представление    = ""; 



        сообщить("" + Контрагент + " | " 

        + ТипКонтактнойИнформации + " | " 

        + ВидКонтактнойИнформации + " | " 

        + Представление + " -> " + СтрНабЗап.Представление + " [Ok!]");



    КонецЦикла;



    // #5 Сохраняем набор записей

    НаборЗаписей.Записать();    



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



// Получить таблицу значений

// Записи из Регистра Сведений КонтактнаяИнформация с некорректными Email

функция ПолучитьТЗ()        



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

    Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1000000

    |    КонтактнаяИнформация.Объект,

    |    КонтактнаяИнформация.Тип,

    |    КонтактнаяИнформация.Вид,

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

    |    (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) как стрПредставление

    |ИЗ

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

    |ГДЕ

    |    КонтактнаяИнформация.Тип = &Тип

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

    |    И (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) <> &ПустоеЗначение        

    |    И НЕ КонтактнаяИнформация.Представление ПОДОБНО &ШаблонEmail";



    //Параметры запроса:    



    // Типы контактной информации

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



    // пустая строка

    Запрос.УстановитьПараметр("ПустоеЗначение","");// Строка



    // критерий отбора для примера простой - строка содержит символ "@" - значит это почта

    Запрос.УстановитьПараметр("ШаблонEmail","%@%");// Строка

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



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



    // результат запроса выгрузить в

    // таблицу значений 

    ПлохиеEmailТЗ   = Результат.Выгрузить();



    Возврат ПлохиеEmailТЗ;

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

 | ВзаиморасчетыСПокупателямиОстатки.Проект = &ПроектыПустаяСсылка   

 Запрос.УстановитьПараметр("ПроектыПустаяСсылка", Справочник.Проекты.ПустаяСсылка());   

 | ВзаиморасчетыСПокупателямиОстатки.Проект = ЗНАЧЕНИЕ(Справочник.Проекты.ПустаяСсылка)    

 //ПРИМЕР 1 (Получение паспортный данных сотрудника)

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

Запрос.УстановитьПараметр("Физлицо", Физлицо);

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

"ВЫБРАТЬ РАЗРЕШЕННЫЕ

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКодПодразделения,

|             "","" + АдресаФактические.Поле1 + "","" + АдресаФактические.Поле2 + "","" + АдресаФактические.Поле3 + "","" + АдресаФактические.Поле4 + "","" + АдресаФактические.Поле5 + "","" + АдресаФактические.Поле6 + "","" + АдресаФактические.Поле7 + "","" + АдресаФактические.Поле8 + "","" + АдресаФактические.Поле9 КАК АдресФактический,

|             "","" + АдресПрописки.Поле1 + "","" + АдресПрописки.Поле2 + "","" + АдресПрописки.Поле3 + "","" + АдресПрописки.Поле4 + "","" + АдресПрописки.Поле5 + "","" + АдресПрописки.Поле6 + "","" + АдресПрописки.Поле7 + "","" + АдресПрописки.Поле8 + "","" + АдресПрописки.Поле9 КАК АдресПоПрописке,

|             ДомашниеТелефоны.Поле3 КАК ТелефонДомашний

|ИЗ

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

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(, ФизЛицо = &ФизЛицо) КАК ПаспортныеДанныеФизЛицСрезПоследних

|             ПО ФизическиеЛица.Ссылка = ПаспортныеДанныеФизЛицСрезПоследних.ФизЛицо

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

|             ПО ФизическиеЛица.Ссылка = ДомашниеТелефоны.Объект

|             И (ДомашниеТелефоны.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛица))

|             И (ДомашниеТелефоны.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон))

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

|             ПО ФизическиеЛица.Ссылка = АдресаФактические.Объект

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

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

|             ПО (ФизическиеЛица.Ссылка = АдресаФактические.Объект)

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

|ГДЕ

|             ФизическиеЛица.Ссылка = &Физлицо";

Выборка = Запрос.Выполнить().Выбрать();    

Если Выборка.Следующий() Тогда

    АдресПроживания = Выборка.АдресФактический;

    УдостоверениеЛичности = Строка(Выборка.ДокументВид)+"; "+Выборка.ДокументСерия+"; "+Выборка.ДокументНомер+"; "+Формат(Выборка.ДокументДатаВыдачи,"ДЛФ=D");

    Телефон = Выборка.ТелефонДомашний; 

КонецЕсли;



//ПРИМЕР 2

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

Запрос.Текст = "ВЫБРАТЬ

|    ВидыНоменклатуры.Ссылка как ссылка,

|    ВидыНоменклатуры.Порядок

|ИЗ

|    Перечисление.ВидыНоменклатуры КАК ВидыНоменклатуры

|ГДЕ

|    ВидыНоменклатуры.Ссылка = Значение(Перечисление.ВидыНоменклатуры.Услуга) ";



ТЗ = Новый ТаблицаЗначений;

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

ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;

ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();   

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

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

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

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

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

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



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

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

|ВЫБРАТЬ

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

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

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

|ИЗ

|	(ВЫБРАТЬ

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

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

|	ИЗ

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

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

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

|	ГДЕ

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

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

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

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

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

|		ИЗ

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

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

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

|		ГДЕ

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

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

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

|

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

|	ФизЛицо

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

|";

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

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

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

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

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

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

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

	// обработка

КонецЦикла;