Добавлен: 24.04.2023
Просмотров: 284
Скачиваний: 2
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.2. Характеристика документооборота, возникающего при решении задачи
1.3. Обоснование проектных решений по информационному обеспечению
2.2. Характеристика разработанных экранных форм документов в среде 1С:Предприятие
2.2.2. Описание разработанных форм отчетов, необходимых для отражения результатов решения задачи
2.5. Описание разработанных подсистем в среде 1С:Предприятие
2.7. Контрольный пример реализации проекта в среде 1С:Предприятие и его описание
Приложение
Исходный код модулей системы.
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
ТекущаяДата = НачалоГода(Дата);
КонецГода = КонецГода(Дата);
Движения.ГрафикРаботы.Записывать = Истина;
Пока ТекущаяДата <= КонецГода Цикл
Движение = Движения.ГрафикРаботы.Добавить();
Движение.Дата = ТекущаяДата;
ДеньНедели = ДеньНедели(ТекущаяДата);
Если ДеньНедели <= 5 Тогда
Движение.РабочийДень = 1;
Иначе
Движение.РабочийДень = 0;
КонецЕсли;
ТекущаяДата = ТекущаяДата + 24 * 3600;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр РегистрНачисленияЗП
Движения.РегистрНачисленияЗП.Записывать = Истина;
Движение = Движения.РегистрНачисленияЗП.Добавить();
Движение.Сторно = Ложь;
Движение.ВидРасчета = ПланыВидовРасчета.Начисления.Оклад;
Движение.ПериодДействияНачало = НачалоМесяца(Дата);
Движение.ПериодДействияКонец = КонецМесяца(Дата);
Движение.ПериодРегистрации = Дата;
Движение.Сотрудник = Сотрудник;
Движение.РасчетныеДанные = ДневнойТариф;
Движения.Записать();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РегистрНачисленияЗПДанныеГрафика.РасчетныеДанные КАК РасчетныеДанные,
| РегистрНачисленияЗПДанныеГрафика.РабочийДеньФактическийПериодДействия КАК Факт
|ИЗ
| РегистрРасчета.РегистрНачисленияЗП.ДанныеГрафика(Регистратор = &Ссылка) КАК РегистрНачисленияЗПДанныеГрафика";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
Движение.Сумма = ВыборкаДетальныеЗаписи.РасчетныеДанные * ВыборкаДетальныеЗаписи.Факт;
КонецЕсли;
Движения.РегистрНачисленияЗП.Записать();
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр РегистрНачисленияЗП
Движения.РегистрНачисленияЗП.Записывать = Истина;
Движение = Движения.РегистрНачисленияЗП.Добавить();
Движение.Сторно = Ложь;
Движение.ВидРасчета = ПланыВидовРасчета.Начисления.Невыход;
Движение.ПериодДействияНачало = ДатаНачала;
Движение.ПериодДействияКонец = КонецДня(ДатаОкончания);
Движение.ПериодРегистрации = Дата;
Движение.Сотрудник = Сотрудник;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр РегистрНачисленияЗП
Движения.РегистрНачисленияЗП.Записывать = Истина;
Для Каждого ТекСтрокаСотрудники Из Сотрудники Цикл
Движение = Движения.РегистрНачисленияЗП.Добавить();
Движение.Сторно = Ложь;
Движение.ВидРасчета = ПланыВидовРасчета.Начисления.ПремияСуммой;
Движение.ПериодДействияНачало = НачалоМесяца(Дата);
Движение.ПериодДействияКонец = КонецМесяца(Дата);
Движение.ПериодРегистрации = Дата;
Движение.Сотрудник = ТекСтрокаСотрудники.Сотрудник;
Движение.Сумма = ТекСтрокаСотрудники.СуммаПремии;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр РегистрНачисленияЗП
Движения.РегистрНачисленияЗП.Записывать = Истина;
Движение = Движения.РегистрНачисленияЗП.Добавить();
Движение.Сторно = Ложь;
Движение.ВидРасчета = ПланыВидовРасчета.Начисления.Оклад;
Движение.ПериодДействияНачало = НачалоМесяца(Дата);
Движение.ПериодДействияКонец = КонецМесяца(Дата);
Движение.ПериодРегистрации = Дата;
Движение.Сотрудник = Сотрудник;
Движение.РасчетныеДанные = ДневнойТариф;
Движения.Записать();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РегистрНачисленияЗПДанныеГрафика.РасчетныеДанные КАК РасчетныеДанные,
| РегистрНачисленияЗПДанныеГрафика.РабочийДеньФактическийПериодДействия КАК Факт
|ИЗ
| РегистрРасчета.РегистрНачисленияЗП.ДанныеГрафика(Регистратор = &Ссылка) КАК РегистрНачисленияЗПДанныеГрафика";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
Движение.Сумма = ВыборкаДетальныеЗаписи.РасчетныеДанные * ВыборкаДетальныеЗаписи.Факт;
КонецЕсли;
Движения.РегистрНачисленияЗП.Записать();
КонецПроцедуры
-
Верна, В.В. Управление персоналом организации как основополагающий фактор ее устойчивого развития / В.В. Верна // Успехи современной науки. – 2017. – Т. 3. – № 1. – С. 171-173 ↑
-
Мельничук Ю.А. Геймификация как способ управления персоналом / Ю.А Мельничук // Материалы Афанасьевских чтений. – 2016. – №1(14). – С. 135-139. ↑
-
Габец А.П., Гончаров Д.И., Козырев Д.В., Кухлевский Д.С., Радченко М.Г. Профессиональная разработка в системе 1С: Предприятие 8 (+CD) / Под ред. Радченко М.Г. – М.: «1С-Паблишинг»; СПб.: Питер, 2017-С.5 ↑
-
Габец А.П., Гончаров Д.И., Козырев Д.В., Кухлевский Д.С., Радченко М.Г. Профессиональная разработка в системе 1С: Предприятие 8 (+CD) / Под ред. Радченко М.Г. – М.: «1С-Паблишинг»; СПб.: Питер, 2017-С.10 ↑
-
Радченко М.Г. 1С: Предприятие 8.3 Практическое пособие разработчика 1С: Предприятие 8.3 Описание встроенного языка часть 1, - Москва, Фирма «1С», 2013-С.28 ↑
-
Грекул В.И. Проектирование информационных систем. – М.: Интуит, 2018-С.24 ↑
-
1С: Предприятие 8.3 Описание встроенного языка часть 2, - Москва, Фирма «1С», 2013 ↑
-
Глинских А. Современные автоматизированные системы управления персоналом/ А. Глинских: [Электронный ресурс]. – Режим доступа к ресурсу: http://www.mnogosmenka.ru/drugoe/personal.htm. 5. Дорожная карта по системам управления персоналом (HRMS) [Электронный ресурс]. – Режим доступа к ресурсу: http://www.bscconsulting.ru/advantages/hrms_boss_kadrovik/hrms_roadmap ↑
-
Кучина В.А. Перспективы развития автоматизированных систем управления персоналом организации / Новая наука: Теоретический и практический взгляд. 2016. № 6-1 (87). С. 173-176 ↑
-
Игнатов П.В. Применение технологий "1С" для построения и автоматизации системы оценки компетенций персонала / В сборнике: Новые информационные технологии в образовании: применение технологий "1С" для развития компетенций цифровой экономики Сборник научных трудов 18-й международной научно-практической конференции. Под редакцией Чистова Д.В. 2018. С. 272-274. ↑
-
Информационные технологии в управлении персоналом. Учебник и практикум / Ю.Д. Романова и др. - М.: Юрайт, 2015. – С.29 ↑
-
Сапков, В. В. Информационные технологии и компьютеризация делопроизводства / В.В. Сапков. - М.: Академия, 2017. – С.28 ↑
-
1С: Предприятие 8.3 Конфигурирование и администрирование, - Москва, Фирма «1С», 2013 ↑
-
Уткин, В. Б. Информационные системы в экономике / В.Б. Уткин, К.В. Балдин. - М.: Academia, 2018. – С.30 ↑
-
Черников, Б. В. Информационные технологии управления / Б.В. Черников. - М.: Инфра-М, Форум, 2017. –С.36 ↑