&НаКлиенте

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

	

	ПутьСохранения = "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].ИмяФайла + " с адреса " + Профиль.Пользователь;

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

			Исключение

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

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

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

		Иначе

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

		КонецЕсли;

	КонецЦикла;

	

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

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

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

	

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

   

 // отправка почтового сообщения...

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

	Профиль.АдресСервераSMTP = "smtp.yandex.ru";

	Профиль.ПользовательSMTP = "111";

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

	ПРофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

	

	Сообщение = Новый ИнтернетПочтовоеСообщение;

	Сообщение.Отправитель = "121@yandex.ru";

	Сообщение.Тема = ""+ПрефиксФилиала;

	Сообщение.Получатели.Добавить("12321@yandex.ru");

	Сообщение.Тексты.Добавить(ТекстПисьма);

	Сообщение.Вложения.Добавить(ИмяВременногоZiPфайла);

	

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

	Попытка 

		Состояние("Отправка почтового сообщения...");

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

		Почта.Послать(Сообщение);

		Предупреждение("Сообщения успешно отправлены!");

	Исключение

		Сообщить("Ошибка соединения с сервером.",СтатусСообщения.ОченьВажное);

		Сообщить(""+ОписаниеОшибки());

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

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

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

    Профиль.Пользователь = "121";

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

    ПРофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;

    

    Попытка

        Предупреждение("Попытка подключения к серверу почты "+Профиль.АдресСервераPOP3);

        Состояние("Подключение к серверу "+Профиль.АдресСервераPOP3);

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

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

        

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

        Предупреждение("Чтение почтовых сообщений");

        Состояние("Чтение почтовых сообщений...");

        МассивСообщений = Почта.Выбрать(Ложь); // ЛОжь - письма с сервера не удаляются...

    Исключение

        Предупреждение("Ошибка подключения к серверу ","Остановить");

        Предупреждение(""+ОписаниеОшибки(),"Остановить");

        Сообщить("Ошибка подключения к серверу!");

        Сообщить(""+ОписаниеОшибки());

        Возврат;

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

    

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

        Предупреждение("В почтовом ящике нет сообщений. Прерываем работу.");

        Сообщить("Почтовый ящик пуст");

        ПолученныеПисьма.Очистить();

        Возврат;

    КонецЕсли;

    ОтобразитьПочтовыеПисьма();

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



Процедура ОтобразитьПочтовыеПисьма()

    ПолученныеПисьма.Очистить();

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

        Возврат; // почтовых сообщений нету.

    КонецЕсли;

    

    Предупреждение("Начало отображения сообщений в обработке");

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

    

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

    ПолученныеПисьма.Очистить();

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

        стр = ПолученныеПисьма.Добавить();

        стр.ДатаОтправления = МассивСообщений[Индекс].ДатаОтправления;

        стр.ЗаголовокСообщения = МассивСообщений[Индекс].Заголовок;

        стр.Индекс = Индекс;

        стр.КоличествоВложений = МассивСообщений[Индекс].Вложения.Количество();

        стр.КоличествоТекстов = МассивСообщений[Индекс].Тексты.Количество();

        стр.Размер = МассивСообщений[Индекс].Размер;

        стр.Тема = МассивСообщений[Индекс].Тема;

    КонецЦикла;

    Предупреждение("Сообщения отображены");

       

 ПроверитьЗаполнение()    

 &НаКлиенте

Процедура СформироватьБезСКД(Команда)

        // Проверим заполнение обязательных реквизитов

	Если Не ПроверитьЗаполнение() Тогда  	

		Возврат;                         	

	КонецЕсли;     	

	СформироватьСервер();		

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

 Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) 

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

 Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)



  Клиент = ПроверяемыеРеквизиты.Найти("Контрагент");



  Если Клиент<>Неопределено тогда



   ПроверяемыеРеквизиты.Удалить(Клиент);



  конецесли;



  ПроверяемыеРеквизиты.Добавить("Склад");



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

 ПроверяемыеРеквизиты.Очистить();



Если Контрагент.ПометкаУдаления Тогда



  Отказ = Истина;



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



  Сообщение.Текст = "Нельзя указывать контрагента, помеченного на удаление!";



  Сообщение.Поле = "Контрагент";



  Сообщение.УстановитьДанные(ЭтотОбъект);



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





КонецЕсли; 



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

 &НаКлиенте



Процедура Проверить(Команда)



  ПроверитьНаСервере();



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





&НаСервере



Процедура ПроверитьНаСервере()



  Документ = РеквизитФормыВЗначение("Объект");



  Документ.ПроверитьЗаполнение(); 



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

  //СписокРеквизитов - список значений. Элемент списка значений - имена реквизитов для проверки через запятую. 

//Если представление заполнено - считается, что передаются реквизиты табличной части.  Пример:

СписокРеквизитовДляПроверки=Новый СписокЗначений;

СписокРеквизитовДляПроверки.Добавить("Контрагент,МестоХранения,ВидОперации");

СписокРеквизитовДляПроверки.Добавить("Номенклатура,Единица,Цена,Количество","ПолнаяТаблица");

СписокРеквизитовДляПроверки.Добавить("ВидОтклонений,Номенклатура,Единица,Серия,Цена,Количество","ТаблицаОтклонений");

        

Если Не глРеквизитыОбъектаЗаполнены(Источник,СписокРеквизитовДляПроверки) Тогда

     Отказ=Истина;

     Возврат;

КонецЕсли;



Функция глРеквизитыОбъектаЗаполнены(Объект,СписокРеквизитов) Экспорт

    МетаданныеОбъекта=Объект.Метаданные();

    МетаданныеТабличныеЧасти=МетаданныеОбъекта.ТабличныеЧасти;

    

    РеквизитыЗаполнены=Истина;

    

    СтрокаДляВыполнения="";

    

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

        НаименованиеТаблицы=НаборРеквизитов.Представление;

        РеквизитыДляПроверки=СтрЗаменить(НаборРеквизитов.Значение,",",Символы.ПС);

        

        ДлинаСпискаРеквизитов=СтрЧислоСтрок(РеквизитыДляПроверки);

        

        Если НаименованиеТаблицы<>"" Тогда

            МетаданныеТаблица=МетаданныеТабличныеЧасти[НаименованиеТаблицы];

            МетаданныеРевизитыТаблицы=МетаданныеТаблица.Реквизиты;

            

            ТаблицаОбъекта=Объект[НаименованиеТаблицы];

            

            Для СчетчикСтрокРевизитов=1 По ДлинаСпискаРеквизитов Цикл

                ИдентРеквизита=СтрПолучитьСтроку(РеквизитыДляПроверки,СчетчикСтрокРевизитов);

                

                МетаданныеРеквизит=МетаданныеРевизитыТаблицы[ИдентРеквизита];

                ОписаниеТиповРеквизита=МетаданныеРеквизит.Тип;

                ТипыЗначенийРеквизита=ОписаниеТиповРеквизита.Типы();

                

                СтрокаПоиска=ТаблицаОбъекта.Найти(глПолучитьПустоеЗначениеТипа(ТипыЗначенийРеквизита[0]),ИдентРеквизита);

                Если СтрокаПоиска=Неопределено Тогда

                    Продолжить;

                КонецЕсли; 

                

                Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+МетаданныеРеквизит.Синоним+""" Табличная часть строка "+СтрокаПоиска.НомерСтроки);

            КонецЦикла;

        Иначе

            Для СчетчикСтрокРевизитов=1 По ДлинаСпискаРеквизитов Цикл

                ИдентРеквизита=СтрПолучитьСтроку(РеквизитыДляПроверки,СчетчикСтрокРевизитов);

                

                Если Не ЗначениеЗаполнено(Объект[ИдентРеквизита]) Тогда

                    МетаданныеРевизитыШапки=МетаданныеОбъекта.Реквизиты;

                    Попытка

                        Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+МетаданныеРевизитыШапки[ИдентРеквизита].Синоним+"""");

                    Исключение

                        Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+ИдентРеквизита+"""");

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

                КонецЕсли;

            КонецЦикла;

        КонецЕсли; 

    КонецЦикла; 

    

    Возврат Истина;

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

 // Ярослав Волохов aka YVolohov

// Функция проверяет заполнение шапки или табличной части справочника, документа или плана, бизнес-процесса, задачи

// Параметры:

// пИмяТаблицы (строка) - имя табличной части объекта, если не указано то будет проверятся шапка объекта

// пИменаПолей (массив строк) - имена проверяемых реквизитов объекта

// пВыводитьСообщения - если это свойство установлено в "Истина" то будут выводится сообщения в табло о

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

// пСсылка (ссылка) - ссылка на элемент справочника или плана, документ, по которому будет произведена проверка

// Возвращаемое значение:

// Истина - если все реквизиты найдены и заполнены

// Ложь - если хоть один реквизит не заполнен, табличная часть не найдена

// или хоть один реквизит не найден



Функция ПроверитьЗаполнениеТаблицыОбъекта(пИмяТаблицы = Неопределено,

    пИменаПолей, пВыводитьСообщения = Истина, пСсылка) Экспорт



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

    ЗначениеВозврата  = Истина;

    МетаданныеОбъекта = пСсылка.Метаданные();



    Если НЕ(пИмяТаблицы = Неопределено) Тогда

        МетаданныеТаблицы = МетаданныеОбъекта.ТабличныеЧасти.Найти(пИмяТаблицы);

    Иначе

        МетаданныеТаблицы = МетаданныеОбъекта;

    КонецЕсли;



    // Проверка существования табличной части

    Если НЕ(МетаданныеТаблицы = Неопределено) Тогда



        МассивМетаданныхРеквизитов  = Новый Массив;

        МетаданныеРеквизитов        = МетаданныеТаблицы.Реквизиты;



        // Проверка существования полей

        Для Каждого ИмяПоля Из пИменаПолей Цикл



            МетаданныеРеквизита = МетаданныеРеквизитов.Найти(ИмяПоля);



            Если НЕ(МетаданныеРеквизита = Неопределено) Тогда

                МассивМетаданныхРеквизитов.Добавить(МетаданныеРеквизита);

            Иначе



                Если пИмяТаблицы = Неопределено Тогда

                    МассивСообщений.Добавить("Реквизит шапки с именем '" + ИмяПоля + "' не найден !!!");

                Иначе

                    МассивСообщений.Добавить("Реквизит табличной части '" + пИмяТаблицы + "' с именем '" +

                    ИмяПоля + "' не найден !!!");

                КонецЕсли;



                ЗначениеВозврата = Ложь;

            КонецЕсли;



        КонецЦикла;



        // Проверка заполнения полей

        КоличествоСтрокТаблицы = ?(НЕ(пИмяТаблицы = Неопределено), пСсылка[пИмяТаблицы].Количество(), 1);

        КоличествоСтрокТаблицы = ?(МассивМетаданныхРеквизитов.Количество() > 0, КоличествоСтрокТаблицы, 0);



        // Обход строк таблицы

        Для НомерСтрокиТаблицы = 1 По КоличествоСтрокТаблицы Цикл



            СтрокаТаблицы = ?(НЕ(пИмяТаблицы = Неопределено),

            пСсылка[пИмяТаблицы].Получить(НомерСтрокиТаблицы - 1), пСсылка);



            // Обход списка проверяемых реквизитов

            Для Каждого ЭлементМетаданныхРеквизитов Из МассивМетаданныхРеквизитов Цикл



                // Получение значения ячейки и проверка ее заполнения

                ЗначениеЯчейкиТЧ = СтрокаТаблицы[ЭлементМетаданныхРеквизитов.Имя];

                ЯчейкаПустая     = НЕ(ЗначениеЗаполнено(ЗначениеЯчейкиТЧ));



                // Если значение пустое, добавляем сообщение в массив сообщений

                Если ЯчейкаПустая Тогда



                    Если пИмяТаблицы = Неопределено Тогда

                        МассивСообщений.Добавить("Реквизит шапки с именем '" + ЭлементМетаданныхРеквизитов.Имя + "' не заполнен !!!");

                    Иначе

                        МассивСообщений.Добавить("В строке № " + НомерСтрокиТаблицы + " табличной части '" +

                        пИмяТаблицы + "' не заполнен реквизит с именем '" + ЭлементМетаданныхРеквизитов.Имя + "' !!!");

                    КонецЕсли;



                    ЗначениеВозврата = Ложь;



                КонецЕсли;



            КонецЦикла;



        КонецЦикла;



    Иначе

        МассивСообщений.Добавить("Табличная часть с именем '" + пИмяТаблицы + "' не найдена !!!");

        ЗначениеВозврата = Ложь;

    КонецЕсли;



    // Здесь выводим все сообщения

    Если пВыводитьСообщения Тогда



        Для Каждого ТекстСообщения Из МассивСообщений Цикл

            Сообщить(ТекстСообщения, СтатусСообщения.Важное);

        КонецЦикла;



    КонецЕсли;



    Возврат ЗначениеВозврата;



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