Автоматизация директ-маркетинга (на примере ООО "Дело Системы")
Разработка подсистемы в программе "1С: Бухгалтерия предприятия 8" для автоматизации директ-маркетинговых взаимодействий с клиентами ООО "Дело Системы", позволяющей работать с электронной почтой, регистрировать телефонные звонки и планировать встречи.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 14.07.2012 |
| Размер файла | 4,9 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
КонецПроцедуры
Приложение 7. Программный код формы документа «Встреча»
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
текДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = ((текДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(текДанные.Контакт)));
КонецПроцедуры
&НаКлиенте
Функция ВыделитьВремя(Дата)
Возврат Час(Дата) * 3600 + Минута(Дата) * 60;
КонецФункции
&НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные;
Если ВзаимодействияКлиент.ВыбратьКонтакт(Объект.Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, текДанные.Контакт, Ложь, Ложь, Истина) Тогда
Модифицированность = Истина;
ПроверитьДоступностьСозданияКонтакта();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникиПриАктивизацииСтроки(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ВремяНачалаНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыбранноеВремя = ВзаимодействияКлиент.ВыбратьВремя(ЭтаФорма, Элемент, ВремяНачала, 1800);
Если ВыбранноеВремя = Неопределено Тогда
Возврат;
КонецЕсли;
ВремяНачала = ВыбранноеВремя;
ВремяНачалаПриИзменении(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ВремяОкончанияНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыбранноеВремя = ВзаимодействияКлиент.ВыбратьВремя(ЭтаФорма, Элемент, ВремяОкончания, 1800);
Если ВыбранноеВремя = Неопределено Тогда
Возврат;
КонецЕсли;
ВремяОкончания = ВыбранноеВремя;
ВремяОкончанияПриИзменении(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура ВремяНачалаПриИзменении(Элемент)
Объект.ДатаНачала = НачалоДня(Объект.ДатаНачала) + ВыделитьВремя(ВремяНачала);
Объект.ДатаОкончания = Объект.ДатаНачала + Продолжительность;
ВремяОкончания = Объект.ДатаОкончания;
КонецПроцедуры
&НаКлиенте
Процедура ВремяОкончанияПриИзменении(Элемент)
Если НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда
Сообщить(НСтр("ru='Время окончания не может быть меньше времени начала.'"));
ВремяОкончания = ВремяНачала + 1800;
Возврат;
КонецЕсли;
Объект.ДатаОкончания = НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания);
Продолжительность = Объект.ДатаОкончания - Объект.ДатаНачала;
КонецПроцедуры
&НаКлиенте
Процедура ДатаНачалаПриИзменении(Элемент)
Объект.ДатаНачала = НачалоДня(ДатаНачала) + ВыделитьВремя(ВремяНачала);
Объект.ДатаОкончания = Объект.ДатаНачала + Продолжительность;
ДатаОкончания = Объект.ДатаОкончания;
КонецПроцедуры
&НаКлиенте
Процедура ДатаОкончанияПриИзменении(Элемент)
Если НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда
Сообщить(НСтр("ru='Дата окончания не может быть меньше даты начала.'"));
ДатаОкончания = Объект.ДатаНачала;
Возврат;
КонецЕсли;
Объект.ДатаОкончания = НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания);
Продолжительность = Объект.ДатаОкончания - Объект.ДатаНачала;
КонецПроцедуры
Приложение 8. Программный код формы документа «Запланированное взаимодействие»
&НаКлиенте
Процедура СоздатьКонтактВыполнить()
текДанные = Элементы.Участники.ТекущиеДанные;
Если текДанные <> Неопределено Тогда
ВзаимодействияКлиент.СоздатьКонтакт(
текДанные.ПредставлениеКонтакта, текДанные.КакСвязаться, Объект.Ссылка,СписокИнтерактивноСоздаваемыхКонтактов);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СвязанныеВзаимодействияВыполнить()
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Предмет", Объект.Предмет);
ОткрытьФорму("ЖурналДокументов.Взаимодействия.ФормаСписка", ПараметрыОтбора, ЭтаФорма, , Окно);
КонецПроцедуры
&НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные;
Если ВзаимодействияКлиент.ВыбратьКонтакт(Объект.Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, текДанные.Контакт, Ложь, Ложь, Истина) Тогда
Модифицированность = Истина;
ПроверитьДоступностьСозданияКонтакта();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникиПриАктивизацииСтроки(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура ОтработатьПослеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
ВзаимодействияКлиент.ОбработатьВыборВПолеОтработатьПосле(Объект.ОтработатьПосле, ВыбранноеЗначение, СтандартнаяОбработка, Модифицированность);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
текДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = ((текДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(текДанные.Контакт)));
КонецПроцедуры
Размещено на Allbest.ru
Подобные документы
Разработка системы для автоматизации процессов подготовки и отправки сообщений деловым партнерам организации по электронной почте. Требования к структуре и функционированию данной системы, основные этапы ее создания и порядок введения в действие.
курсовая работа [1,4 M], добавлен 20.11.2013Основные методологии адаптивных жизненных циклов IT-проектов. Внедрение системы автоматизации маркетинга Marketo для управления отношениями с клиентами торгового предприятия "Spirit". Доработка корпоративного сайта компании для учета данных о клиентах.
дипломная работа [1,4 M], добавлен 28.08.2016Требования и порядок учета клиентов в современном бизнесе. Обзор современного рынка программных продуктов, предназначенных для автоматизации системы взаимоотношений с клиентами. Разработка и внедрение программного комплекса на предприятии ООО ТСС НН.
дипломная работа [2,9 M], добавлен 15.09.2012Формирование и предоставление бухгалтерской информации в электронном виде внешним контролирующим органам. Сущность комплекса задач по автоматизации учета банковских операций, ее реализация программе "1С: Бухгалтерия". Особенности технология автоматизации.
курсовая работа [1,2 M], добавлен 23.09.2016Разработка информационной подсистемы "ЮГСтрой-Заказ" в СУБД 1С:Предприятие для автоматизации работы с клиентами. Уменьшение времени обработки запроса (времени работы с клиентом), защита базы данных, обеспечение простоты пользовательского интерфейса.
дипломная работа [4,7 M], добавлен 01.07.2011Последовательность разработки системы для оптимизации работы магазина интерьерных товаров, позволяющей хранить данные в одной базе и работать с ней с помощью удобного интерфейса клиентского приложения. Тестирование информационной системы. Листинг модулей.
дипломная работа [2,9 M], добавлен 07.07.2012Автоматизация рабочего места оператора, принимающего звонки от населения. Описание информационной инфраструктуры. Характеристика комплекса задач, подлежащих автоматизации для более комфортной работы оператора. Структурный состав программного продукта.
отчет по практике [36,7 K], добавлен 04.04.2015Делопроизводство бумажных и электронных документов. Современные системы электронного документооборота и системы автоматизации классического делопроизводства. Создание безбумажного делопроизводства в загруженных участках управленческой деятельности.
курсовая работа [501,8 K], добавлен 08.12.2010Краткая характеристика организационной структуры управления ООО "Строительная компания "Инжтех". Использование программных средств "ГАРАНТ" и "1С:Бухгалтерия" на предприятии. Расчет экономической эффективности системы автоматизации на предприятии.
курсовая работа [1,2 M], добавлен 11.11.2015Описание разработанной подсистемы автоматизации, алгоритм ее работы. Структуры базы данных и составных частей подсистемы. Затраты на разработку программного продукта и эффект от внедрения подсистемы. Руководство по работе с программным комплексом.
дипломная работа [3,0 M], добавлен 02.02.2009
