86
автоматизации задачи учета товаров и услуг в компании ОАО “Белый
сервис” является быстро окупаемым и целесообразным.
В проекте решены задачи автоматизации процесса обработки новых
заявок, а именно:
- разработан удобный многофункциональный рабочий стол.
Включающий в себя отображение списка заявок и оплат, список клиентов, а
так же текущая дата и время. Еще имеется возможность создания новой
заявки/получения оплаты от клиента и добавления нового клиента в базу.
- имеется возможность сортировки заявок на рабочем столе по статусам
(получена, исполнении, исполнена, выполнена);
- введен автоматический выбор оборудования и услуг со стоимостью;
- введен автоматический расчет общей стоимости оборудования и
услуг;
- разработана возможность просмотра всех созданных заявок;
- разработана возможность просмотра всех выполненных заявок с
суммой и перечнем оказанных услуг.
-доработан пункт меню Напоминания, добавлены всплывающие
уведомления для пользователя.
В итоге мы получили удобную и функциональную информационную
систему с простым и понятным интерфейсом. Она позволяет вести полный
учет данных о заявках, оплатах и клиентах.
В качестве CASE-средств, при проектировании использовался пакет
Computer Associates BPwin 4.14. Так же дана характеристика таблиц и связей
базы данных. На основании ИС было описано дерево функций системы и
сценарий диалога. Было построено и описано дерево вызова программных
модулей. Далее был описан контрольный пример реализации проекта, с
подробным описанием всех функций. Для наглядности работы системы
введены данные и сформированы документы и отчеты. В результате
тестирования информационной системы можно выявлено, что она работает
корректно и без ошибок.
87
Рассчитана экономическая эффективность автоматизированной
системы учета оформления заявок и на ее основе выявлено, что внедрение
данной автоматизированной системы позволит значительно увеличить
качество работы сотрудников; уменьшить время на оформление заявок,
уменьшить время на поиск необходимого документа.
На основании проведенных экономических расчетов были получены
следующие результаты: трудоемкость выполняемых операций уменьшается
на 39%, а стоимость выполняемых операций уменьшается на 53%. Сумма
затраченная на проект 8750 рублей.
Срок окупаемости проекта составил 36 дней. На основании всех
рассчитанных показателей проект разработки информационной системы,
автоматизирующей процесс обработки заявок можно считать выгодным.
88
СПИСОК ЛИТЕРАТУРЫ
1. ГОСТ Р 51241-2008 – «Средства и системы контроля и
управления доступом. Классификация. Общие технические требования.
Методы испытаний», Руководящий документ, 2008г.
2. ГОСТ Р 50739-95. Средства вычислительной техники. Защита от
несанкционированного доступа к информации;
3. Абросимова М.А. Информационные технологии: Учебное пособие. -
М.: КноРус, 2016г. – 266 с.;
4. Закон Российской Федерации «Об информации, информатизации и
защите информации» от 25.01.95.;
5. Вендров А.М. «CASE технологии Современные методы и средства
проектирования информационных систем» М.: Финансы и статистика,
1998г. -566 с.;
6. Маклаков С.В. Моделирование бизнес-процессов с Bpwin 4.0. – М.:
ДИАЛОГ-МИФИ, 2002г. – 471 с.;
7. Черемных С.В., Семенов И.О., Ручкин В.С. Структурный анализ
систем: IDEF-технологии. - М.: Финансы и статистика, 2001г. – 190 с.;
8. Гейн, К.Н. Структурный системный анализ: средства и методы:
учебное пособие / К.Н. Гейн, Т. Сарсон. - М. : Эйтекс, 2017г. – 452 с.;
9. Бройдо В. М., Вычислительные системы, сети и телекоммуникации,
СПб, Питер, 2019г. – 702 с.;
10. Емельянова Н.З.: Проектирование информационных систем. - М:
Форум, 2011 г. – 256 с.;
11. Илюшечкин В.М. Основы использования и проектирования баз данных.
Сб-п.: Юрайт, 2019г. – 212 с.;
12. Хрусталева Е.Ю. 101 совет начинающим разработчикам в системе 1С:
Предприятие 8, Издательство:1С-Паблишинг ,2015г. - 302 с.;
13. Калянов Г.Н.: Моделирование, анализ, реорганизация и автоматизация
бизнес-процессов. - М.: Финансы и статистика, 2007 г. – 88 с.;
89
14. Филин С.А.: Информационная безопасность. - М.: Альфа-Пресс, 2006г.
– 540 с.;
15. Васильков А.В. Информационные системы и их безопасность. – М.:
Форум, 2014г. – 107 с.;
16. Бартеньев, О. 1С: Предприятие. Программирование для всех, 2015г. –
247 с.;
17. Гулин, В. Н. 1С: Предприятие 8.1 / В.Н. Гулин. - М.: Дикта, 2010г. -
401 с.;
18. Вахитов К.И. Экономика. Учебное пособие. - М. - 2004г. – 342 с.;
19. Колбачева Е.Б. Экономика. — М.: ИНФРА-М. - 2010г. – 232 с.;
20. Основные понятия технологии проектирования информационных
систем (ИС) http://www.intuit.ru (дата обращения 21.02.2020)
90
ПРИЛОЖЕНИЯ
Ниже представлен сформированный отчет взаиморасчетов с услугами.
Рисунок 30 Отчет взаиморасчеты с услугами
Сформированный отчет с перечнем всех заявок.
Рисунок 31 Список всех заявок
91
Сформированная форма документа Заявки
Рисунок 32 Форма документа заявки
ВЫБРАТЬ
РасчетыОстаткиИОбороты.Клиент КАК Клиент,
РасчетыОстаткиИОбороты.СуммаНачальныйОстаток КАК НачальныйДолг,
РасчетыОстаткиИОбороты.СуммаПриход КАК ОказанныеУслуги,
РасчетыОстаткиИОбороты.СуммаРасход КАК ПриходДенег,
РасчетыОстаткиИОбороты.СуммаКонечныйОстаток КАК КонечныйДолг,
РасчетыОстаткиИОбороты.Регистратор КАК Документ,
РасчетыОстаткиИОбороты.ПериодСекунда
ПОМЕСТИТЬ Запрос1
ИЗ
РегистрНакопления.Расчеты.ОстаткиИОбороты(&НачалоПериода,
&КонецПериода, Авто, ДвиженияИГраницыПериода, ) КАК РасчетыОстаткиИОбороты;
ВЫБРАТЬ
ЗаявкаУслуги.Ссылка,
ЗаявкаУслуги.НомерСтроки,
ЗаявкаУслуги.Услуга,
ЗаявкаУслуги.ЦенаУслуги,
92
ЗаявкаУслуги.СуммаУслуги,
ВЫРАЗИТЬ(ЗаявкаУслуги.Примечание КАК СТРОКА(200)) КАК Примечание
ПОМЕСТИТЬ Запрос2
ИЗ
Документ.Заявка.Услуги КАК ЗаявкаУслуги
ГДЕ
ЗаявкаУслуги.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода;
ВЫБРАТЬ
Запрос1.Клиент КАК Клиент,
СУММА(Запрос1.НачальныйДолг) КАК НачальныйДолг,
СУММА(Запрос1.ОказанныеУслуги) КАК ОказанныеУслуги,
СУММА(Запрос1.ПриходДенег) КАК ПриходДенег,
СУММА(Запрос1.КонечныйДолг) КАК КонечныйДолг,
Запрос1.Документ КАК Документ,
Запрос2.Услуга,
Запрос2.ЦенаУслуги,
Запрос2.СуммаУслуги,
Запрос1.ПериодСекунда,
Запрос2.Примечание
ИЗ
Запрос1 КАК Запрос1
ЛЕВОЕ СОЕДИНЕНИЕ Запрос2 КАК Запрос2
ПО Запрос1.Документ = Запрос2.Ссылка
СГРУППИРОВАТЬ ПО
Запрос1.Клиент,
Запрос1.Документ,
Запрос2.Услуга,
Запрос2.ЦенаУслуги,
Запрос2.СуммаУслуги,
Запрос1.ПериодСекунда,
Запрос2.Примечание
УПОРЯДОЧИТЬ ПО
Клиент
&НаКлиенте
93
Процедура ПриИзмененииКоличествоЦена(Элемент)
СтрокаТаблицы = Элементы[Элемент.Родитель.Имя].ТекущиеДанные;
РаботаСТабличнойЧастью.РассчитатьСуммуТабЧасти(СтрокаТаблицы);
КонецПроцедуры
&НаКлиенте
Процедура ПриИзмененииКоличество(Элемент)
СтрокаТаблицы = Элементы[Элемент.Родитель.Имя].ТекущиеДанные;
РаботаСТабличнойЧастью.РассчитатьСуммуТабЧасти(СтрокаТаблицы);
КонецПроцедуры
&НаКлиенте
Процедура УслугиПриИзменении(Элемент)
СтрокаТабличнойЧасти=Элементы.Услуги.ТекущиеДанные;
Услуга=СтрокаТабличнойЧасти.Услуга;
СтрокаТабличнойЧасти.ЦенаУслуги=ПолучитьЦена(Услуга);
КонецПроцедуры
&НаКлиенте
Процедура УслугиЦенаУслугиПриИзменении(Элемент)
ПриИзмененииКоличествоЦена(Элемент);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьЦена(Услуга)
Возврат Услуга.Цена;
КонецФункции
&НаКлиенте
Процедура ОборудованиеНазваниеПриИзменении(Элемент)
СтрокаТабличнойЧасти =Элементы.Оборудование.ТекущиеДанные;
Название=СтрокаТабличнойЧасти.Название;
СтрокаТабличнойЧасти.ЦенаНазвание= ПолучитьЦенаНазвание(Название);
КонецПроцедуры
&НаКлиенте
Процедура ОборудованиеценаПриИзменении(Элемент)
ПриИзмененииКоличествоЦена(Элемент);
КонецПроцедуры
&НаСервереБезКонтекста
94
Функция ПолучитьЦенаНазвание(Название)
Возврат Название.Цена;
КонецФункции
&НаСервере
Процедура УcтановитьОтбор()
Список.Отбор.Элементы.Очистить();
если ЭтапЗаявки <> перечисления.ЭтапЗаявки.ПустаяСсылка() тогда
НовыйЭлементОтбора =
Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ПолеОтбора = Новый ПолеКомпоновкиДанных("ЭтапЗаявки");
НовыйЭлементОтбора.ЛевоеЗначение = ПолеОтбора;
НовыйЭлементОтбора.Использование = Истина;
НовыйЭлементОтбора.ВидСравнения =
ВидСравненияКомпоновкиДанных.Равно;
НовыйЭлементОтбора.ПравоеЗначение = ЭтапЗаявки;
Конецесли;
КонецПроцедуры
&НаСервере
Процедура Раскрасить(УО,ЭтапЗаявки,Цвет)
ЭлементУО = УО.Элементы.Добавить();
ЭлементОтбора =
ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЭтапЗаявки");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = ЭтапЗаявки;
ЭлементУО.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", ИСТИНА);
ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФОна",Цвет);
КонецПроцедуры
&НаСервере
Процедура УстановитьПриОткрытии()
УО = Список.УсловноеОформление;
УО.Элементы.Очистить();
Раскрасить(УО,перечисления.ЭтапЗаявки.Получена,WebЦвета.БледноЗолотистый);
95
Раскрасить(УО,перечисления.ЭтапЗаявки.ВИсполнении,WebЦвета.БледноЗеленый);
Раскрасить(УО,перечисления.ЭтапЗаявки.Исполнена,WebЦвета.Серый);
Раскрасить(УО,перечисления.ЭтапЗаявки.Выполнена,WebЦвета.Серый);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
УстановитьПриОткрытии();
УcтановитьОтбор();
КонецПроцедуры
&НаКлиенте
Процедура ЭтапЗаявкиПриИзменении(Элемент)
УcтановитьОтбор();
КонецПроцедуры
&НаСервере
Процедура ТипЗаявкиУcтановитьОтбор(ТипЗаявки)
Список.Отбор.Элементы.Очистить();
если ТипЗаявки <> перечисления.ТипЗаявки.ПустаяСсылка() тогда
НовыйЭлементОтбора =
Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ПолеОтбора = Новый ПолеКомпоновкиДанных("ТипЗаявки");
НовыйЭлементОтбора.ЛевоеЗначение = ПолеОтбора;
НовыйЭлементОтбора.Использование = Истина;
НовыйЭлементОтбора.ВидСравнения =
ВидСравненияКомпоновкиДанных.Равно;
НовыйЭлементОтбора.ПравоеЗначение = ТИпЗаявки;
Конецесли;
КонецПроцедуры
&НаСервере
Процедура Отметить(УО,ТипЗаявки,Цвет)
ЭлементУО = УО.Элементы.Добавить();
ЭлементОтбора =
ЭлементУО.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ТипЗаявки");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = ТипЗаявки;