137
Движение.Сумма = ТекСтрокаВычеты.Сумма;
КонецЦикла;
// регистр Регистр_рабочего_времени Расход
Движения.Регистр_рабочего_времени.Записывать = Истина;
Для Каждого ТекСтрокаВычеты Из Вычеты Цикл
Движение =
Движения.Регистр_рабочего_времени.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаВычеты.Сотрудник;
Движение.Сумма = ТекСтрокаВычеты.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Листинг 11 Документы - Зарплата - Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Зарплата Приход
Движения.Зарплата.Записывать = Истина;
Для Каждого ТекСтрокаЗарплата Из Зарплата_сотрудников Цикл
Движение = Движения.Зарплата.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаЗарплата.Сотрудник;
Движение.Сумма = ТекСтрокаЗарплата.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Зарплата_сотрудников.Количество();
138
Сумма = Зарплата_сотрудников.Итог("Сумма");
КонецПроцедуры
Листинг 12 Документы - Рабочее_время_сотрудника - Модуль объекта
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Учет_доступа_по_пропускам") Тогда
// Заполнение шапки
Сотрудник_оформил = ДанныеЗаполнения.Сотрудник;
Для Каждого ТекСтрокаРегистрация_сотрудников Из
ДанныеЗаполнения.Регистрация_сотрудников Цикл
НоваяСтрока = Отработанное_время.Добавить();
НоваяСтрока.Сотрудник =
ТекСтрокаРегистрация_сотрудников.Сотрудник;
НоваяСтрока.Часов =
ТекСтрокаРегистрация_сотрудников.Часов;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 13 Документы - Штатное_расписание - Модуль объекта
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Итого_единиц = Штатное_расписание_.Количество();
Бюджет = Штатное_расписание_.Итог("Сумма_оклада");
КонецПроцедуры
Листинг 14 Документы - Принятие работу - Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Регистр_кадрового_движения Приход
Движения.Регистр_кадрового_движения.Записывать = Истина;
139
Для Каждого ТекСтрокаСписок_сотрудников Из
Список_сотрудников Цикл
Движение =
Движения.Регистр_кадрового_движения.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
Движение.Оклад = ТекСтрокаСписок_сотрудников.Оклад;
Движение.Должность =
ТекСтрокаСписок_сотрудников.Должность;
Движение.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Вакансия")
Тогда
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Список_сотрудников.Количество();
Суммарный_оклад = Список_сотрудников.Итог("Оклад");
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
140
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Принятие_на_работу") Тогда
Дата_оформления = ДанныеЗаполнения.Дата_оформления;
Количество_сотрудников =
ДанныеЗаполнения.Количество_сотрудников;
Сотрудник_ОК = ДанныеЗаполнения.Сотрудник_ОК;
Суммарный_оклад = ДанныеЗаполнения.Суммарный_оклад;
Для Каждого ТекСтрокаСписок_сотрудников Из
ДанныеЗаполнения.Список_сотрудников Цикл
НоваяСтрока = Список_сотрудников.Добавить();
НоваяСтрока.Должность =
ТекСтрокаСписок_сотрудников.Должность;
НоваяСтрока.Оклад =
ТекСтрокаСписок_сотрудников.Оклад;
НоваяСтрока.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
НоваяСтрока.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 15 Документы - Увольнение_с_работы - Модуль объекта
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Список_сотрудников.Количество();
Суммарный_оклад = Список_сотрудников.Итог("Оклад");
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Принятие_на_работу") Тогда
141
// Заполнение шапки
Дата_оформления = ДанныеЗаполнения.Дата_оформления;
Количество_сотрудников =
ДанныеЗаполнения.Количество_сотрудников;
Сотрудник_ОК = ДанныеЗаполнения.Сотрудник_ОК;
Суммарный_оклад = ДанныеЗаполнения.Суммарный_оклад;
Для Каждого ТекСтрокаСписок_сотрудников Из
ДанныеЗаполнения.Список_сотрудников Цикл
НоваяСтрока = Список_сотрудников.Добавить();
НоваяСтрока.Должность =
ТекСтрокаСписок_сотрудников.Должность;
НоваяСтрока.Оклад = ТекСтрокаСписок_сотрудников.Оклад;
НоваяСтрока.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
НоваяСтрока.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Регистр_кадрового_движения Расход
Движения.Регистр_кадрового_движения.Записывать = Истина;
Для Каждого ТекСтрокаСписок_сотрудников Из Список_сотрудников
Цикл
Движение = Движения.Регистр_кадрового_движения.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСписок_сотрудников.Сотрудник;
142
Движение.Оклад = ТекСтрокаСписок_сотрудников.Оклад;
Движение.Должность = ТекСтрокаСписок_сотрудников.Должность;
Движение.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
КонецЦикла;
КонецПроцедуры
Листинг 16 Документы - Вакансия - Модуль объекта
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Оклад = АктуальныйОклад.АктуальныйОклад(Дата, Должность);
КонецПроцедуры
143
Приложение 3
Рис. П3.1 Создание записи сотрудника на основании соискателя
Рис. П3.2 Подсистема «Кадровый учет»
144
Рис. П3.3 Документ «Заявление»
Рис. П3.4 Документ «Принятие на работу»
145
Рис. П3.5 Документ «Оклад за отработанное время»
Рис. П3.6 Документ «Увольнение с работы»
146
Рис. П3.7 Подсистема «График работы»
Рис. П3.8 Документ «График работы