//Создание схемы запроса

СхемаЗапроса = Новый СхемаЗапроса;

ЗапросВыбораИзИБ = СхемаЗапроса.ПакетЗапросов[0];

//Установка свойств запроса

ЗапросВыбораИзИБ.ТаблицаДляПомещения = "ТаблицаОбороты";

ЗапросВыбораИзИБ.ВыбиратьРазрешенные = Истина;

//Добавляем операторы выбора первого запроса пакета

ОператорВыбораЗакупок = ЗапросВыбораИзИБ.Операторы[0];

ИсточникНоменклатура = ОператорВыбораЗакупок.Источники.Добавить("Справочник.Номенклатура","Товары");

//Добавляем запрос выбора из регистра закупок

ИсточникЗакупки = ОператорВыбораЗакупок.Источники.Добавить("РегистрНакопления.Закупки.Обороты","Закупки");

ИсточникЗакупки.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникЗакупки.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникЗакупки.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

//Меняем тип соединения

ИсточникЗакупки.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

//Указываем выбираемые поля

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Товары.Ссылка");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("Закупки.Период");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Закупки.СуммаОборот, 0)");

ОператорВыбораЗакупок.ВыбираемыеПоля.Добавить("0");

//Указываем спевдонимы для выбранных полей

ЗапросВыбораИзИБ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзИБ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзИБ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзИБ.Колонки[3].Псевдоним = "СуммаПродаж";

//Добавляем отбор

ОператорВыбораЗакупок.Отбор.Добавить("НЕ Товары.ЭтоГруппа");





///////////////////////

//Выбираем данные о продажах

ОператорВыбораПродаж = ЗапросВыбораИзИБ.Операторы.Добавить();

ИсточникНоменклатура = ОператорВыбораПродаж.Источники.Добавить("Справочник.Номенклатура","Товары");

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Товары.Ссылка");

//Добавляем источник РН и устанавливаем параметры

ИсточникПродажи =ОператорВыбораПродаж.Источники.Добавить("РегистрНакопления.Продажи.Обороты","Продажи");

ИсточникПродажи.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&Начало") ;

ИсточникПродажи.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("&Окончание") ;

ИсточникПродажи.Источник.Параметры[2].Выражение = Новый ВыражениеСхемыЗапроса("Месяц") ;

ИсточникПродажи.Соединения[0].ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее;

//Указываем отбираемые поля и устанавливаем для числовых полей соответствие с полями первого запроса

ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("Продажи.Период");

ВыражениеЗакупки = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("0");

ВыражениеПродажи = ОператорВыбораПродаж.ВыбираемыеПоля.Добавить("ЕСТЬNULL(Продажи.СуммаОборот, 0)");

ЗапросВыбораИзИБ.Колонки[2].Поля.Установить(1,ВыражениеЗакупки);

ЗапросВыбораИзИБ.Колонки[3].Поля.Установить(1,ВыражениеПродажи);

//Добавляем отбор

ОператорВыбораПродаж.Отбор.Добавить("НЕ Товары.ЭтоГруппа");

//Индексируем данные

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[0]);

ЗапросВыбораИзИБ.Индекс.Добавить(ЗапросВыбораИзИБ.Колонки[1]);

//Устанавливаем параметры выбора данных

ОператорВыбораПродаж.ВыбиратьРазличные = Истина;

ОператорВыбораПродаж.КоличествоПолучаемыхЗаписей = 100;





////////////////

//Второй пакет запроса

ЗапросВыбораИзВТ = СхемаЗапроса.ПакетЗапросов.Добавить();

ОператорВыбрать = ЗапросВыбораИзВТ.Операторы[0];

//Устанавливаем сформированную в прошлом запросе временную таблицу как источник

Источник = ОператорВыбрать.Источники.Добавить("ТаблицаОбороты","ТаблицаОбороты");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Номенклатура");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ТаблицаОбороты.Период");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок)");

ОператорВыбрать.ВыбираемыеПоля.Добавить("СУММА(ТаблицаОбороты.СуммаПродаж)");

//Условие отбора

ОператорВыбрать.Отбор.Добавить("СУММА(ТаблицаОбороты.СуммаЗакупок) > 0");

//Устанавливаем псевдонимы колонок

ЗапросВыбораИзВТ.Колонки[0].Псевдоним = "Номенклатура";

ЗапросВыбораИзВТ.Колонки[1].Псевдоним = "Период";

ЗапросВыбораИзВТ.Колонки[2].Псевдоним = "СуммаЗакупок";

ЗапросВыбораИзВТ.Колонки[3].Псевдоним = "СуммаПродаж";

//Порядок сортировки данных

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Операторы[0].Источники[0].Источник.ДоступныеПоля[0].Поля[6]);

ЗапросВыбораИзВТ.Порядок.Добавить(ЗапросВыбораИзВТ.Колонки[1]);

//Итоги запроса

ИтогНоменклатура = ЗапросВыбораИзВТ.КонтрольныеТочкиИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[0]);

ИтогНоменклатура.ТипКонтрольнойТочки = ТипКонтрольнойТочкиСхемыЗапроса.ТолькоИерархия; 

