78
ЗАКЛЮЧЕНИЕ
Основная задача данного проекта- автоматизировать работу ООО
«Городской Центр дезинфекции», создав проект автоматизированного
рабочего места специалиста по работе с заказами.
Результатом выполнение данного проекта является создание
приложения для работы с базами данных, которое учитывает все
особенности процесса работы с заказами на проведение работ по
дезинфекции.
В процессе проектирования была представлена организационная
структура предприятия и автоматизируемого отдела, функциональная модель
задач, таблица параметров, состав информационной системы. В ходе
проведенного анализа бизнес-процессов были определены недостатки
существующей технологии работы с заказами городского центра
дезинфекции, связанные с потерей оперативности в обработке поступающей
информации от клиентов, невозможностью автоматического выбора
специалистов для оказания услуги, невозможностью проведения анализа
эффективности работы компании.
В постановке задачи была описана экономическая и организационная
сущность задачи, было составлено формализованное описание первичных и
результатных показателей, а для работы с условно-постоянной информацией
были разработаны классификаторы справочников.
В данной работе представлены формуляры первичных и результатных
документов.
Автоматизированный вариант решения задачи позволил:
Снизить время обработки информации;
Снизить трудовые и стоимостные затраты на обработку данных;
Оптимизировать занятность персонала;
Увеличить число клиентов.
79
По итогам третьей главы данного проекта были рассчитаны технико-
экономические показатели оценки эффективности внедрения автоматизации.
Расчет экономической эффективности внедрения проекта
автоматизации показал, что стоимость разработки и внедрения системы
составляет 134300руб.
Годовая экономия составляет 347144 руб и срок окупаемости проекта
0,38 года.
Перспективами развития проекта может стать расширения
функционала программного приложения, а именно создание и установки
связи с АРМами других сотрудников ООО «Городской Центр дезинфекции».
80
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Мелихова Н. В. Информационные технологии управления: учебное
пособие. - Челябинск: Издательство Челябинского государственного
университета, 2014. - 214 с.
2. Кашаев С. 1С: Предприятие 8.3: программирование и визуальная
разработка на примерах. - Санкт-Петербург: БХВ-Петербург, 2015. -
336 с.
3. Щеглов, Ю.А. Информационные системы и процессы. - Новосибирск:
НИНХ, 2015. - 251 с.
4. Тагайцева С. Г., Юрченко Т. В. Разработка прикладных решений на
платформе 1С: Предприятие 8: учебное пособие. - Нижний Новгород:
ННГАСУ, 2016. - 125 с.
5. Задорожный, В.Н. Информационные технологии и автоматизация
управления. - Омск : Изд-во ОмГТУ, 2016. - 269 с.
6. Ахметов И. В., Карабельская И.В., Губайдуллин И.М., Сафин Р.Р.
Моделирование бизнес-процессов: учебное пособие. - Уфа: Уфимский
государственный университет экономики и сервиса, 2015. - 67 с.
7. Баранов В. В., Горошко И. В., Лебедев В. Н. Информационные
технологии управления и организация защиты информации: учебник. -
Москва: Академия управления МВД России, 2018. - 453 с.
8. Некрасов В. Н., Архипова О. И. Информационно-коммуникационные
технологии управления и особенности разрешения их противоречий:
монография. - Ростов-на-Дону: Профпресс, 2014. – 105 с.
9. Костикова А. В. Моделирование бизнес-процессов: учебное пособие. -
Волгоград: ВолгГТУ, 2016. – 110 с.
10. Бабиева Н. А., Раскин Л. И. Проектирование информационных систем:
учебно-методическое пособие. - Казань: Университет, 2014. – 200с.
11. Широкова Е. В. Разработка простых отчетов в "1C: Предприятие 8.3" с
использованием системы компоновки данных: учебное пособие по
81
дисциплине "Модуль аналитической отчетности в КИС 1C:
Предприятие". - Калуга: Манускрипт, 2017. - 83 с.
12. Стрекалова Н. Б., Маризина В. Н. Современные технологии в
профессиональной подготовке специалистов: учебное пособие. -
Тольятти: Тольяттинская академия управления, 2016. - 128 с.
13. Гагарин А. Г., Костикова А. В. Проектирование информационных
систем: учебное пособие. - Волгоград: ВолГТУ, 2015. – 57 с.
14. Сурушкин М. А. Анализ предметной области и проектирование
информационных систем с примерами : учебное пособие. - Белгород:
НИУ "БелГУ", 2019. - 155 с.
15. Инюшкина О. Г. Проектирование информационных систем: (на
примере методов структурного системного анализа): учебное пособие:
Форт-Диалог Исеть, 2014. - 240 с.
16. Баранников Н. И., Яскевич О. Г. Современные проблемы
проектирования корпоративных информационных систем. - Воронеж:
Воронежский государственный технический университет, 2014. - 237 с.
17. Деменков, М.Е. Современные методы и средства проектирования
информационных систем: учебное пособие. - Архангельск: САФУ,
2015. – 89с.
18. Баранчиков А. И. Синтез информационных структур хранения данных
на основе анализа предметных областей. - Рязань: РГУ, 2014. - 229 с.
19. Шичкина Ю. А. Методы построения схемы и выполнения запросов в
базах данных. - Санкт-Петербург : Изд-во СПбГЭТУ "ЛЭТИ", 2016. -
205 с.
20. Микляев И. А. Универсальные объектно-ориентированные базы
данных на реляционной платформе. – Архангельск: ИД САФУ, 2014. –
223с.
21. Ощенко И. А. Азбука программирования в 1С: Предприятие 8.3. -
Санкт-Петербург: БХВ-Петербург, 2015. - 284 с.
82
22. Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.3: практическое
пособие разработчика. - Москва: фирма 1С, 2016. – 926с.
23. Терехова А. Е. Моделирование бизнес-процессов: учебное пособие. -
Москва: Изд. дом ФГБОУВО "ГУУ", 2016. - 96 с.
24. Барановская Т.П., Яхонтова И. М., Вострокнутов А. Е., Иванова Е. А.
Моделирование бизнес-процессов: учебное пособие. - Краснодар:
КубГАУ, 2016. - 152 с.
25. Надейкина Л. А. Программирование. Обобщенное программирование:
учебное пособие. - Москва: Московский государственный технический
университет ГА, 2019. - 80 с.
83
Приложение
Занесение в БД.
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ЗаказДезинф.Записывать = Истина;
Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1
Цикл
Движение = Движения.ЗаказДезинф.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.НомерЗакази = Номер;
Движение.Клиент = Клиент;
Движение.Объект =
ТекСтрокаТабличнаяЧасть1.ВидОбъекта;
Движение.Статус = Статус;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ВыполненныеРаботы Приход
Движения.ВыполненныеРаботы.Записывать = Истина;
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Заказа = НомерЗакази;
Движение.Сотрудник = Сотрудник;
Движение.СтоимостьРабот = СтоимостьРабот;
Движение.Дата = Дата;
Движение.ВидРабот = Работы;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедур
Процедура Печать(ТабДок, Ссылка) Экспорт
Макет =
Документы.ПриемВЗаказДезинф.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПриемВЗаказДезинф.Дата,
| ПриемВЗаказДезинф.Клиент,
| ПриемВЗаказДезинф.Номер,
| ПриемВЗаказДезинф.Статус
|ИЗ
| Документ.ПриемВЗаказДезинф КАК ПриемВЗаказДезинф
84
|ГДЕ
| ПриемВЗаказДезинф.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВЫБРАТЬ
ВыполненныеРаботы.Сотрудник КАК Сотрудник,
ВыполненныеРаботы.Дата КАК Дата,
ВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,
ВыполненныеРаботы.ВидРабот КАК ВидРабот
ИЗ
РегистрНакопления.ВыполненныеРаботы КАК
ВыполненныеРаботы
Где Дата >= &Дата1 И
Дата <= &Дата2
ВЫБРАТЬ
ВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,
ВыполненныеРаботы.ВидРабот КАК ВидРабот,
ВыполненныеРаботы.Дата КАК Дата,
ВыполненныеРаботы.Заказа КАК Заказа,
ПриемВЗаказДезинф.Клиент.Наименование КАК
КлиентНаименование
ИЗ
РегистрНакопления.ВыполненныеРаботы КАК
ВыполненныеРаботы
ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриемВЗаказДезинф
КАК ПриемВЗаказДезинф
ПО ВыполненныеРаботы.Заказа =
ПриемВЗаказДезинф.Ссылка
ГДЕ
ВыполненныеРаботы.Заказа = &Заказа
ВЫБРАТЬ
ЗаказДезинф.Статус КАК Статус,
ЗаказДезинф.Объект КАК Объект,
85
ЗаказДезинф.НомерЗакази КАК НомерЗакази,
ЗаказДезинф.Клиент КАК Клиент
ИЗ
РегистрНакопления.ЗаказДезинф КАК ЗаказДезинф
ВЫБРАТЬ
ЗаказДезинф.Статус КАК Статус,
ЗаказДезинф.Оборудование КАК Оборудование,
ЗаказДезинф.НомерЗакази КАК НомерЗакази,
ЗаказДезинф.Клиент КАК Клиент
ИЗ
РегистрНакопления.ЗаказДезинф КАК ЗаказДезинф
НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.ЗаявкаКлиентаНауслугиДезинф.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ЗаказДезинф
Движения.ЗаказДезинф.Записывать = Истина;
Для Каждого ТекСтрокаУслугиДезинф Из УслугиДезинф Цикл
Движение = Движения.ЗаказДезинф.Добавить();
Движение.Период = Дата;
Движение.Поставщик = Поставщик;
Движение.Номенклатура =
ТекСтрокаУслугиДезинф.Номенклатура;
86
Движение.Количество =
ТекСтрокаУслугиДезинф.Количество;
Движение.Сумма = ТекСтрокаУслугиДезинф.Стоимость;
КонецЦикла;
КонецПроцедуры
роцедура Печать(ТабДок, Ссылка) Экспорт
Макет =
Документы.ПроведениеВыставки.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Константы.НаименованиеОрганизации КАК Организация,
| ПроведениеВыставки.Выставка,
| ПроведениеВыставки.Выставка.Организатор КАК
Организатор,
| ПроведениеВыставки.Выставка.Рубрика КАК Рубрика,
| ПроведениеВыставки.Выставка.МестоПроведения КАК
МестоПроведения,
| ПроведениеВыставки.Выставка.ДатаНачалаВыставки КАК
ДатаНачалаВыставки,
| ПроведениеВыставки.Выставка.ДатаОкончанияВыставки КАК
ДатаОкончанияВыставки,
| ПроведениеВыставки.ДатаНачалаУчастия,
| ПроведениеВыставки.ДатаОкончанияУчастия,
| ПроведениеВыставки.КоличествоЗаказанныхМест,
| ПроведениеВыставки.Ответственный,
| ПроведениеВыставки.Ответственный.Телефон КАК
Телефон,
| ПроведениеВыставки.СтоимостьУчастия,
| ПроведениеВыставки.Оборудование.(
| НомерСтроки,
| Номенклатура,
| Количество
| )
|ИЗ
| Документ.ПроведениеВыставки КАК ПроведениеВыставки,
| Константы
|ГДЕ
| ПроведениеВыставки.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
87
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьОборудованиеШапка =
Макет.ПолучитьОбласть("ОборудованиеШапка");
ОбластьОборудование =
Макет.ПолучитьОбласть("Оборудование");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
Шапка.Параметры.ДатаНачалаВыставки =
Формат(Выборка.ДатаНачалаВыставки, "ДЛФ = ДД");
Шапка.Параметры.ДатаОкончанияВыставки =
Формат(Выборка.ДатаОкончанияВыставки, "ДЛФ = ДД");
Шапка.Параметры.ДатаНачалаУчастия =
Формат(Выборка.ДатаНачалаУчастия, "ДЛФ = ДД");
Шапка.Параметры.ДатаОкончанияУчастия =
Формат(Выборка.ДатаОкончанияУчастия, "ДЛФ = ДД");
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьОборудованиеШапка);
ВыборкаОборудование =
Выборка.Оборудование.Выбрать();
Пока ВыборкаОборудование.Следующий() Цикл
ОбластьОборудование.Параметры.Заполнить(ВыборкаОборудование);
ТабДок.Вывести(ОбластьОборудование,
ВыборкаОборудование.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
роцедура Печать(ТабДок, Ссылка) Экспорт