Материал: Автоматизация процесса ведения информационной базы о должностях и вакансиях для ООО "Новоуренгойская буровая компания"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
137
Движение.Сумма = ТекСтрокаВычеты.Сумма;
КонецЦикла;
// регистр Регистр_рабочего_времени Расход
Движения.Регистр_рабочего_времени.Записывать = Истина;
Для Каждого ТекСтрокаВычеты Из Вычеты Цикл
Движение =
Движения.Регистр_рабочего_времени.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаВычеты.Сотрудник;
Движение.Сумма = ТекСтрокаВычеты.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Листинг 11 Документы - Зарплата - Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Зарплата Приход
Движения.Зарплата.Записывать = Истина;
Для Каждого ТекСтрокаЗарплата Из Зарплата_сотрудников Цикл
Движение = Движения.Зарплата.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаЗарплата.Сотрудник;
Движение.Сумма = ТекСтрокаЗарплата.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Зарплата_сотрудников.Количество();
138
Сумма = Зарплата_сотрудников.Итог("Сумма");
КонецПроцедуры
Листинг 12 Документы - Рабочее_время_сотрудника - Модуль объекта
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Учет_доступа_по_пропускам") Тогда
// Заполнение шапки
Сотрудник_оформил = ДанныеЗаполнения.Сотрудник;
Для Каждого ТекСтрокаРегистрация_сотрудников Из
ДанныеЗаполнения.Регистрация_сотрудников Цикл
НоваяСтрока = Отработанное_время.Добавить();
НоваяСтрока.Сотрудник =
ТекСтрокаРегистрация_сотрудников.Сотрудник;
НоваяСтрока.Часов =
ТекСтрокаРегистрация_сотрудников.Часов;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 13 Документы - Штатное_расписание - Модуль объекта
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Итого_единиц = Штатное_расписание_.Количество();
Бюджет = Штатное_расписание_.Итог("Сумма_оклада");
КонецПроцедуры
Листинг 14 Документы - Принятие работу - Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Регистр_кадрового_движения Приход
Движения.Регистр_кадрового_движения.Записывать = Истина;
139
Для Каждого ТекСтрокаСписок_сотрудников Из
Список_сотрудников Цикл
Движение =
Движения.Регистр_кадрового_движения.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
Движение.Оклад = ТекСтрокаСписок_сотрудников.Оклад;
Движение.Должность =
ТекСтрокаСписок_сотрудников.Должность;
Движение.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Вакансия")
Тогда
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Список_сотрудников.Количество();
Суммарный_оклад = Список_сотрудников.Итог("Оклад");
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
СтандартнаяОбработка)
140
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Принятие_на_работу") Тогда
Дата_оформления = ДанныеЗаполнения.Дата_оформления;
Количество_сотрудников =
ДанныеЗаполнения.Количество_сотрудников;
Сотрудник_ОК = ДанныеЗаполнения.Сотрудник_ОК;
Суммарный_оклад = ДанныеЗаполнения.Суммарный_оклад;
Для Каждого ТекСтрокаСписок_сотрудников Из
ДанныеЗаполнения.Список_сотрудников Цикл
НоваяСтрока = Список_сотрудников.Добавить();
НоваяСтрока.Должность =
ТекСтрокаСписок_сотрудников.Должность;
НоваяСтрока.Оклад =
ТекСтрокаСписок_сотрудников.Оклад;
НоваяСтрока.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
НоваяСтрока.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Листинг 15 Документы - Увольнение_с_работы - Модуль объекта
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Количество_сотрудников = Список_сотрудников.Количество();
Суммарный_оклад = Список_сотрудников.Итог("Оклад");
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.Принятие_на_работу") Тогда
141
// Заполнение шапки
Дата_оформления = ДанныеЗаполнения.Дата_оформления;
Количество_сотрудников =
ДанныеЗаполнения.Количество_сотрудников;
Сотрудник_ОК = ДанныеЗаполнения.Сотрудник_ОК;
Суммарный_оклад = ДанныеЗаполнения.Суммарный_оклад;
Для Каждого ТекСтрокаСписок_сотрудников Из
ДанныеЗаполнения.Список_сотрудников Цикл
НоваяСтрока = Список_сотрудников.Добавить();
НоваяСтрока.Должность =
ТекСтрокаСписок_сотрудников.Должность;
НоваяСтрока.Оклад = ТекСтрокаСписок_сотрудников.Оклад;
НоваяСтрока.Подразделение =
ТекСтрокаСписок_сотрудников.Подразделение;
НоваяСтрока.Сотрудник =
ТекСтрокаСписок_сотрудников.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр Регистр_кадрового_движения Расход
Движения.Регистр_кадрового_движения.Записывать = Истина;
Для Каждого ТекСтрокаСписок_сотрудников Из Список_сотрудников
Цикл
Движение = Движения.Регистр_кадрового_движения.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСписок_сотрудников.Сотрудник;
Источник: https://baza.diplomsite.ru/previewfile/2059

Смотрите также:

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления