Дипломная работа: Автоматизация учёта труда и заработной платы на малом предприятии на базе системы "1С Предприятие 8.2" для ООО "Мегамастер"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
87
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ОборотЗаработнойПлаты.Записывать = Истина;
Для Каждого ТекСтрокаСписокСотрудников Из СписокСотрудников Цикл
Движение = Движения.ОборотЗаработнойПлаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСписокСотрудников.Сотрудник;
Движение.КВыплате = ТекСтрокаСписокСотрудников.Начислено;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ОборотЗаработнойПлаты.Записывать = Истина;
Движение = Движения.ОборотЗаработнойПлаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.КВыплате = Сумма;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.КадровыйУчёт.Записывать = Истина;
Движение = Движения.КадровыйУчёт.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
88
Движение.Должность = Должность;
Движение.Подразделение = Подразделение;
Движение.Уволен = Ложь;
Движения.ТарифныеСтавки.Записывать = Истина;
Движение = Движения.ТарифныеСтавки.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.ТарифнаяСтавка = ТарифнаяСтавка;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.КадровыйУчёт.Записывать = Истина;
Движение = Движения.КадровыйУчёт.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.Должность = Должность;
Движение.Подразделение = Подразделение;
Движение.Уволен = Ложь;
Движения.ТарифныеСтавки.Записывать = Истина;
Движение = Движения.ТарифныеСтавки.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.ТарифнаяСтавка = ТарифнаяСтавка;
КонецПроцедуры
89
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.КадровыйУчёт.Записывать = Истина;
Движение = Движения.КадровыйУчёт.Добавить();
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
//Движение.Должность = Должность;
//Движение.Подразделение = Подразделение;
Движение.Уволен = Истина;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.УчётРабочегоВемени.Записывать = Истина;
Для Каждого ТекСтрокаТабель Из Табель Цикл
Движение = Движения.УчётРабочегоВемени.Добавить();
Движение.Период = ТекСтрокаТабель.Дата;
Движение.Сотрудник = Сотрудник;
Движение.Время = ТекСтрокаТабель.Часы;
Движение.График = График;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ОборотЗаработнойПлаты.Записывать = Истина;
Для Каждого ТекСтрокаСписокСотрудников Из СписокСотрудников Цикл
Движение = Движения.ОборотЗаработнойПлаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
90
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаСписокСотрудников.Сотрудник;
Движение.КВыплате = ТекСтрокаСписокСотрудников.Начислено;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.ОборотЗаработнойПлаты.Записывать = Истина;
Движение = Движения.ОборотЗаработнойПлаты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.КВыплате = Сумма;
КонецПроцедуры
ВЫБРАТЬ
КадровыйУчётСрезПоследних.Сотрудник,
КадровыйУчётСрезПоследних.Должность,
КадровыйУчётСрезПоследних.Подразделение,
КадровыйУчётСрезПоследних.Должность.ВидТарифнойСтавки
ИЗ
РегистрСведений.КадровыйУчёт.СрезПоследних КАК
КадровыйУчётСрезПоследних
СГРУППИРОВАТЬ ПО
КадровыйУчётСрезПоследних.Сотрудник,
КадровыйУчётСрезПоследних.Должность,
91
КадровыйУчётСрезПоследних.Подразделение,
КадровыйУчётСрезПоследних.Должность.ВидТарифнойСтавки
ВЫБРАТЬ
УчётРабочегоВемениОбороты.Сотрудник,
УчётРабочегоВемениОбороты.График,
СУММА(УчётРабочегоВемениОбороты.ВремяОборот) КАК ВремяОборот
ИЗ
РегистрНакопления.УчётРабочегоВемени.Обороты КАК УчётРабочегоВемениОбороты
СГРУППИРОВАТЬ ПО
УчётРабочегоВемениОбороты.Сотрудник,
УчётРабочегоВемениОбороты.График
ВЫБРАТЬ
ОборотЗаработнойПлатыОстаткиИОбороты.Сотрудник,
ОборотЗаработнойПлатыОстаткиИОбороты.КВыплатеПриход,
ОборотЗаработнойПлатыОстаткиИОбороты.КВыплатеРасход,
ОборотЗаработнойПлатыОстаткиИОбороты.КВыплатеКонечныйОстаток
ИЗ
РегистрНакопления.ОборотЗаработнойПлаты.ОстаткиИОбороты КАК
ОборотЗаработнойПлатыОстаткиИОбороты
ВЫБРАТЬ
РасчётЗаработнойПлатыСписокСотрудников.ОтчисленияВПФР,
РасчётЗаработнойПлатыСписокСотрудников.Сотрудник
ИЗ
Документ.РасчётЗаработнойПлаты.СписокСотрудников КАК
РасчётЗаработнойПлатыСписокСотрудников
ВЫБРАТЬ
СУММА(ОборотЗаработнойПлатыОбороты.КВыплатеПриход) КАК КВыплатеПриход,
ОборотЗаработнойПлатыОбороты.Сотрудник,
КадровыйУчётСрезПоследних.Подразделение
ИЗ
РегистрСведений.КадровыйУчёт.СрезПоследних КАК КадровыйУчётСрезПоследних
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОборотЗаработнойПлаты.Обороты КАК
ОборотЗаработнойПлатыОбороты
ПО КадровыйУчётСрезПоследних.Сотрудник =
ОборотЗаработнойПлатыОбороты.Сотрудник
СГРУППИРОВАТЬ ПО
ОборотЗаработнойПлатыОбороты.Сотрудник,
КадровыйУчётСрезПоследних.Подразделение
Источник: https://baza.diplomsite.ru/previewfile/2490

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