ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 29.11.2023
Просмотров: 168
Скачиваний: 2
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Лист
112 09.03.01.2017.057.ПЗ
Таким образом, годовой экономический эффект от внедрения ЭИС составляет 66430, 5 рублей.
Срок окупаемости ИС составляет 0,59 года.
Основополагающим выводом правильнее всего считать вывод о том, что внедрение методологии управления клиентской базой и информационных систем их поддержки должно осуществляться совместно, тем самым давая синергетический эффект и повышение эффективности управления и бизнес – процессов на предприятии.
Анализ ИС организации позволил выявить несколько серьезных недостатков:
1) отсутствие прозрачной системы управления заявками и областями, входящими в данный процесс;
2) отсутствие обоснованных управленческих решений, (сотрудники должны видеть результаты своего труда, в течение всего рабочего месяца, не дожидаясь оценки руководством);
3) отсутствие мониторинга по показателям, что не позволяет руководителю оперативно принимать решения.
В ходе выполнения данной работы был сделан обзор современных информационных систем управления клиентской базой, проведен сравнительный анализ, и было предложено наиболее подходящее решение для подобных задач.
В дальнейшем по мере роста бизнеса компании планируется расширение существующей ЭИС, добавлением в нее новых подсистем и усовершенствование существующих алгоритмов. Это становится возможным благодаря правильно выбранному масштабируемому решению, которое позволит интеграцию и расширение с наименьшими экономическими издержками для компании, что говорит об экономической целесообразности дальнейшей эксплуатации данной разработанной ИС управления клиентской базой.
В ходе написания ВКР мною приобретен опыт анализа деятельности организации, рассмотрения её информационных и материальных потоков.
Лист
113 09.03.01.2017.057.ПЗ
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1)
Голицына, О.Л. Базы данных: учебное пособие / О.Л. Голицына, Н. В.
Максимов, И. И. Попов. – Москва: Изд-во ФОРУМ: ИНФРА – М, 2011. – 400 с.
2) Диго, С.М. Базы данных: проектирование и использование: учебник для вузов/ С.М. Диго. – Москва: Изд-во Финансы и статистика, 2011. – 592 с.
1 2 3 4 5 6 7
3) Дейт, К.Дж. Основы будущих систем баз данных: Третий манифест/
К.Дж. Дейт, Х. Дарвен. – Москва: Изд-во Янус – К, 2012. – 656 с.
4) Дейт, К.Дж. Введение в системы баз данных / К.Дж. Дейт.
– Москва:
Изд-во Вильямс, 2011 – 1072 с.
5)
Илюшечкин, В.М. Основы проектирования и использования баз данных: учеб. Пособие/ В.М. Илюшечкин. – Москва: Изд-во Высшее образование, 2012. – 213 с.
6) Радченко,
М.Г. Инструменты для создания тиражируемых приложений "1С: Предприятия 8.2". Серия "1С: Профессиональная разработка"/
М.Г. Радченко,
Е.Ю. Хрусталева. – Москва: Изд-во 1C-Паблишинг, 2012 г. – 194 с.
7)
Каленик, А.И. Использование новых возможностей Microsoft SQL
Server 2012/ А.И. Каленик. – Москва: Изд-во «Русская редакция», 2012. – 334 с.
8)
Когаловский, М.Р. Энциклопедия технологий баз данных/ М.Р.
Когаловский. – Москва: Изд-во Финансы и статистика, 2009. – 800 c.
9)
Когаловский, М.Р. Теория реляционных баз данных / М.Р.
Когаловский. – Москва: Изд-во Финансы и статистика, 2011. – 500 c.
10) Кодд, Е.Ф. Реляционная модель данных для больших совместно используемых банков данных/ Е.Ф. Кодд; пер. с анг. М.Р. Когаловский. – Москва:
Изд-во Финансы и статистика, 2011. – c.256.
11) Коннолли, Т. Базы данных: проектирование, реализация и сопровождение/ Т.Коноллии, К. Бегг. – Киев: Изд-во Диалектика, 2012. – 60 с.
12) Крёнке, Д. Теория и практика построения баз данных/ Д.Крёнке. –
Лист
114 09.03.01.2017.057.ПЗ
СПб.: Изд-во Питер, 2009. – 800 с.
13) Крёнке, Д. Практический опыт программирования в реляционных базах данных/ Д.Крёнке. – СПб.: Изд-во Питер, 2011. – 400 с.
14) Кузин, А.В. Базы данных: учебное пособие для вузов/ А.В. Кузин. –
Москва: Изд-во Академия, 2012. – 78 с.
15) Кузнецов, С.Д. Основы баз данных: курс лекций: учеб. пособие для студентов, обучающихся по специальностям в обл. информ. технологий/ С.Д.
Кузнецов. – Москва: Изд-во университет информационных технологий, 2011. –
488 с.
16) Полякова, Л. Н. Основы SQL: Курс лекций. Учебное пособие/ Л.Н.
Полякова. – Москва: Изд-во университет информационных технологий, 2011. –
368 с.
17) Мюллер Р.Д. Базы данных и UML/ Р.Д. Мюллер. – Москва: Изд-во
Лори, 2008. – 420 с.
18) Райордан, Р.М.
Основы реляционных баз данных. Базовый курс:
Теория и практика/ Р.М. Райордан. – Москва: Изд-во Русская Редакция, 2011. –
384 с.
19) Райордан, Р.М.
Аналитические системы транзакций. Базовый курс:
Теория и практика/ Р.М. Райордан. – Москва: Изд-во Русская Редакция, 2012. –
400 с.
20) Гончаров, Д.И. Решение специальных прикладных задач в "1С:Предприятии 8.2". Серия "1С:Профессиональная разработка"/ Д.И. Гончаров,
Е.Ю Хрусталева. – Москва: Изд-во 1C-Паблишинг, 2014 . – 300 с.
Лист
115 09.03.01.2017.057.ПЗ
ПРИЛОЖЕНИЯ
ПРИЛОЖЕНИЕ А. ЛИСТИНГ ПРОГРАММЫ
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.ПервичныйИнтересКлиента") Тогда
// Заполнение шапки
ИнтересКлиента = ДанныеЗаполнения.ИнтересКлиента;
ИсточникПервичногоИнтереса =
ДанныеЗаполнения.ИсточникПервичногоИнтереса;
НаименованиеКлиента = ДанныеЗаполнения.НаименованиеКлиента;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр ОбратнаяСвязь
Движения.ОбратнаяСвязь.Записывать = Истина;
Движение = Движения.ОбратнаяСвязь.Добавить();
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.ИнтересКлиента = ИнтересКлиента;
Движение.УдовлетворенностьКлиента = УдовлетворенностьКлиента;
Движение.ПолучениеУслуги = ПолучениеУслуги;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ОбратнаяСвязьСКлиентом.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ОбратнаяСвязьСКлиентом.Дата,
|
ОбратнаяСвязьСКлиентом.ИнтересКлиента,
|
ОбратнаяСвязьСКлиентом.ИсточникПервичногоИнтереса,
|
ОбратнаяСвязьСКлиентом.НаименованиеКлиента,
|
ОбратнаяСвязьСКлиентом.Номер,
|
ОбратнаяСвязьСКлиентом.ПолучениеУслуги,
|
ОбратнаяСвязьСКлиентом.УдовлетворенностьКлиента
|ИЗ
|
Документ.ОбратнаяСвязьСКлиентом КАК ОбратнаяСвязьСКлиентом
|ГДЕ
|
ОбратнаяСвязьСКлиентом.Ссылка В (&Ссылка)";
Лист
116 09.03.01.2017.057.ПЗ
Продолжение приложения А
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.ОбратнаяСвязьСКлиентом.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр ИнтересыКлиентов
Движения.ИнтересыКлиентов.Записывать = Истина;
Движение = Движения.ИнтересыКлиентов.Добавить();
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.ИнтересКлиента = ИнтересКлиента;
Лист
117 09.03.01.2017.057.ПЗ
Продолжение приложения А
Движение.ИсточникПервичногоИнтереса = ИсточникПервичногоИнтереса;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ПервичныйИнтересКлиента.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
ПервичныйИнтересКлиента.Дата,
|
ПервичныйИнтересКлиента.ИнтересКлиента,
|
ПервичныйИнтересКлиента.ИсточникПервичногоИнтереса,
|
ПервичныйИнтересКлиента.НаименованиеКлиента,
|
ПервичныйИнтересКлиента.Номер
|ИЗ
|
Документ.ПервичныйИнтересКлиента КАК ПервичныйИнтересКлиента
|ГДЕ
|
ПервичныйИнтересКлиента.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Лист
118 09.03.01.2017.057.ПЗ
Продолжение приложения А
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.ПервичныйИнтересКлиента.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.УтверждениеПроекта.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|
УтверждениеПроекта.Дата,
|
УтверждениеПроекта.Номер,
|
УтверждениеПроекта.ОписаниеПроекта,
|
УтверждениеПроекта.ПараметрыПроекта.(
|
НомерСтроки,
|
ЦельПроекта,
|
ЗаказчикПроекта,
|
РуководительПроекта,
|
БюджетПроекта,
|
СрокНачалаПроекта,
|
СрокОкончанияПроекта
|
)
|ИЗ
|
Документ.УтверждениеПроекта КАК УтверждениеПроекта
|ГДЕ
|
УтверждениеПроекта.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Лист
119 09.03.01.2017.057.ПЗ
Продолжение приложения А
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьПараметрыПроектаШапка =
Макет.ПолучитьОбласть("ПараметрыПроектаШапка");
ОбластьПараметрыПроекта =
Макет.ПолучитьОбласть("ПараметрыПроекта");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьПараметрыПроектаШапка);
ВыборкаПараметрыПроекта = Выборка.ПараметрыПроекта.Выбрать();
Пока ВыборкаПараметрыПроекта.Следующий() Цикл
ОбластьПараметрыПроекта.Параметры.Заполнить(ВыборкаПараметрыПроек та);
ТабДок.Вывести(ОбластьПараметрыПроекта,
ВыборкаПараметрыПроекта.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
Лист
120 09.03.01.2017.057.ПЗ
Продолжение приложения А
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.УтверждениеПроекта.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр Продажи
Движения.Продажи.Записывать = Истина;
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.Договор = Договор;
Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
Движение.Инженер = Инженер;
Движение.Выручка = ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// регистр Прибыль Приход
Движения.Прибыль.Записывать = Истина;
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл
Движение = Движения.Прибыль.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.НаименованиеКлиента = НаименованиеКлиента;
Движение.Договор = Договор;
Движение.Услуга = ТекСтрокаИнформацияОЗаказе.Услуга;
Движение.Инженер = Инженер;
Движение.Прибыль =
ТекСтрокаИнформацияОЗаказе.СтоимостьУслуги;
КонецЦикла;
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.ЗаказКлиента.ПолучитьМакет("Печать");