Автоматизация директ-маркетинга (на примере ООО "Дело Системы")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ь", УправлениеЭлектроннойПочтой.ПолучитьВажность(Объект.Важность));
Если Не ПустаяСтрока(Объект.ИдентификаторыОснований) Тогда
ПараметрыПисьма.Вставить("ИдентификаторыОснований", Объект.ИдентификаторыОснований);
КонецЕсли;
соотвВложения = Новый Соответствие;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|Файлы.Наименование КАК ПолноеНаименование,
|Файлы.Расширение КАК Расширение,
|Файлы.Ссылка КАК Ссылка,
|Файлы.ЭлектронныеЦифровыеПодписи.(
|НомерСтроки,
|Подпись
|)
|ИЗ
|Справочник.ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы КАК Файлы
|ГДЕ
|Файлы.ВладелецФайла = &ВладелецФайла";
Запрос.УстановитьПараметр("ВладелецФайла", Объект.Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ИмяФайла = Выборка.ПолноеНаименование + ?(Выборка.Расширение = "", "", "." + Выборка.Расширение);
соотвВложения.Вставить(ИмяФайла, Присоединенные Файлы.ПолучитьДвоичныеДанныеФайла(Выборка.Ссылка));
Для каждого ЭЦП Из Выборка.ЭлектронныеЦифровыеПодписи.Выгрузить() Цикл
соотвВложения.Вставить(Выборка.ПолноеНаименование + "-DS("+ ЭЦП.НомерСтроки + ").p7s",ЭЦП.Подпись.Получить());
КонецЦикла;
КонецЦикла;
ПараметрыПисьма.Вставить("Вложения", соотвВложения);
Возврат ЭлектроннаяПочта.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма);
КонецФункции
Приложение 6. Программный код формы документа Телефонный звонок
&НаКлиенте
Процедура СоздатьКонтактВыполнить()
ВзаимодействияКлиент.СоздатьКонтакт(
Объект.АбонентПредставление, Объект.АбонентКак Связаться, Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов
);
КонецПроцедуры
&НаКлиенте
Процедура СвязанныеВзаимодействияВыполнить()
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Предмет", Объект.Предмет);
ОткрытьФорму("ЖурналДокументов.Взаимодействия.ФормаСписка", ПараметрыОтбора, ЭтаФорма, , Окно);
КонецПроцедуры
&НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ВзаимодействияКлиент.ВыбратьКонтакт(Объект.Предмет, Объект.АбонентКакСвязаться, Объект.АбонентПредставление, Объект.АбонентКонтакт, Ложь, Ложь, Истина) Тогда
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
Элементы.СоздатьКонтакт.Доступность = (Не ЗначениеЗаполнено(Объект.АбонентКонтакт)) И (Не ПустаяСтрока(Объект.АбонентПредставление));
КонецПроцедуры
Приложение 7. Программный код формы документа Встреча
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
текДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = ((текДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(текДанные.Контакт)));
КонецПроцедуры
&НаКлиенте
Функция ВыделитьВремя(Дата)
Возврат Час(Дата) * 3600 + Минута(Дата) * 60;
КонецФункции
&НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные;
Если ВзаимодействияКлиент.ВыбратьКонтакт(Объект.Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, текДанные.Контакт, Ложь, Ложь, Истина) Тогда
Модифицированность = Истина;
ПроверитьДоступностьСозданияКонтакта();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникиПриАктивизацииСтроки(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ВремяНачалаНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыбранноеВремя = ВзаимодействияКлиент.ВыбратьВремя(ЭтаФорма, Элемент, ВремяНачала, 1800);
Если ВыбранноеВремя = Неопределено Тогда
Возврат;
КонецЕсли;
ВремяНачала = ВыбранноеВремя;
ВремяНачалаПриИзменении(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ВремяОкончанияНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыбранноеВремя = ВзаимодействияКлие?/p>