127
25. Должностная инструкция начальника отдела кадров ООО «НУБК»
[Рукопись]. – Новый Уренгой: ООО «НУБК», 2017. – 10 с.
26. Должностная инструкция начальника отдела технической
поддержки ООО «НУБК» [Рукопись]. – Новый Уренгой.: ООО «НУБК», 2018. –
7 с.
27. Должностная инструкция специалиста отдела кадров ООО «НУБК»
[Рукопись]. – Новый Уренгой: ООО «НУБК», 2016. – 10 с.
28. Устав ООО «НУБК» [Рукопись]. – Новый Уренгой: ООО «НУБК»,
2019. – 25 с.
29. Антонов В.Ф. Методы и средства проектирования информационных
систем [Электронный ресурс] : учебное пособие / В.Ф. Антонов, А.А.
Москвитин. — Электрон. текстовые данные. — Ставрополь: Северо-Кавказский
федеральный университет, 2016. — 342 c. — 2227-8397. — Режим доступа:
http://www.iprbookshop.ru/66080.html (дата обращения: 25.10.2019).
30. Грекул В.И. Проектирование информационных систем. Курс лекций
[Электронный ресурс]: учебное пособиеnдля студентов вузов, обучающихся по
специальностям в области информационных технологий / В.И. Грекул, Г.Н.
Денищенко, Н.Л. Коровкина. — Электрон. текстовые данные. — Москва,
Саратов: Интернет-Университет Информационных Технологий (ИНТУИТ),
Вузовское образование, 2017. — 303 c. — 978-5-4487-0089-7. — Режим доступа:
http://www.iprbookshop.ru/67376.html (дата обращения: 25.05.2019).
31. Митина О.А. Методы и средства проектирования информационных
систем и технологий [Электронный ресурс]: курс лекций / О.А. Митина. —
Электрон. текстовые данные. — М.: Московская государственная академия
водного транспорта, 2016. — 75 c. — 2227-8397. — Режим доступа:
http://www.iprbookshop.ru/65666.html (дата обращения: 30.10.2019).
32. Платформа «1С: Предприятие» как средство разработки бизнес-
приложений. URL: http://v8.1c.ru/news/publication.jsp?id=193 (дата обращения:
22.10.2019).
33. Фирма 1С [Электронный ресурс]/ Режим доступа: http://www.1c.ru/
свободный. – Загл.с экрана (дата обращения: 21.11.2019).
128
Приложение 1
Таблица П1.1
Структура реквизитов справочника сотрудники
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Табельный номер
Табельный
номер
Число
5
Ключевое поле
ФИО
ФИО
Символьный
80
Должность
Должность
Символьный
50
Подразделение
Подразделение
Символьный
50
Таблица П1.2
Структура реквизитов справочника должность
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код должности
Код должности
Число
5
Ключевое поле
Название
Название
Символьный
80
Часовая ставка
Часовая ставка
Число
5
Оклад
Оклад
Число
5
Таблица П1.3
Структура реквизитов справочника подразделения
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код подразделения
Код
подразделения
Число
5
Ключевое поле
Подразделение
Подразделение
Символьный
80
129
Таблица П1.4
Структура реквизитов справочника часовая ставка
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код ставки
Код ставки
Число
5
Ключевое поле
Наименование
Наименование
Символьный
50
Ставка
Ставка
Число
5
Таблица П1.5
Структура реквизитов справочника основания
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код основания
Код основания
Число
5
Ключевое поле
Основание
Основание
Символьный
5
Таблица П1.6
Структура реквизитов результатной информации вычеты
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код_вычета
Код_вычета
Число
5
Ключевое поле
Период
Период
Дата
10
Сотрудник
Сотрудник
Символьный
80
Сумма
Сумма
Числовой
5
Таблица П1.7
Структура реквизитов результатной информации табель
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Табельный номер
Табельный номер
Число
10
Ключевое поле
Период
Период
Дата
10
Количество
отработанных
часов
Количество
отработанных
часов
Число
5
130
Таблица П1.8
Структура таблицы «График_работы»
Атрибут
Тип данных
Первичный ключ
Внешний ключ
Код_графика
Long Integer
Есть
Нет
Дата
Date
Сотрудник
Long Integer
Таблица П1.9
Структура таблицы «Учет_доступа»
Атрибут
Тип данных
Первичный ключ
Внешний ключ
Код_доступа
Long Integer
Есть
Нет
Дата_доступа
Date/Time
Нет
Нет
Часов
Long Integer
Нет
Нет
Табельный_номер
Long Integer
Нет
Есть
Время_входаа
Date/Time
Нет
Нет
Время_выхода
Date/Time
Нет
Нет
Таблица П1.10
Структура реквизитов результатной информации оплата по окладу
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код оплаты по
окладу
Код оплаты по
окладу
Число
10
Ключевое поле
Оплата за дни
Оплата за дни
Число
5
Сотрудник
Сотрудник
Число
5
Отработано дней
Отработано дней
Число
5
Таблица П1.14
Структура реквизитов справочника затраты рабочего времени
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код подразделения
Код подразделения
Число
5
Ключевое поле
Подразделение
Подразделение
Символьный
80
131
Таблица П1.11
Структура реквизитов результатной информации зарплата
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код зарплаты
Код зарплаты
Число
5
Ключевое поле
Период
Период
Дата
10
вычет
вычет
Число
5
Оклад
Оклад
Число
5
Премия
Премия
Число
5
Отработано дней
Отработано
Число
5
Сотрудник
Сотрудник
Символьное
80
Таблица П1.12
Структура реквизитов отчета по отработанному времени
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Дата
Дата
Дата
10
Ключевое поле
Должность
Должность
Символьный
50
Подразделение
Подразделение
Символьный
50
ФИО сотрудника
ФИО сотрудника
Символьный
80
Отработано дней
Отработано дней
Число
5
Отработано часов
Отработано час
Число
5
Сумма
Сумма
Число
10
Таблица П1.13
Структура реквизитов справочника Причина отсутствия
Наименование
поля
Идентификатор
Тип
Размер
Прочее
Код
подразделения
Код
подразделения
Число
5
Ключевое поле
Подразделение
Подразделение
Символьный
80
132
Приложение 2
Листинг 1 Общие модули – АктуальныйОклад
Функция АктуальныйОклад (АктуальнаяДата, ЭлементНоменклатуры)
Экспорт
// Создать вспомогательный объект Отбор
Отбор = Новый Структура("Должность", ЭлементНоменклатуры);
ЗначенияРесурсов =
РегистрыСведений.Регистр_должностных_окладов.ПолучитьПоследнее(Актуаль
наяДата, Отбор);
Возврат ЗначенияРесурсов.Оклад;
КонецФункции
Листинг 2 Документы - Оклад_за_отработанное_время -
ФормаДокумента
&НаКлиенте
Процедура ОкладПриИзменении(Элемент)
СтрокаОклад = Элементы.Оклад.ТекущиеДанные;
Если НЕ СтрокаОклад = Неопределено Тогда
СтрокаОклад.Отработано_дней = СтрокаОклад.Отработано_часов/8;
СтрокаОклад.Сумма =
СтрокаОклад.Отработано_часов*СтрокаОклад.Ставка;
КонецЕсли
КонецПроцедуры
Листинг 3 Документы - Зарплата - ФормаДокумента
Функция ПолучитьДолжностьПриИзменении(Структура)
Возврат Структура.Должность;
КонецФункции
&НаКлиенте
Процедура Зарплата_сотрудниковПриИзменении(Элемент)
133
СтрокаЗарплата_сотрудников =
Элементы.Зарплата_сотрудников.ТекущиеДанные;
СтрокаЗарплата_сотрудников.Должность =
ПолучитьДолжностьПриИзменении(СтрокаЗарплата_сотрудников.Сотрудник);
СтрокаЗарплата_сотрудников.Оклад =
АктуальныйОклад.АктуальныйОклад(Объект.Дата,
СтрокаЗарплата_сотрудников.Должность);
Если НЕ СтрокаЗарплата_сотрудников = Неопределено Тогда
СтрокаЗарплата_сотрудников.Сумма =
СтрокаЗарплата_сотрудников.Оклад - СтрокаЗарплата_сотрудников.Вычет +
СтрокаЗарплата_сотрудников.Премия;
КонецЕсли;
КонецПроцедуры
Листинг 4 Документы - Учет_доступа_по_пропускам -
ФормаДокумента
&НаКлиенте
Процедура Регистрация_сотрудниковПриИзменении(Элемент)
СтрокаРегистрация_сотрудников =
Элементы.Регистрация_сотрудников.ТекущиеДанные;
Если НЕ СтрокаРегистрация_сотрудников = Неопределено Тогда
СтрокаРегистрация_сотрудников.Часов =
Час(СтрокаРегистрация_сотрудников.Время_выхода)-
Час(СтрокаРегистрация_сотрудников.Время_входа);
КонецЕсли
КонецПроцедуры
Листинг 5 Документы - Штатное_расписание - ФормаДокумента
&НаКлиенте
Процедура Штатное_расписание_ПриИзменении(Элемент)
СтрокаШтатное_расписание_ =
Элементы.Штатное_расписание_.ТекущиеДанные;
134
СтрокаШтатное_расписание_.Оклад =
АктуальныйОклад.АктуальныйОклад(Объект.Дата,
СтрокаШтатное_расписание_.Должность);
Если НЕ СтрокаШтатное_расписание_ = Неопределено Тогда
СтрокаШтатное_расписание_.Сумма_оклада =
СтрокаШтатное_расписание_.Количество*СтрокаШтатное_расписание_.Оклад;
КонецЕсли;
КонецПроцедуры
Листинг 6 Документы - Принятие_на_работу - ФормаДокумента
&НаКлиенте
Процедура Список_сотрудниковПриИзменении(Элемент)
СтрокаСписок_сотрудников =
Элементы.Список_сотрудников.ТекущиеДанные;
СтрокаСписок_сотрудников.Оклад =
АктуальныйОклад.АктуальныйОклад(Объект.Дата,
СтрокаСписок_сотрудников.Должность);
КонецПроцедуры
Листинг 7 Документы - Увольнение_с_работы - ФормаДокумента
&НаКлиенте
Процедура Список_сотрудниковПриИзменении(Элемент)
СтрокаСписок_сотрудников =
Элементы.Список_сотрудников.ТекущиеДанные;
СтрокаСписок_сотрудников.Оклад =
АктуальныйОклад.АктуальныйОклад(Объект.Дата,
СтрокаСписок_сотрудников.Должность);
КонецПроцедуры
Листинг 8 Документы - Табель - Модуль объекта
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
135
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Рабочее_время_сотрудника") Тогда
// Заполнение шапки
Сотрудник_оформил =
ДанныеЗаполнения.Сотрудник_оформил;
Для Каждого ТекСтрокаОтработанное_время Из
ДанныеЗаполнения.Отработанное_время Цикл
НоваяСтрока = Табель.Добавить();
НоваяСтрока.Сотрудник =
ТекСтрокаОтработанное_время.Сотрудник;
НоваяСтрока.Отработано_часов =
ТекСтрокаОтработанное_время.Часов;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 9 Документы - Оклад_за_отработанное_время - Модуль
объекта
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Регистр_рабочего_времени.Записывать = Истина;
Для Каждого ТекСтрокаОклад Из Оклад Цикл
Движение =
Движения.Регистр_рабочего_времени.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаОклад.Сотрудник;
Движение.Отработано_часов =
ТекСтрокаОклад.Отработано_часов;
Движение.Отработано_дней =
ТекСтрокаОклад.Отработано_дней;
Движение.Сумма = ТекСтрокаОклад.Сумма;
136
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Табель") Тогда
// Заполнение шапки
Период = ДанныеЗаполнения.Период;
Сотрудник_оформил =
ДанныеЗаполнения.Сотрудник_оформил;
Для Каждого ТекСтрокаТабель Из ДанныеЗаполнения.Табель
Цикл
НоваяСтрока = Оклад.Добавить();
НоваяСтрока.Отработано_часов =
ТекСтрокаТабель.Отработано_часов;
НоваяСтрока.Сотрудник =
ТекСтрокаТабель.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 10 Документы - Вычеты - Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Регистр_премии_вычетов Расход
Движения.Регистр_премии_вычетов.Записывать = Истина;
Для Каждого ТекСтрокаВычеты Из Вычеты Цикл
Движение = Движения.Регистр_премии_вычетов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаВычеты.Сотрудник;