ЗапросВыбораИзВТ.ОбщиеИтоги =Истина;

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[2]);

ЗапросВыбораИзВТ.ВыраженияИтогов.Добавить(ЗапросВыбораИзВТ.Колонки[3]);

////////////////

//Последний запрос пакета - удаление временной таблицы

ЗапросУничтоженияВТ = СхемаЗапроса.ПакетЗапросов.Добавить(Тип("ЗапросУничтоженияТаблицыСхемыЗапроса"));

ЗапросУничтоженияВТ.ИмяТаблицы = "ТаблицаОбороты";







// ДАЛЕЕ ЕСЛИнам необходимо этот запрос модифицировать дальше в зависимости от настроек.

// Рассмотрим несколько примеров модификация нашего пакета из 3х запросов:

// Пример 1. Допустим, у нас есть переменные "Организация" и "Склад". И в случае, если они заполнены, нам необходимо добавить в отбор данных условия на эти переменные.

Если ЗначениеЗаполнено(Организация) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Организация = &Организация");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Организация = &Организация");

КонецЕсли; 

Если ЗначениеЗаполнено(Склад) Тогда

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Склад = &Склад");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Склад = &Склад");

КонецЕсли;



// Пример 2. Нам нужно отобрать товары, для которых последняя цена выше 1000руб. Т.е. необходимо 

// 1. Добавить в текст запроса выбор во временную таблицу из регистра цен номенклатуры, по которой цены выше 1000руб.

// 2. Добавить при выборе данных условия по этой временной таблице в оба запроса выбора данных (закупки и продажи).

// Как вклиниваться в текстовый запрос для выполнения этих действий, вы пожете представить самостоятельно.

// Программно мы просто добавляем строки кода:



//Добавляем временную таблицу

ЗапросИзРегистраЦен = СхемаЗапроса.ПакетЗапросов.Добавить();

//Настраиваем временную таблицу

ЗапросИзРегистраЦен.ТаблицаДляПомещения = "ВТ_ЦеныНоменклатуры";

ОператорВыбрать = ЗапросИзРегистраЦен.Операторы[0];

Источник = ОператорВыбрать.Источники.Добавить("РегистрСведений.ЦеныНоменклатуры.СрезПоследних","ЦеныНоменклатурыСрезПоследних");

ОператорВыбрать.ВыбираемыеПоля.Добавить("ЦеныНоменклатурыСрезПоследних.Номенклатура");

ОператорВыбрать.Отбор.Добавить("ЦеныНоменклатурыСрезПоследних.Цена > &Цена");

//Сдвигаем новую табличку перед запросами выбора данных

СхемаЗапроса.ПакетЗапросов.Сдвинуть(СхемаЗапроса.ПакетЗапросов.Индекс(ЗапросИзРегистраЦен),0);

//Добавляем условия в исходные запросы

ОператорВыбораЗакупок.Отбор.Добавить("Закупки.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");

ОператорВыбораПродаж.Отбор.Добавить("Продажи.Номенклатура В (ВЫБРАТЬ ВТ_ЦеныНоменклатуры.Номенклатура ИЗ ВТ_ЦеныНоменклатуры КАК ВТ_ЦеныНоменклатуры)");





// Еще один небольшой пример использования схемы запроса. Формирование запроса, выполняющего поиск задвоенных значений предопределенных данных. 

// Без обращения к метаданным формирует один общий запрос ко всем справочникам, планам счетов, ПВХ, ПВР вцелом по конфигурации. 

СхемаЗапроса = Новый СхемаЗапроса;

КоллекцияОператоры = СхемаЗапроса.ПакетЗапросов[0].Операторы;

Для каждого ГруппаТаблиц Из СхемаЗапроса.ПакетЗапросов[0].ДоступныеТаблицы Цикл

    Если ГруппаТаблиц.Представление = "Справочники"

        ИЛИ ГруппаТаблиц.Представление = "ПланыСчетов"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовРасчета"

        ИЛИ ГруппаТаблиц.Представление = "ПланыВидовХарактеристик" Тогда

        Для каждого Таблица Из ГруппаТаблиц.Состав Цикл

            Для каждого ПолеТаблицы Из Таблица.Поля Цикл

                Если ПолеТаблицы.Имя = "ИмяПредопределенныхДанных" Тогда

                    НовыйОператор = КоллекцияОператоры.Добавить();

                    НовыйИсточник = НовыйОператор.Источники.Добавить(Таблица,"СправочникИмя");

                    НовыйОператор.ВыбираемыеПоля.Добавить(""""+Таблица.Имя+"""");

                    НовыйОператор.ВыбираемыеПоля.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.ИмяПредопределенныхДанных)" );

                    НовыйОператор.Группировка.Добавить("СправочникИмя.ИмяПредопределенныхДанных");

                    НовыйОператор.Отбор.Добавить("СправочникИмя.Предопределенный");

                    НовыйОператор.Отбор.Добавить("КОЛИЧЕСТВО(РАЗЛИЧНЫЕ СправочникИмя.Ссылка) > 1");

                    Продолжить;

                КонецЕсли; 

            КонецЦикла; 

        КонецЦикла; 

    КонецЕсли; 

