92
Т = 1/0,605 = 1,65 (20 месяцев).
Результаты расчета экономической эффективности проекта - годовая
экономия 72291,43 руб.
93
Заключение
В результате работы над проектом была проанализирована
необходимость автоматизации процедуры учета персонала на предприятии и
сделан вывод о необходимости разработки АИС, выполняющей такую
автоматизацию.
Для решения задачи было принято решение разработать и реализовать
АИС учета персонала, решающую широкий спектр задач кадрового учета.
Разработка такой АИС позволит вывести учет персонала на новый
качественный уровень, позволит решать задачи, ранее недостижимые.
В качестве системы разработки АИС была выбрана платформа
«1С:Предпритие 8.1». Такой выбор обусловлен гибкостью технологической
платформы, являющейся ее базой, большим набором возможностей,
предоставляемых ею для решения самого широкого спектра задач. Таким
образом разрабатываемая АИС учета персонала будет являться
конфигурацией для платформы «1С:Предприятие 8.1».
Разработанная АИС в системе «1С:Предприятие 8.1» представляет из
себя развитую систему учета персонала предприятия, позволять вести все
необходимые данные о сотрудниках, вести документы кадрового учета и
получать отчетность.
В результате внедрения разработанной АИС в отделе кадров
привычный ход работы этого отдела, конечно же, изменился, но, несмотря на
сложности, связанные с изучением разработанной АИС, ее внедрение
подняло учет персонала предприятия на принципиально новый уровень,
предоставляя функции, ранее недоступные. Внедрение разработанной АИС
позволяет ожидать большого качественного скачка в ведении учета
персонала. За счет того, что работа сотрудников отдела кадров будет
значительно облегчена за счет автоматизации ведения справочной
информации, оформления документов кадрового учета и получения отчетов,
94
качество работы значительно улучшится. Разработанная АИС позволит
навести порядок в организации работы отдела кадров и каждого конкретного
сотрудника, разграничит сотрудников по полномочиям и выполняемым
функциям, выявит узкие места в организации деятельности отдела.
95
Список литературы
1. Цыганов А.М. Учет кадров и кадровая документация, М.: Феникс,
2009. – 160 стр.
2. Гусятникова Д.Е. Кадровый учет с нуля: Практическое пособие. М.:
ИТК Дашков и К, 2009. – 216 стр.
3. Барихин А.Б. Большой словарь-справочник кадровика. М.: Книжный
Мир, 2008. – 456 стр.
4. Захаркина О.И. Кадровая служба предприятия: делопроизводство,
документооборот и нормативная база. М.: Омега-Л, 2008. – 261 стр.
5. Рогожин М.Ю. Справочник инспектора по кадрам: от приема на работу
до увольнения (+ CD-ROM). СпБ.: Питер, 2009. – 240 стр
6. Семенихин В.В. Кадровый документооборот. Практическое
руководство. М.: Эксмо, 2009. – 384 стр.
7. Коновалова В. Г. Организация отбора и оценки персонала. Учебное
пособие. М.: Экзамен, 2009. – 62 стр.
8. Шувалова С.А. Кадровый подбор. М.: Феникс, 2008. – 350 стр.
9. Щур-Труханович Л.В. Кадровые приказы: составление по
унифицированным формам. М.: Финпресс, 2007. – 176 стр
10. Купер Д.А. Отбор и наем персонала: технологии тестирования и
оценки, М.: Вершина, 2007, - 336 стр.
11. Рогожин М.Ю. Трудовые книжки, М.: Альфа-Пресс, 2007, - 256 стр.
12. Орлова Л.А. Искусство подбора персонала: как правильно оценить
человека за час, М.: Харвест, 2006, - 192 стр.
13. Глик Д.И. Подбор торгового персонала, М.: Альфа-Пресс, 2007, - 216
стр.
14. Митичкин С.А. Разработка в системе 1С:Предприятие 8.0, - М.: ООО
«1С-Паблишинг», 2003. – 413 с.: ил.
96
15. Габец А.П., Гончаров Д.И., Козырев Д.В., Кухлевский Д.С., Радченко
М.Г. Профессиональная разработка в системе 1С:Предприятие 8 (+CD)
/ Под ред. Радченко М.Г. – М.: «1С-Паблишинг»; СПб.: Питер, 2007. –
808 с .:ил.
16. Радченко М.Г. 1С:Предприятие 8.1 Практическое пособие
разработчика
17. 1С:Предприятие 8.1 Описание встроенного языка часть 1, - Москва,
Фирма «1С», 2003
18. 1С:Предприятие 8.1 Описание встроенного языка часть 2, - Москва,
Фирма «1С», 2003
19. 1С:Предприятие 8.1 Конфигурирование и администрирование, -
Москва, Фирма «1С», 2003
97
ПРИЛОЖЕНИЕ
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
//
НаборЗаписей = РегистрыСведений.Сотрудники.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Регистратор.Установить(Ссылка);
НоваяЗапись = НаборЗаписей.Добавить();
Для Каждого ТекСтрока Из Сотрудники Цикл
НоваяЗапись.Регистратор = Ссылка;
НоваяЗапись.Период = Ссылка.Дата;
НоваяЗапись.Сотрудник = ТекСтрока.ФизЛицо;
НоваяЗапись.Оклад = ТекСтрока.Оклад;
НоваяЗапись.ПодразделениеСотрудника = ТекСтрока.Подразделение;
НоваяЗапись.Отдел = ТекСтрока.Отдел;
НоваяЗапись.Состояние = Перечисление.СостоянияСотрудников.Активен;
КонецЦикла;
НаборЗаписей.Записать();
//
КонецПроцедуры
98
Процедура ОтчетСформировать(Кнопка)
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
Отчет(ТабДок, Дата1, Дата2, Неопределено);
КонецПроцедуры
Процедура Отчет(ТабДок, Дата1, Дата2, Причина) Экспорт
Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВЫБОР
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 1
| ТОГДА ""Январь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 2
| ТОГДА ""Февраль""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 3
| ТОГДА ""Март""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 4
| ТОГДА ""Апрель""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 5
| ТОГДА ""Май""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 6
| ТОГДА ""Июнь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 7
| ТОГДА ""Июль""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 8
| ТОГДА ""Август""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 9
| ТОГДА ""Сентябрь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) =
10
| ТОГДА ""Октябрь""
99
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) =
11
| ТОГДА ""Ноябрь""
| ИНАЧЕ ""Декабрь""
| КОНЕЦ КАК Месяц,
| РаботникиОрганизацийСрезПоследних.Должность КАК Должность,
| РаботникиОрганизацийСрезПоследних.Физлицо КАК Физлицо,
| СУММА(1) КАК Количество,
| РаботникиОрганизацийСрезПоследних.Период КАК ПриказДата,
| МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) КАК Поле1
|ИЗ
| РегистрСведений.РаботникиОрганизаций.СрезПоследних КАК
РаботникиОрганизацийСрезПоследних
|ГДЕ
| РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния =
&Причина
| И РаботникиОрганизацийСрезПоследних.Период МЕЖДУ &Дата1 И
&Дата2
|
|СГРУППИРОВАТЬ ПО
| РаботникиОрганизацийСрезПоследних.Должность,
| РаботникиОрганизацийСрезПоследних.Физлицо,
| ВЫБОР
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 1
| ТОГДА ""Январь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 2
| ТОГДА ""Февраль""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 3
| ТОГДА ""Март""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 4
| ТОГДА ""Апрель""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 5
| ТОГДА ""Май""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 6
100
| ТОГДА ""Июнь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 7
| ТОГДА ""Июль""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 8
| ТОГДА ""Август""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) = 9
| ТОГДА ""Сентябрь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) =
10
| ТОГДА ""Октябрь""
| КОГДА МЕСЯЦ(РаботникиОрганизацийСрезПоследних.Период) =
11
| ТОГДА ""Ноябрь""
| ИНАЧЕ ""Декабрь""
| КОНЕЦ,
| РаботникиОрганизацийСрезПоследних.Период
|
|УПОРЯДОЧИТЬ ПО
| Поле1
|ИТОГИ
| СУММА(Количество)
|ПО
| Месяц,
| Должность,
| Физлицо";
Запрос.УстановитьПараметр("Дата1", НачалоДня(Дата1));
Запрос.УстановитьПараметр("Дата2", КонецДня(Дата2));
Запрос.УстановитьПараметр("Причина",
Перечисления.ПричиныИзмененияСостояния.Увольнение);
Результат = Запрос.Выполнить();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
101
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьМесяц = Макет.ПолучитьОбласть("Месяц");
ОбластьДолжность = Макет.ПолучитьОбласть("Должность");
ОбластьФизлицо = Макет.ПолучитьОбласть("Физлицо");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаМесяц = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаМесяц.Следующий() Цикл
ОбластьМесяц.Параметры.Заполнить(ВыборкаМесяц);
ТабДок.Вывести(ОбластьМесяц, ВыборкаМесяц.Уровень());
ВыборкаДолжность =
ВыборкаМесяц.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаДолжность.Следующий() Цикл
ОбластьДолжность.Параметры.Заполнить(ВыборкаДолжность);
ТабДок.Вывести(ОбластьДолжность, ВыборкаДолжность.Уровень());
ВыборкаФизлицо =
ВыборкаДолжность.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаФизлицо.Следующий() Цикл
ОбластьФизлицо.Параметры.Заполнить(ВыборкаФизлицо);
// ТабДок.Вывести(ОбластьФизлицо,
ВыборкаФизлицо.Уровень());