77
Также нужно подключить дополнительного пользователя –
бухгалтера. Стоимость дополнительного пользователя – 12000 в год.
Важно отметить, что при оплате на год вперед применяется скидка в
размере 20%.
Таблица 11
Размер абонентской платы за пользование Инфокрафт
Бухгалтерия СНТ
Аренда
Стоимость в месяц
Доступ к сервису
Инфокрафт. Бухгалтерия
СНТ. Один пользователь,
одна информационная
база, до 500 участков
(лицевых счетов)
1280
+ дополнительный
пользователь
1000
+500 участков (лицевых
счетов)
320
В стоимость доступа входит работа в программе, автоматическое
обновление и резервное копирование данных, а также доступ к базе знаний.
В стоимость также входит автоматизированное ведение бухгалтерского,
налогового учета и сдача отчѐтности. Следовательно, после внедрения
решения можно будет снизить оплату председателю.
Расчет экономической эффективности будет сделан из
предположения, что вознаграждение председателя будет снижено в два раза
(с 120 000 рублей в год до 36 000 рублей в год). Снижение размера
вознаграждения произойдѐт за счѐт сокращения времени, затрачиваемого
председателем на подготовку документов к общему собранию и заседаниям
правления. Ранее председатель делал все документы вручную.
Согласно таблице 1, ежегодная оплата труда председателя составляет
36 000 рублей. В таблице 12 приводится сравнение затрат на ведение
операционного учета до и после автоматизации.
78
Таблица 12
Сравнение затрат До и После внедрения системы
Статья затрат
Затраты до внедрения
ПО
Затраты после
внедрения ПО
Вознаграждение
председателя
120 000 рублей в год
36000 руб.
Оплата использования
1С:Инфокрафт
0
21888 руб. в год (с
учѐтом скидки 20%)
Итого
120 000 рублей в год
57888 рублей в год.
Ежегодная экономия после внедрения системы составит: 120 000
рублей – 57 888 рублей = 62 212 рублей в год.
Срок окупаемости внедряемого решения составит: 62 212 руб. / 120
000 рублей = 0,52 года = 6 месяцев.
79
ЗАКЛЮЧЕНИЕ
В рамках данного дипломного проекта мной было автоматизирована
деятельность садоводческого товарищества «Дружба», в частности
автоматизация проведения общих собраний.
Целью работы являлась оптимизация проведения и учѐта протоколов
общих собраний членов некоммерческого объединения.
Задачами моей работы являлись:
Изучение текущего состояния дел при проведении общих
собраний в СНТ «Дружба» и выявление недостатков, определяющих
необходимость разработки предлагаемого мной решения;
Определение зон деятельности, подлежащих автоматизации;
Обоснование выбора предлагаемого решения из нескольких
вариантов проектных решений;
Обоснование экономической эффективности проекта.
Все задачи были решены, цель работы достигнута.
В СНТ была внедрена SaaS система Инфокрафт СНТ, позволяющая
автоматизировать всю деятельность садоводческого товарищества, в том
числе автоматизировать проведение общих собраний членов садоводческого
товарищества.
Срок окупаемости внедряемого решения составит 6 месяцев.
Годовая экономия от внедрения программного решения составит 62
212 рублей в год.
80
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
Основная литература:
1. Беленькая М. Н., Малиновский С. Т., Яковенко Н. В.
Администрирование в информационных системах.2-е изд., испр. и доп., 408
c.- М.: Горячая линия - Телеком, 2014.
2. Денисов Д.В. Технические средства информатизации: учебное
пособие. – М.: Московский финансово-промышленный университет
«Синергия», 2013. – 144 с.
3. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 - 300 с.
4. ГОСТ Р ИСО/МЭК 12207-99, Руководящий документ, Госстандарт
России, Москва, 2004
5. Гущин А.Н. Базы данных: учебник. - М.: Директ-Медиа, 2014. -
266с
6. Заботина Н.Н. Проектирование информационных систем: учебное
пособие. – М.: ИНФРА-М, 2013. – 331с
7. Методология функционального моделирования IDEF0,
Руководящий документ, Госстандарт России
8. Федорова Г.Н. Информационные системы: учебник. - 3-е изд.,
стер. - М.: Академия, 2013. - 208с.
9. Фуфаев Д.Э. Разработка и эксплуатация информационных систем:
учебник / Д.Э. Фуфаев, Э. В. Фуфаев. – 2-е изд., перераб. – М.: Академия,
2013. - 304с.
10. Антонов В.Ф. Методы и средства проектирования
информационных систем: учебное пособие / В.Ф. Антонов, А.А. Москвитин.
- Ставрополь: СКФУ, 2016. - 342с
11. Гимбицкая Л.А. Администрирование в информационных
системах: учебное пособие / Л.А. Гимбицкая, З.М. Альбекова. - Ставрополь:
СКФУ, 2014. - 66 с.
81
12. Методы и средства проектирования информационных систем и
технологий: учебное пособие / авт.-сост. Е.В. Крахоткина. - Ставрополь:
СКФУ, 2015. - 152 с.
13. Советов Б.Я. Архитектура информационных систем: учебник /
Б.Я. Советов, А.И. Водяхо, В.А. Дубенецкий, В.В. Цехановский. – М.:
Академия, 2012. – 288 с.
14. Технические средства информатизации: учебник для студ.
учреждений сред. проф. образования / Е.И. Гребенюк, Н.А. Гребенюк. – М.:
Издательский центр «Академия», 2017. – 352 с.
15. Технологии защиты информации в компьютерных сетях /
Н.А. Руденков, А.В. Пролетарский, Е.В. Смирнова, А.М. Суровов. - 2-е изд.,
испр. - М. : Национальный Открытый Университет «ИНТУИТ», 2016. - 369 с.
16. Хорев П.Б. Программно – аппаратная защита информации:
учебное пособие. – М.: Форум, 2013. – 352с.
17. Федеральный закон от 29.07.2017 N 217-ФЗ (ред. от 03.08.2018) "О
ведении гражданами садоводства и огородничества для собственных нужд и
о внесении изменений в отдельные законодательные акты Российской
Федерации".
82
Приложение
Исходный тест программного модуля ИС
Листинг модуля формы документа "ВступлениеВСНТ"
Перем ЕдиничнаяОрганизация;
Перем ОсновнойВид, ПустойВид;
Функция ПолучитьДоступныеДанные (Механизм)
ТЗРегистра = РегистрыСведений. лс_ВступлениеРаботНаМеханизмах.
СрезПоследних (Дата, Новый Структура ("Механизм", Механизм));
Список = Новый СписокЗначений;
Список. ЗагрузитьЗначения (ТЗРегистра. ВыгрузитьКолонку
("Вступление"));
Возврат Список;
КонецФункции // ПолучитьДоступ (ТекСтрока. Механизм) ()
Функция ЧислоСтрок (Механизм, Вступление, Председатель)
Возврат Выработка. НайтиСтроки (Новый Структура ("Механизм,
Вступление, Председатель", Механизм, Вступление, Председатель)). Количество
();
КонецФункции // ЕстьСтрока ()
Функция ПолучитьРазмер (Механизм, Вступление)
Возврат РегистрыСведений. лс_ВступлениеРаботНаМеханизмах.
ПолучитьПоследнее (Дата, Новый Структура ("Механизм, Вступление", Механизм,
Вступление)). Размер;
КонецФункции //
Процедура Пересчет (СтрокаТЧ)
Если СтрокаТЧ. Вступление = ОсновнойВступление Тогда
СтрокаТЧ. Результат = СтрокаТЧ. Размер * СтрокаТЧ. ВыработкаЧас;
Иначе
СтрокаТЧ. Результат = 0;
КонецЕсли;
КонецПроцедуры
Процедура КоманднаяПанель1Подбор (Кнопка)
ПроцедурыУправленияПерсоналом.
ОткрытьФормуВыбораПредседательаОрганизации (ЭлементыФормы. Выработка, Ссылка,
Ложь, Дата, мЕдиничнаяОрганизация, 1);
КонецПроцедуры
Процедура ВыработкаПредседательНачалоВыбора (Элемент,
СтандартнаяОбработка)
ПроцедурыУправленияПерсоналом.
ОткрытьФормуВыбораПредседательаОрганизации (Элемент, Ссылка, Истина, Дата,
мЕдиничнаяОрганизация, 1, СтандартнаяОбработка, Элемент. Значение);
КонецПроцедуры
Процедура ПриОткрытии ()
Если ЭтоНовый () Тогда // проверить объект на то, что он еще не внесен
в ИБ
// Заполнить реквизиты значениями по умолчанию.
ОбщегоНазначения. ЗаполнитьШапкуДокумента (ЭтотОбъект,
глЗначениеПеременной ("глТекущийПользователь"));
КонецЕсли;
РаботаСДиалогами. УстановитьДоступностьПоляВводаНомера (Метаданные (),
ЭтаФорма, ЭлементыФормы. ДействияФормы. Кнопки. Подменю1, ЭлементыФормы.
Номер);
// Заполним реквизит формы МесяцСтрока.
МесяцСтрока = РаботаСДиалогами. ДатаКакМесяцПредставление
(ПериодРегистрации);
83
// Вывести в заголовке формы статус документа (новый, не проведен,
проведен).
РаботаСДиалогами. УстановитьЗаголовокФормыДокумента (, ЭтотОбъект,
ЭтаФорма);
// Запомнить текущие значения реквизитов формы.
мТекущаяДатаДокумента = Дата;
// Получим и запомним ссылку на головную организацию
мЕдиничнаяОрганизация = ОбщегоНазначения. ЕдиничнаяОрганизация
(Организация);
КонецПроцедуры
Процедура ПериодРегистрацииПриИзменении (Элемент)
РаботаСДиалогами. ДатаКакМесяцПодобратьДатуПоТексту (Элемент.
Значение, ПериодРегистрации);
Элемент. Значение = РаботаСДиалогами. ДатаКакМесяцПредставление
(ПериодРегистрации);
КонецПроцедуры // ПериодРегистрацииПриИзменении ()
// Процедура - обработчик события "Регулирование" поля ввода периода
регистрации.
Процедура ПериодРегистрацииРегулирование (Элемент, Направление,
СтандартнаяОбработка)
ПериодРегистрации = ДобавитьМесяц (ПериодРегистрации, Направление);
Элемент. Значение = РаботаСДиалогами. ДатаКакМесяцПредставление
(ПериодРегистрации);
КонецПроцедуры // ПериодРегистрацииРегулирование ()
// Процедура - обработчик события "Очистка" поля ввода периода
регистрации.
Процедура ПериодРегистрацииОчистка (Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
КонецПроцедуры // ПериодРегистрацииОчистка ()
// Процедура - обработчик события "НачалоВыбораИзСписка" поля ввода
периода регистрации.
Процедура ПериодРегистрацииНачалоВыбораИзСписка (Элемент,
СтандартнаяОбработка)
РаботаСДиалогами. НачалоВыбораИзСпискаПредставленияПериодаРегистрации
(Элемент, СтандартнаяОбработка, ПериодРегистрации, ЭтаФорма);
КонецПроцедуры // ПериодРегистрацииНачалоВыбораИзСписка ()
// Процедура - обработчик события "АвтоПодборТекста" поля ввода
периода регистрации.
Процедура ПериодРегистрацииАвтоПодборТекста (Элемент, Текст,
ТекстАвтоПодбора, СтандартнаяОбработка)
РаботаСДиалогами. ДатаКакМесяцАвтоПодборТекста (Текст,
ТекстАвтоПодбора, СтандартнаяОбработка);
КонецПроцедуры // ПериодРегистрацииАвтоПодборТекста ()
// Процедура - обработчик события "ОкончаниеВводаТекста" поля ввода
периода регистрации.
Процедура ПериодРегистрацииОкончаниеВводаТекста (Элемент, Текст,
Значение, СтандартнаяОбработка)
РаботаСДиалогами. ДатаКакМесяцОкончаниеВводаТекста (Текст, Значение,
СтандартнаяОбработка);
КонецПроцедуры // ПериодРегистрацииОкончаниеВводаТекста ()
Процедура ОбработкаВыбора (ЗначениеВыбора, Источник)
Если ТипЗнч (ЗначениеВыбора) = Тип ("Структура") Тогда
Команда = ""; Реквизиты = "";
Если ЗначениеВыбора. Свойство ("Команда", Команда) и Команда =
"ЗаполнитьСписокЧленовСНТ" Тогда
ВременнаяТаблица = ЗначениеВыбора. Данные. Выгрузить ();
МассивПредседательов = ВременнаяТаблица. ВыгрузитьКолонку
("Председатель");
ВременнаяТаблица. Колонки. Подразделение. Имя =
"ПодразделениеОрганизации";
ВременнаяТаблица. Колонки. Добавить ("Авторасчет");
ВременнаяТаблица. ЗаполнитьЗначения (Истина, "Авторасчет");
Выработка. Загрузить (ВременнаяТаблица);
КонецЕсли;
84
КонецЕсли;
КонецПроцедуры
Процедура ВыработкаОбработкаВыбора (Элемент, ВыбранноеЗначение,
СтандартнаяОбработка)
Если ТипЗнч (ВыбранноеЗначение) <> Тип ("СправочникСсылка.
ПредседательиОрганизаций") Тогда
Возврат;
КонецЕсли;
СтандартнаяОбработка = Ложь;
Если Выработка. НайтиСтроки (Новый Структура ("Председатель",
ВыбранноеЗначение)). Количество () = 0 Тогда
СтрокаТабличнойЧасти = Выработка. Добавить ();
СтрокаТабличнойЧасти. Председатель= ВыбранноеЗначение;
СтрокаТабличнойЧасти. Авторасчет= Истина;
ЭлементыФормы. Выработка. ТекущаяСтрока = СтрокаТабличнойЧасти;
ПроцедурыУправленияПерсоналом. ПроставитьДанныеСтроки
(ВыбранноеЗначение, Дата, ЭлементыФормы. Выработка);
КонецЕсли;
КонецПроцедуры
Процедура ВыработкаПредседательПриИзменении (Элемент)
ПроцедурыУправленияПерсоналом. ПроставитьДанныеСтроки (Элемент.
Значение, ПериодРегистрации, ЭлементыФормы. Выработка);
КонецПроцедуры
Процедура КоманднаяПанель1Заполнить (Кнопка)
Если Выработка. Количество () > 0 Тогда
ТекстВопроса = "Перед заполнением табличные части будут очищены.
Заполнить?";
Ответ = Вопрос (ТекстВопроса, РежимДиалогаВопрос. ДаНет,,
КодВозвратаДиалога. Да,);
Если Ответ <> КодВозвратаДиалога. Да Тогда
Возврат;
КонецЕсли;
Выработка. Очистить ();
КонецЕсли;
мИмяЗаполняемойТаблицы = "Выработка";
ПроцедурыУправленияПерсоналом. ОткрытьФормуОтбораСпискаРаботников
(ЭтаФорма, ПериодРегистрации,, Организация);
// ПроцедурыУправленияПерсоналом. ОткрытьФормуОтбораСпискаРаботников
(ЭтаФорма, ПериодРегистрации,, Организация,,,,"РазовыеРасчеты", Новый
Структура ("ВидРасчета, Показатель1, ДатаНачала, ДатаОкончания",
ПланыВидовРасчета. ОсновныеНачисленияОрганизаций. ПустаяСсылка (),0, Дата
(1,1,1), Дата (1,1,1)));
КонецПроцедуры
Процедура ВыработкаПередНачаломИзменения (Элемент, Отказ)
Если Элемент. ТекущаяКолонка. Имя = "Вступление" Тогда
// проверим, выбран ли механизм
Если Элемент. ТекущаяСтрока. Механизм. Пустая () Тогда
Отказ = истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ВыработкаМеханизмПриИзменении (Элемент)
Если ЧислоСтрок (Элемент. Значение, ОсновнойВступление, ЭлементыФормы.
Выработка. ТекущаяСтрока. Председатель) =0 Тогда
ЭлементыФормы. Выработка. ТекущаяСтрока. Вступление =
ОсновнойВступление;
ЭлементыФормы. Выработка. ТекущаяСтрока. Размер = ПолучитьРазмер
(ЭлементыФормы. Выработка. ТекущаяСтрока. Механизм, ЭлементыФормы. Выработка.
ТекущаяСтрока. Вступление);
Пересчет (ЭлементыФормы. Выработка. ТекущаяСтрока);
Иначе
ЭлементыФормы. Выработка. ТекущаяСтрока. Вступление =
ПустойВступление;
КонецЕсли;
85
ОбработкаИзмененияВидаОплаты (ЭлементыФормы. Выработка.
ТекущаяСтрока);
КонецПроцедуры
Процедура ВыработкаПередОкончаниемРедактирования (Элемент,
НоваяСтрока, ОтменаРедактирования, Отказ)
Если не ОтменаРедактирования Тогда
ТекСтрока = Элемент. ТекущаяСтрока;
ТекКолонка = Элемент. ТекущаяКолонка;
Если ЧислоСтрок (ТекСтрока. Механизм, ТекСтрока. Вступление,
ТекСтрока. Председатель) >1 Тогда
Сообщить ("В строке " + ТекСтрока. НомерСтроки + " дублируется
комбинация ключевых полей!");
ТекСтрока. Вступление = ПустойВступление;
Отказ = истина;
Возврат;
КонецЕсли;
Если ТекСтрока. Вступление <> ОсновнойВступление Тогда
Если ЧислоСтрок (ТекСтрока. Механизм, ОсновнойВступление, ТекСтрока.
Председатель) =0 Тогда
Сообщить ("У Председательа " + ТекСтрока. Председатель + " на
механизме " + ТекСтрока. Механизм + " данные не введены!");
ТекСтрока. Вступление = ПустойВступление;
Отказ = истина;
Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ВыработкаПриНачалеРедактирования (Элемент, НоваяСтрока,
Копирование)
ТекСтрока = Элемент. ТекущаяСтрока;
Если Копирование Тогда
ТекКолонка = Элемент. ТекущаяКолонка;
ТекСтрока. Вступление = ПустойВступление;
КонецЕсли;
Если НоваяСтрока Тогда
ТекСтрока. Авторасчет = Истина;
КонецЕсли;
КонецПроцедуры
Процедура КоманднаяПанель1Рассчитать (Кнопка)
Если не РаботаСДиалогами. ЗаписатьДокументПередВыполнениемДействия
(ЭтотОбъект, ЭтаФорма, "Записать данные?") Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос. Текст = "ВЫБРАТЬ
Запрос. УстановитьПараметр ("Основной", ОсновнойВступление);
Запрос. УстановитьПараметр ("ДатаДок", Дата);
Запрос. УстановитьПараметр ("Ссылка", Ссылка);
ТабРезультат = Запрос. Выполнить (). Выгрузить ();
Для каждого СтрТЧ Из Выработка Цикл
СтрТаб = ТабРезультат. Найти (СтрТЧ. НомерСтроки, "НомерСтроки");
Если СтрТаб <> Неопределено Тогда
СтрТЧ. Результат = СтрТаб. Результат;
СтрТЧ. Размер = СтрТаб. Размер;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ВыработкаРезультатПриИзменении (Элемент)
ЭлементыФормы. Выработка. ТекущаяСтрока. Авторасчет = Ложь;
КонецПроцедуры
Процедура ВыработкаВыработкаПриИзменении (Элемент)
Пересчет (ЭлементыФормы. Выработка. ТекущаяСтрока);
КонецПроцедуры
86
Процедура ВыработкаВступлениеНачалоВыбора (Элемент,
СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ТекСтрока = ЭлементыФормы. Выработка. ТекущаяСтрока;
СписокВидов = ПолучитьДоступныеВиды (ТекСтрока. Механизм);
ЭлементСписка = ВыбратьИзСписка (Элемент, СписокВидов. НайтиПоЗначению
(Элемент. Значение));
Если ЭлементСписка <> Неопределено Тогда
Элемент. Значение = ЭлементСписка. Значение;
ТекСтрока. Размер = ПолучитьРазмер (ТекСтрока. Механизм, Элемент.
Значение);
Пересчет (ТекстСтрока);
КонецЕсли;
КонецПроцедуры
ОсновнойВступление= Справочники. лс_Пользователи. Данные;
ПустойВступление= Справочники. лс_Пользователи. ПустаяСсылка ();
Листинг модуля документа "Голосование"
// ПЕРЕМЕННЫЕ МОДУЛЯ
Перем мТекущаяДатаДокумента;
Перем мДеревоМакетов; // Хранит дерево макетов печатных форм
Перем мПодменюПечати; // Хранит элемент управления подменю печати
Перем мПечатьПоУмолчанию; // Хранит элемент управления кнопку печать
по умолчанию
Перем мКнопкиЗаполненияТЧ; // Хранит дерево кнопок подменю заполнение
ТЧ
Перем мСтарыйРезультат; // Хранит "Результат" текущей строки
Перем мСтароеФизлицо; // Хранит ссылку на физлицо, для формирования
имени кнопки расчета по работнику
Перем мЕдиничнаяОрганизация; // Хранит ссылку на головную организацию
Перем мМассивЭУ; // Массив ЭУ видимостью которых необходимо управлять
в зависимости от учетной политики по персоналу
Перем ПоправочныйКоэффициент;
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ
Процедура ПриСменеПериодаРегистрации ()
ДатаНачалаБП = НачалоМесяца (ПериодРегистрации);
ДатаОкончанияБП = КонецМесяца (ПериодРегистрации);
КонецПроцедуры
Функция ПолучитьПремиюВсего ()
Рез = 0;
Для каждого СтрТаб Из Начисления Цикл
ПромРез =? (СтрТаб. База<>0, СтрТаб. База, СтрТаб. Результат);
Рез = Рез + ПромРез*СтрТаб. КТУ;
КонецЦикла;
ВозвратРез;
КонецФункции
// Процедура устанавливает подменю "Заполнить" в командных панелях ТЧ
документа при необходимости
Процедура УстановитьКнопкиПодменюЗаполненияТЧ ()
СоответствиеТЧ = Новый Соответствие;
СоответствиеТЧ. Вставить (ЭлементыФормы. Начисления, ЭлементыФормы.
КоманднаяПанельНачисления);
мКнопкиЗаполненияТЧ = РаботаСДиалогами.
СформироватьПодменюЗаполненияТЧ (Ссылка, СоответствиеТЧ, Новый Действие
("НажатиеНаДополнительнуюКнопкуЗаполненияТЧ"));
КонецПроцедуры // УстановитьКнопкиПодменюЗаполненияТЧ ()
// Процедура устанавливает подменю "Печать" и кнопку "Печать по
умолчанию" при необходимости
Процедура УстановитьКнопкиПечати ()
мДеревоМакетов = РаботаСДиалогами. ПолучитьДеревоМакетовПечати
(Ссылка, ПолучитьСтруктуруПечатныхФорм (), Новый Действие
("ОсновныеДействияФормыПечать"), Новый Действие
("ОсновныеДействияФормыУстановитьПечатьПоУмолчанию"));