КонецЦикла; 

   

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

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

    Контрагент, 

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

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

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

    )



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

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



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

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

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

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



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

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



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

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



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



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

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

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

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



    КонецЦикла;



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

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



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



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

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

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



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

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

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

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

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

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

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

    |ИЗ

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

    |ГДЕ

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

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

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

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



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



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

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



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

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



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

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

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



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



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

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

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



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

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

 &НаКлиенте

Процедура ПолучитьСообщений(Команда)

	

	ПутьСохранения = "D:\temp";

	

	Профиль = Новый ИнтернетПочтовыйПрофиль;

	

	//Профиль.АдресСервераPOP3 = "re05.hc.ru";

	//Профиль.ПортPOP3 = "995";

	//Профиль.Пользователь = "robot@site.ru";

	//Профиль.Пароль = "11223344";

	Профиль.АутентификацияPOP3 = Ложь;

	Профиль.АутентификацияSMTP = Ложь;



	

	// IMAP

	Профиль.ИспользоватьSSLIMAP = Истина;

	Профиль.АдресСервераIMAP = "re05.hc.ru";

	Профиль.ПортIMAP = "993"; 	

	Профиль.ПользовательIMAP = "robot@site.ru";

	Профиль.ПарольIMAP = "11223344";

	Профиль.ТолькоЗащищеннаяАутентификацияIMAP=Ложь;

	

	Почта = Новый ИнтернетПочта;

	

	Сообщ = Новый СообщениеПользователю();

	

	Попытка

		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP); //ПротоколИнтернетПочты.POP3

		// Получаем все сообщения из почтового ящика

		МассивСообщений = Новый Массив;

		МассивСообщений = Почта.Выбрать(Ложь);

	Исключение

		// Ошибка при подключении к серверу или при приеме сообщения обмена

		Сообщ.Текст = " - Ошибка при подключении или приеме" + ОписаниеОшибки();

		Сообщ.Сообщить();

		Возврат;

	КонецПопытки;

	

	// Массив будет содержать сообщения, которые в последствии будут удалены с сервера 

	МассивСообщенийОбмена = Новый Массив;

	

	Если МассивСообщений.Количество() = 0 Тогда

		// Сообщений в почтовом ящике нет

		Сообщ.Текст = "Сообщений в почтовом ящике нет.";

		Сообщ.Сообщить();

		Возврат;

	КонецЕсли;

	

	ИмяФайлаСообщения = "";

	Для Индекс = 0 По МассивСообщений.Количество() - 1 Цикл  		

		// Отбираем только сообщения, которые содержат файлы прайсы, остальное спам 

		ЧастьТемы = "Price list";

		Если Лев(МассивСообщений[Индекс].Тема, СтрДлина(ЧастьТемы)) = ЧастьТемы Тогда

			Попытка

				// Записываем файл 

				МассивСообщений[Индекс].Вложения[0].Данные.Записать(ПутьСохранения+"\"+МассивСообщений[Индекс].Вложения[0].ИмяФайла);

				Сообщ.Текст = "Принят файл: " + МассивСообщений[Индекс].Вложения[0].ИмяФайла + " с адреса " + Профиль.Пользователь;

				Сообщ.Сообщить(); 				

			Исключение

				Сообщ.Текст = "Похоже нет файла в письме  ";

				Сообщ.Сообщить(); 				

			КонецПопытки;

		Иначе

			Почта.УдалитьСообщения(МассивСообщений[Индекс]);			

		КонецЕсли;

	КонецЦикла;

	

	Сообщ.Текст = "Сообщения получены!";

	Сообщ.Сообщить();

	Почта.Отключиться(); 

	

КонецПроцедуры

   

  ПланыОбменаМенеджер.ЗарегистрироватьИзменения(Узел, Неопределено);   

 ПланыОбменаМенеджер.ЗарегистрироватьИзменения(Узел, Метаданные.Справочники.Номенклатура);   

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

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

            "ВЫБРАТЬ РАЗЛИЧНЫЕ

            |    КомплектующиеНоменклатуры.Номенклатура,

            |    КомплектующиеНоменклатуры.ХарактеристикаНоменклатуры

            |ИЗ

            |    РегистрСведений.КомплектующиеНоменклатуры КАК КомплектующиеНоменклатуры";

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

        Набор = РегистрыСведений.КомплектующиеНоменклатуры.СоздатьНаборЗаписей();

        Пока Выборка.Следующий() Цикл

            Набор.Отбор.Номенклатура.Значение = Выборка.Номенклатура;

            Набор.Отбор.Номенклатура.Использование = Истина;

            Набор.Отбор.ХарактеристикаНоменклатуры.Значение = Выборка.ХарактеристикаНоменклатуры;

            Набор.Отбор.ХарактеристикаНоменклатуры.Использование = Истина;

            

            ПланыОбмена.ЗарегистрироватьИзменения(Узел, Набор);

        КонецЦикла;