Автоматизация директ-маркетинга (на примере ООО "Дело Системы")
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;
КонецПроцедуры
&НаКлиенте
//установить флаг "отработано" в выбранных взаимодействиях - клиентская часть
Процедура ОтработаноВыполнить()
Если ВыборКорректен() Тогда
УстановитьФлагОтработано(Элементы.Список.ВыделенныеСтроки);
Элементы.Список.Обновить();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
//установить ответственного в выбранных взаимодействиях - клиентская часть
Процедура ОтветственныйВыполнить()
Если ВыборКорректен() Тогда
Ответственный = ОткрытьФормуМодально("Справочник.Пользователи.Форма.ФормаСписка", Новый Структура("РежимВыбора",Истина));
Если Ответственный <> Неопределено Тогда
Установить Ответственного(Элементы.Список.ВыделенныеСтроки, Ответственный);
Элементы.Список.Обновить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
//установить предмет в выбранных взаимодействиях - клиентская часть
Процедура ПредметВыполнить()
Если ВыборКорректен() Тогда
Предмет = ОткрытьФормуМодально ("ЖурналДокументов.Взаимодействия.Форма.ФормаВыборПредмета");
Если Предмет <> Неопределено Тогда
УстановитьПредмет (Элементы.Список.ВыделенныеСтроки, Предмет);
Элементы.Список.Обновить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
//устанавливает реквизит "отработать после" в выбранных взаимодействиях - клиентская часть
Процедура ОтложитьОбработкуВыполнить()
Если ВыборКорректен() Тогда
ДатаОтработки = ТекущаяДата();
Если ВвестиДату(ДатаОтработки, "Отработать после") Тогда
ОтложитьОбработку(Элементы.Список.ВыделенныеСтроки, ДатаОтработки);
Элементы.Список.Обновить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Приложение 4. Программный код формы документа Электронное письмо входящее
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
// Запретим создание новых
Если Не ЗначениеЗаполнено(Объект.Ссылка) Тогда
Отказ = Истина;
Возврат;
КонецЕсли;
// Установим текст и вид текста
Если Объект.ТипТекста = Перечисления.ТипыТекстовЭлектронныхПисем.php Тогда
ТекстПисьма = Объект.ТекстHTML;
ОбработатьТекстHTML();
Элементы.ТекстПисьма.Вид = ВидПоляФормы.ПолеHTMLДокумента;
Элементы.ТекстПисьма.ТолькоПросмотр = Ложь;
Иначе
ТекстПисьма = Объект.Текст;
Элементы.ТекстПисьма.Вид = ВидПоляФормы.ПолеТекстовогоДокумента;
КонецЕсли;
// Сформируем представление отправителя
ОтправительПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеАдресата(Объект.ОтправительПредставление, Объект.ОтправительАдрес, Объект.ОтправительКонтакт);
// Сформируем представление Кому и Копии
ПолучателиПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиПисьма);
ПолучателиКопийПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиКопий);
ПолучателиОтветаПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиОтвета);
// Заполним вложения
Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
табВложения = УправлениеЭлектроннойПочтой.ПолучитьВложенияЭлектронногоПисьма(Объект.Ссылка);
Если табВложения.Количество() > 0 Тогда
ЗначениеВРеквизитФормы(табВложения, "Вложения");
Иначе
Элементы.ОткрытьВложение.Видимость = Ложь;
Элементы.СохранитьВложение.Видимость = Ложь;тьПосле
Взаимодействия.ЗаполнитьСписокВыбораДляОтработатьПосле(Элементы.ОтработатьПосле.СписокВыбора);
Если Объект.Отработано Тогда
Элементы.ОтработатьПосле.Доступность = Ложь;
КонецЕсли;
ДополнительнаяИнформацияОПисьме = НСтр("ru = Создано:") + " " + Объект.Дата + НСтр("ru =
|Получено:") + " " + Объект.ДатаПолучения + НСтр("ru =
|Важность:") + " " + Объект.Важность + НСтр("ru =
|Кодировка:") + " " + Объект.Кодировка;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Контакт создан" И Параметр.Основание = Объект.Ссылка Тогда
Элементы.Участники.ТекущиеДанные.Контакт = Параметр.Ссылка;
Элементы.СоздатьКонтакт.Доступность = Ложь;
Модифицированность = Истина;
Если ПустаяСтрока(Элементы.Участники.ТекущиеДанные.Представление) Тогда
Элементы.Участники.ТекущиеДанные.Представление = Параметр.Наименование;
КонецЕсли;
ИначеЕсли ИмяСобытия = "Создан предмет взаимодействия" И Параметр.Основание = Объект.Ссылка Тогда
Прочитать();
ОтобразитьИзменениеДанных(Объект.Предмет, ВидИзмененияДанных.Изменение);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, РежимЗаписи, РежимПроведения)
Взаимодействия.ПередЗаписьюВзаимодействияИзФормы(ТекущийОбъект);
КонецПроцедуры
&НаКлиенте
Процедура УточнитьКонтактыВыполнить()
РедактироватьПолучателей();
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьВложениеВыполнить()
ОткрытьВложение()