Автоматизация директ-маркетинга (на примере ООО "Дело Системы")

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



;

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

&НаКлиенте

//установить флаг "отработано" в выбранных взаимодействиях - клиентская часть

Процедура ОтработаноВыполнить()

Если ВыборКорректен() Тогда

УстановитьФлагОтработано(Элементы.Список.ВыделенныеСтроки);

Элементы.Список.Обновить();

КонецЕсли;

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

&НаКлиенте

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

Процедура ОтветственныйВыполнить()

Если ВыборКорректен() Тогда

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

Если Ответственный <> Неопределено Тогда

Установить Ответственного(Элементы.Список.ВыделенныеСтроки, Ответственный);

Элементы.Список.Обновить();

КонецЕсли;

КонецЕсли;

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

&НаКлиенте

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

Процедура ПредметВыполнить()

Если ВыборКорректен() Тогда

Предмет = ОткрытьФормуМодально ("ЖурналДокументов.Взаимодействия.Форма.ФормаВыборПредмета");

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

УстановитьПредмет (Элементы.Список.ВыделенныеСтроки, Предмет);

Элементы.Список.Обновить();

КонецЕсли;

КонецЕсли;

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

&НаКлиенте

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

Процедура ОтложитьОбработкуВыполнить()

Если ВыборКорректен() Тогда

ДатаОтработки = ТекущаяДата();

Если ВвестиДату(ДатаОтработки, "Отработать после") Тогда

ОтложитьОбработку(Элементы.Список.ВыделенныеСтроки, ДатаОтработки);

Элементы.Список.Обновить();

КонецЕсли;

КонецЕсли;

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

Приложение 4. Программный код формы документа Электронное письмо входящее

&НаСервере

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

// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".

Если Параметры.Свойство("АвтоТест") Тогда

Возврат;

КонецЕсли;

// Запретим создание новых

Если Не ЗначениеЗаполнено(Объект.Ссылка) Тогда

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

Возврат;

КонецЕсли;

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

Если Объект.ТипТекста = Перечисления.ТипыТекстовЭлектронныхПисем.php Тогда

ТекстПисьма = Объект.ТекстHTML;

ОбработатьТекстHTML();

Элементы.ТекстПисьма.Вид = ВидПоляФормы.ПолеHTMLДокумента;

Элементы.ТекстПисьма.ТолькоПросмотр = Ложь;

Иначе

ТекстПисьма = Объект.Текст;

Элементы.ТекстПисьма.Вид = ВидПоляФормы.ПолеТекстовогоДокумента;

КонецЕсли;

// Сформируем представление отправителя

ОтправительПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеАдресата(Объект.ОтправительПредставление, Объект.ОтправительАдрес, Объект.ОтправительКонтакт);

// Сформируем представление Кому и Копии

ПолучателиПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиПисьма);

ПолучателиКопийПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиКопий);

ПолучателиОтветаПредставление = УправлениеЭлектроннойПочтой.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиОтвета);

// Заполним вложения

Если ЗначениеЗаполнено(Объект.Ссылка) Тогда

табВложения = УправлениеЭлектроннойПочтой.ПолучитьВложенияЭлектронногоПисьма(Объект.Ссылка);

Если табВложения.Количество() > 0 Тогда

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

Иначе

Элементы.ОткрытьВложение.Видимость = Ложь;

Элементы.СохранитьВложение.Видимость = Ложь;тьПосле

Взаимодействия.ЗаполнитьСписокВыбораДляОтработатьПосле(Элементы.ОтработатьПосле.СписокВыбора);

Если Объект.Отработано Тогда

Элементы.ОтработатьПосле.Доступность = Ложь;

КонецЕсли;

ДополнительнаяИнформацияОПисьме = НСтр("ru = Создано:") + " " + Объект.Дата + НСтр("ru =

|Получено:") + " " + Объект.ДатаПолучения + НСтр("ru =

|Важность:") + " " + Объект.Важность + НСтр("ru =

|Кодировка:") + " " + Объект.Кодировка;

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

&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "Контакт создан" И Параметр.Основание = Объект.Ссылка Тогда

Элементы.Участники.ТекущиеДанные.Контакт = Параметр.Ссылка;

Элементы.СоздатьКонтакт.Доступность = Ложь;

Модифицированность = Истина;

Если ПустаяСтрока(Элементы.Участники.ТекущиеДанные.Представление) Тогда

Элементы.Участники.ТекущиеДанные.Представление = Параметр.Наименование;

КонецЕсли;

ИначеЕсли ИмяСобытия = "Создан предмет взаимодействия" И Параметр.Основание = Объект.Ссылка Тогда

Прочитать();

ОтобразитьИзменениеДанных(Объект.Предмет, ВидИзмененияДанных.Изменение);

КонецЕсли;

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

&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, РежимЗаписи, РежимПроведения)

Взаимодействия.ПередЗаписьюВзаимодействияИзФормы(ТекущийОбъект);

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

&НаКлиенте

Процедура УточнитьКонтактыВыполнить()

РедактироватьПолучателей();

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

&НаКлиенте

Процедура ОткрытьВложениеВыполнить()

ОткрытьВложение()