108
24. 101 совет начинающим разработчикам в системе "1С:Предприятие
8". Хрусталева Е. Ю. 214 с. 1С-Паблишинг, 2011 г.
25. Методология функционального моделирования IDEF0,
Руководящий документ, Госстандарт России.;
26. Вендров А.М. CASE технологии Современные методы и средства
проектирования информационных систем М.: Финансы и статистика,
2011. - 176 с.: ил.;
27. Диго С.М. Проектирование и использование баз данных Учебник.
М.: Финансы и статистика. 2013 г;
28. Котлер Ф. Маркетинг менеджмент / Пер. с англ. под ред. Л.А.
Волковой, Ю.Н. Каптунеревского. – СПб.: Питер, 2012. – 756с.р
29. Новости и технологии торговли [Электронный ресурс]. – Режим
доступа: http://www.torgrus.com
30. Программирование для всех [Электронный ресурс]. – Режим
доступа: http://www.realcoding.net/
31. Вендров А.М. Проектирование программного обеспечения
экономических информационных систем. – М.: Финансы и статистика,
2010.-187с.
32. Калянов Г.Н. CASE-технологии. Консалтинг при автоматизации
предприятий.-М.: СИНТЕГ, 2011.-276с.
33. Репин В.В., Елиферов В.Г. Процессный подход к управлению.
Моделирование бизнес-процессов. – М.: РИА «Стандарты и качество»,
2014. – 408 с., илл. – (Серия «Практический менеджмент»)
34. Информационные системы в экономике: Учебник для студ. высш.
учеб, заведений / В.Б. Уткин, К.В. Балдин. — М.: Издательский центр
«Академия», 2014. — 288 с.
35. Петров В.Н. Информационные системы. – СПб.: Питер, 2013. – 688
с.
36. Арутюнов В.В. Теория экономических информационных систем:
Московская финансово-промышленная академия. М., 2015. – 192 с.
109
37. Гагарина Л.Г., Киселев Д.В., Федотова Е.Л. Разработка и
эксплуатация автоматизированных информационных систем / под
ред.проф.Л.Г.Гагариной. – Москва: ИД «Форум»: Инфра-М, 2017 – 384 с.
38. Балдин К.В., Уткин В.Б. Информационные системы в экономике.
М.:Издательско-торговая корпорация «Дашков и К», 2011. – 395 с.
39. Ефимов Е.Н., Патрушина С.М., Панферова Л.Ф., Хашиева Л.И.
Информационные системы в экономике. – Москва: ИКЦ «МарТ», 2014. –
352 с.
40. Липаев В.В. Программная инженерия. Методологические основы.
М.: ТЕИС, 2016. – 608 с.
41. Максимов Н.В., Попов И.И., Голицына О.Л. Информационные
системы. Учебное пособие. Форум, 2010 г. - 496 с.
42. Проектирование экономических информационных систем:
Учебник/Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф.; Под ред. Тельнова
Ю.Ф. – М.:Финансы и статистика, 2013. - 512 с.
43. IntraService.Универсальная Service Desk система [Электронный
ресурс]. - https://intraservice.ru/
110
Приложение 1. Преимущества автоматизированного варианта учета
заявок
Преимущества использования АИС
Создание единого информационного пространства
процесса решения проблемы
Создание единого хранилища всех данных и документов,
касающихся проблемы, в едином информационном
пространстве проблемы. Нет необходимости передавать
данные и документы между участниками процесса
Создание команды участников решения проблемы.
Возможность привлечения к решению проблемы не только
непосредственных исполнителей, но и любых сотрудников
Службы
Коммуникация участников решения проблема в ходе
процесса
Наглядное представление хода решения проблемы и ее
текущего состояния
В случае необходимости задача разбивается на подзадачи
Каждая подзадача является
самостоятельной задачей
Многопользовательская работа
Разграничение прав доступа
Все основные и вспомогательные данные хранятся в
справочниках. Структурированное описание задачи при
помощи данных справочников
Ручной ввод сводится к минимуму
Все подзадачи составляют единое
целое
Удобное отображение подзадач в
виде дерева
Создание сценариев и шаблонов
генерации подзадач
Автоматическое ведение журнала задач с возможностью
поиска, отбора и фильтрации по любым критериям и их
сочетаниям
Любые изменения задачи, сделанные одним из участников
мгновенно становятся доступными всем остальным
111
Приложение 2. Схема документооборота
4
Фиксация
исполнения.
Передача
инициатору
5
Получение
подтверждения
6
Создания заявки
внутри ИТ-отдела
7
Фиксация заявки.
Передача
исполнителю
8
Формирование
отчетности
9
Предоставление
отчетности
3
Выполнение
действий по
документу
1
Обращение в
Службу
Карточка
заявки
Заявка
2
Фиксация
обращения.
Передача
исполнителю
Заявка
Карточка
заявки
Карточка
заявки
Внутренняя
заявка
Внутренняя
заявка
Отчетность
Отчетность
Внутренняя
заявка
№ СлужбаПользователь
Подразделени
е ИТ-отдела
РуководствоДействие
112
Приложение 3. Текст программных модулей
Модуль документа «Задача»
// префикс номера документа
Процедура ПриУстановкеНовогоНомера(СтандартнаяОбработка, Префикс)
Префикс = Обмен.ПолучитьПрефиксНомера();
КонецПроцедуры
// при вводе нового документа
Процедура ОбработкаЗаполнения(Основание, Значение)
ОбщийСрв.ПриВводеНовойЗадачи(ЭтотОбъект); // заполнить все
реквизиты по-умолчанию для новой задачи
// если вводится на основании Контрагента
Если ТипЗнч(Основание) = Тип("СправочникСсылка.Контрагенты")
Тогда
Контрагент = Основание; // основание -
это контрагент
Отвественный = Основание.Отвественный; // отвественный по
задаче - ответсвенный по контрагенту
Исполнитель = Исполнители.Добавить(); // первый
исполнитель -
Исполнитель.Исполнитель = Основание.Отвественный;
Исполнитель.Процент = 100;
КонецЕсли;
// если вводится на основании другой задачи
Если ТипЗнч(Основание) = Тип("ДокументСсылка.Задача") Тогда
ОбщийСрв.ПриВводеНовойЗадачи(ЭтотОбъект, Основание);
ДокОснование = Документы.Задача.ПустаяСсылка();
КонецЕсли;
Если ТипЗнч(Основание) = Тип("Структура") Тогда //если вводлится
новый из списка с установленным отбором
// то данные заполняются автоматически из отбора "Заполнять из
данных заполнения"
КонецЕсли
КонецПроцедуры
// если копирование - то переопределить логику копирования
Процедура ПриКопировании(ОбъектКопирования)
Автор = ПараметрыСеанса.глПользователь; // автор -
текущий пользователь
113
Отвественный = ПараметрыСеанса.глПользователь; // автор - текущий
пользователь
Статус = Справочники.Статусы.Новая; // новая задача
- статус Новая
ДокОснование = ОбъектКопирования.Ссылка; // Док основание - та
задача из котрой скопировали
Переписка.Очистить();
Исполнители.Очистить();
Подзадачи.Очистить();
Номенклатура.Очистить();
КонецПроцедуры
// перед удалением документа
Процедура ПередУдалением(Отказ)
// проверка на закрытый период
Если ОбщийСрв.ВЗакрытомПериоде(ЭтотОбъект) Тогда
Сообщить(ОбщийСрв.ПредставлениеЗадачи(ЭтотОбъект) +
"Находится в закрытом периоде. Удаление невозможно");
Отказ = Истина;
Возврат;
КонецЕсли;
// проверка Проведена
Если (ЭтотОбъект.Проведен И
Константы.ЗапретПроведенных.Получить()) И Не
ПараметрыСеанса.глЗаписьВедетИсполнитель Тогда
Сообщить(ОбщийСрв.ПредставлениеЗадачи(ЭтотОбъект) + "Уже
выполнена. Удаление невозможно");
Отказ = Истина;
Возврат;
КонецЕсли;
// проверка прав
Если Не ОбщийСрв.ПроверкаПрав(Автор,
ПараметрыСеанса.глПользователь) Тогда
Сообщить(ОбщийСрв.ПредставлениеЗадачи(ЭтотОбъект) + "Нет
прав удалять чужой документ");
Отказ = Истина;
Возврат;
КонецЕсли;
// удалить вхождение этого документа в табличную часть Подзадачи
любых остальных документов
114
ТЗРодителей = СформироватьСписокРодителей(ЭтотОбъект.Ссылка); //
сформировать ТЗ всех документов, в которые входит удаляемая
Для Каждого СтрокаРодитель Из ТЗРодителей Цикл // для каждого
родителя
УдалитьПодзадачу(СтрокаРодитель.Ссылка, ЭтотОбъект.Ссылка);
// удалить текущую(удяляемую) задачу из родителя
КонецЦикла
КонецПроцедуры
// удалить ЗадачаРебенок из табличной части Подзадачи у ЗадачаРодитель
Процедура УдалитьПодзадачу(ЗадачаРодитель, ЗадачаРебенок)
Если ЗадачаРодитель.Пустая() Тогда
Возврат;
КонецЕсли;
ЗадачаРодительОбъект = ЗадачаРодитель.ПолучитьОбъект();
СтруктураОтбора = Новый Структура("Подзадача", ЗадачаРебенок);
МассивУдаляемыхСтрок =
ЗадачаРодительОбъект.Подзадачи.НайтиСтроки(СтруктураОтбора);
Для Каждого ЭлементМассива Из МассивУдаляемыхСтрок Цикл
ЗадачаРодительОбъект.Подзадачи.Удалить(ЭлементМассива);
КонецЦикла;
ЗадачаРодительОбъект.Записать();
КонецПроцедуры
// сформироват ТЗ документов, в которые ПодЗадачаРебенок входит в таб часть
Подзадачи ( вявном виде, не через рекурсию)
Функция СформироватьСписокРодителей(ПодЗадачаРебенок)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Задачи.Ссылка
|ИЗ
| Документ.Задача.Подзадачи КАК ЗадачаПодзадачи
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Задача КАК Задачи
| ПО ЗадачаПодзадачи.Ссылка = Задачи.Ссылка
|ГДЕ
| ЗадачаПодзадачи.Подзадача = &ПодзадачаРебенок
|";
Запрос.УстановитьПараметр("ПодзадачаРебенок", ПодзадачаРебенок);
115
РезультатЗапроса = Запрос.Выполнить();
ТЗ = РезультатЗапроса.Выгрузить();
Возврат ТЗ;
КонецФункции
// провести все непроведенные подзадачи из ЗадачаОбъект и провести ее саму
Процедура ВыполнитьВсеПодзадачиПринудительно(ЗадачаОбъект)
Для Каждого ТекСтрокаПодзадача Из ЗадачаОбъект.Подзадачи Цикл // по
всем строкам таб. части Подзадачи
Если ТекСтрокаПодзадача.Подзадача.Проведен <> Истина Тогда
// если не была проведена
ВыполнитьВсеПодзадачиПринудительно(ТекСтрокаПодзадача.Подзадача
.ПолучитьОбъект()); // провести все ее подзадачи
ТекСтрокаПодзадача.Подзадача.ПолучитьОбъект().Записать(РежимЗапис
иДокумента.Проведение, РежимПроведенияДокумента.Неоперативный); //
провести ее саму
Сообщить("Выполнена подзадача " +
ОбщийСрв.ПредставлениеЗадачи(ТекСтрокаПодзадача.Подзадача));
КонецЕсли;
КонецЦикла;
КонецПроцедуры
// проверить, есть ли среди ТЧ Исполнители записи без отметки исполнения
Функция ПроверитьИсполнение()
Исполненно = Истина;
Для Каждого ТекСтрокаИсполнитель Из Исполнители Цикл
Если ТекСтрокаИсполнитель.ДатаИсполнения =
Дата(01,01,0001,00,00,00) Тогда
Сообщить("Задача не может быть выполнена, так как
исполнитель \" + ТекСтрокаИсполнитель.Исполнитель +
"\ не проставил отметку исполнения");
Исполненно = Ложь;
КонецЕсли;
Если Не ТекСтрокаИсполнитель.РезультатИсполнения.Пустая()
Тогда
Если Не ТекСтрокаИсполнитель.РезультатИсполнения.Успех
Тогда
116
Сообщить("Задача не может быть выполнена, так как
исполнитель \" + ТекСтрокаИсполнитель.Исполнитель +
"\ проставил отрицательную отметку
исполнения");
Исполненно = Ложь;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат Исполненно;
КонецФункции
// действия при проведении документа
Функция ПриПроведении(Отказ)
// проверка того, что все исполнители проставили отметку об исполнении
Если Константы.ПроверятьИсполнениеПриВыполнении.Получить()
Тогда // общая константа
Если ОбщийСрв.ПолучитьКонстанту(ТекущаяДата(),
ОбщийСрв.ПолучитьГлПользователь(),
"ПроверятьИсполнениеПриВыполнении") Тогда // настройка пользователя
Если Не ПроверитьИсполнение() Тогда
Отказ = Истина;
Возврат Ложь;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// проверка того, что все подзадачи проведены
ЕстьНеВыполненыеПодзадачи = Ложь;
Для Каждого ТекСтрокаПодзадача Из Подзадачи Цикл
Если ТекСтрокаПодзадача.Подзадача.Проведен <> Истина Тогда
Сообщить(ОбщийСрв.ПредставлениеЗадачи(ЭтотОбъект) + "
имеет невыполненные подзадачи");
ЕстьНеВыполненыеПодзадачи = Истина;
КонецЕсли;
КонецЦикла;
Если ЕстьНеВыполненыеПодзадачи = Истина Тогда
Если (Константы.ПринудительноВыполнятьПодзадачи.Получить())
И // общая константа
(ОбщийСрв.ПолучитьКонстанту(ТекущаяДата(),
ОбщийСрв.ПолучитьГлПользователь(),
"ПринудительноВыполнятьПодзадачи")) Тогда // настройка пользователя
117
Сообщить("Подзадачи будут выполнены
принудительно...");
ВыполнитьВсеПодзадачиПринудительно(ЭтотОбъект);
// автоматически провести все подзадачи данной задачи
Иначе // нельзя автоматически выполнять подзадачи
Сообщить(ОбщийСрв.ПредставлениеЗадачи(ЭтотОбъект) + "
не может быть выполнена");
Отказ = Истина;
Возврат Ложь;
КонецЕсли;
КонецЕсли;
Возврат Истина
КонецФункции
// обработка проведения
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
Если Не ПриПроведении(Отказ) Тогда // проверить проведение подзадач
Возврат;
КонецЕсли;
// регистр ИспользованниеНоменклатуры
Движения.ИспользованиеНоменклатуры.Записывать = Истина;
Для Каждого ТекСтрокаНоменклатура Из Номенклатура Цикл
Если ТекСтрокаНоменклатура.Наличие Тогда // если в ТЧ стоит
признак наличия
Продолжить;
КонецЕсли;
Если НЕ
ТекСтрокаНоменклатура.Номенклатура.ВидНоменклатуры.Списывается Тогда
// если номенклатуру не надо списывать
Продолжить;
КонецЕсли;
Движение = Движения.ИспользованиеНоменклатуры.Добавить();
Движение.Период = Дата;
Движение.Номенклатура =
ТекСтрокаНоменклатура.Номенклатура;
Движение.Задача = ЭтотОбъект.Ссылка;
Движение.Количество = ТекСтрокаНоменклатура.Количество;
Движение.Сумма =
ТекСтрокаНоменклатура.Сумма;
КонецЦикла;
КонецПроцедуры