112
Заключение
В ходе работы была всесторонне рассмотрена деятельность медицинского
учреждения ГБУЗ «Чукотская окружная больница» - филиал Чаунская районная
больница, изучена его структура, особенности функционирования и особенности
построения его документооборота. Задача автоматизации учета предоставленных
услуг и движения ТМЦ Чаунской РБ была рассмотрена всесторонне и подробно
изучена. Обоснована необходимость автоматизации этой части работы Чаунской
РБ.
Был проведен анализ существующих типовых решений в этой области и
сделан вывод о необходимости разработки программного решения собственными
силами. Выбрана стратегия проведения автоматизации и определены шаги
автоматизации и применяемые информационные системы.
Были изучены возможности платформы «1С:Предприятие 8.3» с целью
разработки системы учета предоставленных услуг Чаунской РБ. Система
«1С:Предприятие 8.3», обладающая очень гибкой технологической платформой,
была выбрана для реализации задачи как имеющая наибольшие возможности
подстройки под специфику задачи. Рассмотрены базовые особенности архитектуры
этой платформы, ее функциональные возможности и типовые механизмы, при
помощи которых создаются прикладные решения. Определены возможности
использования основных механизмов платформы «1С:Предприятие 8.3» для целей
проекта автоматизации.
В среде разработки платформы «1С:Предприятие 8.3» была реализована
конфигурация, выполняющая поставленную задачу учета предоставленных услуг.
Были созданы справочники, перечисления, документы, регистры сведений,
журналы документов, регистры накопления, отчеты; определена их структура,
реквизиты, экранные формы, на встроенном языке программирования написаны
программные модули, реализующие функциональность этих объектов.
Проведенное тестирование показывает, что разработанная конфигурация
полностью выполняет поставленную задачу, работает стабильно, обладает гибкой
функциональностью и продуманным интерфейсом.
113
Далее была проведена оценка проекта с точки зрения экономической
эффективности. Расчеты показали, что проект имеет положительную
экономическую эффективность и окупает затраты на его разработку.
114
Список использованных источников
1. ГОСТ Р ИСО/МЭК 12207-2010 «Информационная технология. Процессы
жизненного цикла программных средств» (принят и введен в действие
постановлением Госстандарта РФ от 23.12.1999 №675-ст).
2. ГОСТ Р ИСО/МЭК 15271-2002 «Информационная технология. Руководство
по применению ГОСТ Р ИСО/МЭК 12207-99 (Процессы жизненного цикла
программных средств)» (принят и введен в действие постановлением
Госстандарта РФ от 05.06 2002 №227-ст).
3. Профессиональная разработка в системе «1С:Предприятие 8» (+DVD-ROM).
Издание 2. Ажеронок В.А., Габец А.П., Гончаров Д.И., Козырев Д.В.,
Кухлевский Д.С., Островерх А.В., Радченко М.Г., Хрусталева Е.Ю. Под
редакцией М. Г. Радченко. 870 с. 1С-Паблишинг, 2013 г.
4. 1C:Предприятие 8.2. Практическое пособие разработчика. Примеры и
типовые приемы (+диск). М.Г. Радченко, Е.Ю. Хрусталева. 968 с. 1С-
Паблишинг, 2014 г.
5. Архитектура и работа с данными "1С:Предприятия 8.2". Серия
«1С:Профессиональная разработка». Радченко М. Г., Хрусталева Е. Ю. 650
с. 1С-Паблишинг, 2013 г.
6. Решение специальных прикладных задач в "1С:Предприятии 8.2". Серия
"1С:Профессиональная разработка". Гончаров Д. И., Хрусталева Е. Ю. 935 с.
1С-Паблишинг, 2015 г.
7. Реализация прикладных задач в системе "1С:Предприятие 8.2" (+CD). Серия
"1С:Профессиональная разработка". Габец А.П., Козырев Д.В., Кухлевский
Д.С., Хрусталева Е.Ю. 830 с. 1С-Паблишинг, 2014 г.
8. 1С:Предприятие 8.2. Практическое пособие разработчика. Примеры и
типовые приемы. Радченко М.Г., Хрусталева Е.Ю. 620 с. 1С-Паблишинг,
2012 г.
9. Разработка управляемого интерфейса (+CD). Серия "1С:Профессиональная
разработка". Ажеронок В.А., Островерх А. В., Радченко М. Г., Хрусталева Е.
Ю. 740 с. 1С-Паблишинг, 2015 г.
10. 1С:Предприятие 8.2. Коротко о главном. Новые возможности версии 8.2.
Радченко М.Г. 690 с. 1С-Паблишинг, 2012 г.
115
11. 101 совет начинающим разработчикам в системе "1С:Предприятие 8".
Хрусталева Е. Ю. 214 с. 1С-Паблишинг, 2011 г.
12. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России.;
13. Вендров А.М. CASE технологии Современные методы и средства
проектирования информационных систем М.: Финансы и статистика, 1998. -
176 с.: ил.;
14. Диго С.М. Проектирование и использование баз данных Учебник. М.:
Финансы и статистика. 1995 г;
15. Основы построения баз данных под ред. А.Д. Хомоненко Санкт-Петербург,
2004;
16. Матищев А.Н. Эффективность рекламы. – М.: Издательство «Финпресс»,
2002. – 416с.
17. Котлер Ф. Маркетинг менеджмент / Пер. с англ. под ред. Л.А. Волковой,
Ю.Н. Каптунеревского. – СПб.: Питер, 2002. – 756с.р
18. Вендров А.М. Проектирование программного обеспечения экономических
информационных систем. – М.: Финансы и статистика, 2000.-187с.
19. Калянов Г.Н. CASE-технологии. Консалтинг при автоматизации
предприятий.-М.: СИНТЕГ, 1997.-276с.
20. Репин В.В., Елиферов В.Г. Процессный подход к управлению.
Моделирование бизнес-процессов. – М.: РИА «Стандарты и качество», 2004.
– 408 с., илл. – (Серия «Практический менеджмент»)
21. Информационные системы в экономике: Учебник для студ. высш. учеб,
заведений / В.Б. Уткин, К.В. Балдин. — М.: Издательский центр
«Академия», 2004. — 288 с.
22. Петров В.Н. Информационные системы. – СПб.: Питер, 2003. – 688 с.
23. Арутюнов В.В. Теория экономических информационных систем:
Московская финансово-промышленная академия. М., 2005. – 192 с.
24. Гагарина Л.Г., Киселев Д.В., Федотова Е.Л. Разработка и эксплуатация
автоматизированных информационных систем / под
ред.проф.Л.Г.Гагариной. – Москва: ИД «Форум»: Инфра-М, 2007 – 384 с.
116
25. Балдин К.В., Уткин В.Б. Информационные системы в экономике.
М.:Издательско-торговая корпорация «Дашков и К», 2008. – 395 с.
26. Ефимов Е.Н., Патрушина С.М., Панферова Л.Ф., Хашиева Л.И.
Информационные системы в экономике. – Москва: ИКЦ «МарТ», 2004. – 352
с.
27. Липаев В.В. Программная инженерия. Методологические основы. М.: ТЕИС,
2006. – 608 с.
28. Максимов Н.В., Попов И.И., Голицына О.Л. Информационные системы.
Учебное пособие. Форум, 2009 г. - 496 с.
29. Проектирование экономических информационных систем:
Учебник/Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф.; Под ред. Тельнова
Ю.Ф. – М.:Финансы и статистика, 2003. - 512 с.
117
Приложение А. Текст программного модуля формы «Заявка»
// изменился тип цен - персчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
&НаКлиенте
Процедура ПересчитатьЦены()
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
118
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураЕдИзмеренияПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
119
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Цена,,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Сумма);
КонецПроцедуры
120
Приложение Б. Текст программного модуля формы «Заявка
поставщику»
// изменился контрагент - изменить договор, тип цен, тип скидки,
скидку и пересчитать цены
&НаКлиенте
Процедура КонтрагентПриИзменении(Элемент)
Объект.Сотрудник =
ОбщийСрв.ПолучитьОтветсвенного(Объект.Контрагент);
Объект.Договор =
ОбщийСрв.ПолучитьОсновнойДоговор(Объект.Контрагент, Объект.Дата);
//Если Не Объект.Договор = Неопределено Тогда
ДоговорПриИзменении(Элемент);
//КонецЕсли;
КонецПроцедуры
// изменился договор - изменить тип цен, тип скидки, скидку и
пересчитаь цену
&НаКлиенте
Процедура ДоговорПриИзменении(Элемент)
Если Не Объект.Договор.Пустая() Тогда
Объект.ТипЦен =
ОбщийСрв.ПолучитьТипЦенИзДоговора(Объект.Договор);
Иначе
Объект.ТипЦен =
ОбщийСрв.ПолучитьКонстанту(Объект.Дата,
ОбщийСрв.ПолучитьГлПользователь(), "ОсновнойТипЦен") ;
КонецЕсли;
ПересчитатьЦены();
КонецПроцедуры
// изхменился тип цен - персчитать цены (скидка не изменилась)
&НаКлиенте
Процедура ТипЦенПриИзменении(Элемент)
ПересчитатьЦены();
КонецПроцедуры
&НаКлиенте
Процедура ПересчитатьЦены()
А = 0; Б = 0;
121
Для Каждого ТекНоменклатура Из Объект.Номенклатура Цикл
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ТекНоменклатура.Номенклатура,
ТекНоменклатура.Количество,
ТекНоменклатура.Коэфф,
Объект.ТипЦен, ,
ТекНоменклатура.Цена, А,
ТекНоменклатура.Сумма,Б);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество = 1;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф = 1;
ОсновнаяЕдиницаОтгрузки =
ОбщийСрв.ПолучитьОсновнуюЕдиницуОтгрузкиНоменклатуры(ЭтотОбъект
.Элементы.Номенклатура.ТекущиеДанные.Номенклатура);
Если Не ОсновнаяЕдиницаОтгрузки.Пустая() Тогда
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.ЕдИзмерения =
ОсновнаяЕдиницаОтгрузки;
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф =
ОбщийСрв.ПолучитьКоэффициент(ЭтотОбъект.Элементы.Номенклатура.Тек
ущиеДанные.ЕдИзмерения);
КонецЕсли;
ОбщийСрв.РассчитатьСуммуСтроки(Объект.Дата,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Номенклатура,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Количество,
ЭтотОбъект.Элементы.Номенклатура.ТекущиеДанные.Коэфф,
Объект.ТипЦен, ,