&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

       

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

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

                "ВЫБРАТЬ

                |       Пациенты.Наименование КАК ФИОПациента,

                |       Пациенты.Email КАК Email

                |ИЗ

                |       Справочник.Пациенты КАК Пациенты";

       

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

        ЗначениеВРеквизитФормы(РезультатЗапроса,"Пациенты");

 

        //ФИОПациента = ЭтаФорма.Параметры.ВыделенныеПациенты;

        //Email = Этаформа.Параметры.ВыделенныеПациенты;  

       

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

        Таблица.Колонки.Добавить("ФИОПациента");

        Таблица.Колонки.Добавить("Email");

       

        Массив = Этаформа.Параметры.ВыделенныеПациенты;

       

        Для каждого Эл из Массив Цикл

                НоваяСтрока = Таблица.Добавить();

                НоваяСтрока.ФИОПациента = Эл.ФИОПациента;

                НоваяСтрока.Email = Эл.Email;

        КонецЦикла;

        ЗначениеВРеквизитФормы(Таблица,"ВыбранныеПациенты");

 

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

 

&НаКлиенте

Процедура Стрелка(Команда)

        Для каждого Эл из Элементы.Пациенты.ВыделенныеСтроки цикл

                Перенос = 0;

                СтрокаП = Пациенты.Получить(Эл);

                Для каждого Элемент из ВыбранныеПациенты цикл

                Если СтрокаП.Email = Элемент.Email Тогда

                        Перенос = 1;

                КонецЕсли;

                КонецЦикла;

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

                НоваяСтрока = ВыбранныеПациенты.Добавить();

                НоваяСтрока.ФИОПациента = СтрокаП.ФИОПациента;

                НоваяСтрока.Email = СтрокаП.Email;

        КонецЕсли;

        КонецЦикла;

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

 

&НаКлиенте

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

        Массив = новый Массив;

        Для каждого Эл из ВыбранныеПациенты Цикл

                Массив.Добавить(Эл.Email);

        КонецЦикла;

        Данные = Почта(ПочтаОтправителя);

        РаботаСЭлектроннойПочтой.ОтправитьПисьмоПоЭлектроннойПочте(Массив,Данные,ТекстСообщения);

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

 

&НаСервере

Функция Почта(ПочтаОтправителя)

       

        Данные = Новый Структура ("Email,Пароль,Сервер",ПочтаОтправителя.Наименование, ПочтаОтправителя.Пароль,ПочтаОтправителя.Сервер);

        Возврат(Данные);

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