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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
116
Документ Начисление_зарплаты
&НаКлиенте
Процедура Начисление1По_окладуПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней *
Стр1.Дни_рабочие;
Стр1.Премия = Стр1.По_окладу * Стр1.Процент_премии/100;
Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+ Стр1.Надбавка;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1Процент_премииПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
Стр1.Премия = Стр1.По_окладу * Стр1.Процент_премии/100;
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней
*Стр1.Дни_рабочие;
Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+ Стр1.Надбавка;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1ПремияПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+ Стр1.Надбавка;
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней
*Стр1.Дни_рабочие;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1НадбавкаПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1= Элементы. Начисление1.ТекущиеДанные;
Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+ Стр1.Надбавка;
Стр1.По_окладу = Стр1.Оклад/ Стр1.Раб_дней
*Стр1.Дни_рабочие;
КонецПроцедуры
&НаКлиенте
Процедура УдержаноПФПриИзменении(Элемент)
117
// Вставить содержимое обработчика.
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма = Стр2.ПФ+Стр2.ПН+Стр2.Удерж_прочие;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
//
Стр2.ПФ=Стр1.Сумма+Стр3.Тек_отпуск*Константы.СтавкаПФ.Получить
()/100;
КонецПроцедуры
&НаКлиенте
Процедура УдержаноПНПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма = Стр2.ПФ+Стр2.ПН+Стр2.Удерж_прочие;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры
&НаКлиенте
Процедура УдержаноУдерж_прочиеПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма = Стр2.ПФ+Стр2.ПН+Стр2.Удерж_прочие;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры
&НаКлиенте
Процедура Начисление2Берем_отпПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3= Элементы.Начисление2.ТекущиеДанные;
Стр3.Сумма = Стр3.Берем_отп+Стр3.БЛ+Стр3.Тек_отпуск;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
КонецПроцедуры
&НаКлиенте
Процедура Начисление2БЛПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
118
Стр3.Сумма = Стр3.Берем_отп+Стр3.БЛ+Стр3.Тек_отпуск;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
КонецПроцедуры
&НаКлиенте
Процедура Начисление2Тек_отпускПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр3.Сумма = Стр3.Берем_отп+Стр3.БЛ+Стр3.Тек_отпуск;
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
КонецПроцедуры
&НаКлиенте
Процедура УдержаноСуммаПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
//Стр1.Премия = Стр1.По_окладу * Стр1.Процент_премии/100;
// Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней
*Стр1.Дни_рабочие;
// Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+
Стр1.Надбавка;
// Стр2.Сумма = Стр2.ПФ+Стр2.ПН+Стр2.Удерж_прочие;
// Стр3.Сумма = Стр3.Берем_отп+Стр3.БЛ+Стр3.Тек_отпуск;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1окладПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней *
Стр1.Дни_рабочие;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1Дни_рабочиеПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней *
Стр1.Дни_рабочие;
КонецПроцедуры
&НаКлиенте
Процедура Начисление1Раб_днейПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр1 = Элементы. Начисление1.ТекущиеДанные;
119
Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней *
Стр1.Дни_рабочие;
КонецПроцедуры
&НаКлиенте
Процедура Начисление2СуммаПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
//Стр1.Премия = Стр1.По_окладу * Стр1.Процент_премии/100;
//Стр1.По_окладу = Стр1.оклад/ Стр1.Раб_дней
*Стр1.Дни_рабочие;
//Стр1.Сумма = Стр1.По_окладу + Стр1.Премия+
Стр1.Надбавка;
//Стр2.Сумма = Стр2.ПФ+Стр2.ПН+Стр2.Удерж_прочие;
//Стр3.Сумма = Стр3.Берем_отп+Стр3.БЛ+Стр3.Тек_отпуск;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
// Суммаквыплате.Расчитатьсумму(стр);
КонецПроцедуры
&НаКлиенте
Процедура Начисление1СуммаПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
//
Стр2.ПФ=Стр1.Сумма+Стр3.Тек_отпуск*Объект.Константы.СтавкаПФ.П
олучить()/100;
//СпрСотрудники =
Справочники.Количество_детей_и_др_иждивенцев; // или 2 вариант
//СпрСотрудники =
Справочники["Количество_детей_и_др_иждивенцев"];
КонецПроцедуры
&НаКлиенте
Прцедура УдержаноСумма_к_выплатеПриИзменении(Элемент)
// Вставить содержимое обработчика.
Стр3 = Элементы.Начисление2.ТекущиеДанные;
Стр1 = Элементы.Начисление1.ТекущиеДанные;
Стр2 = Элементы.Удержано.ТекущиеДанные;
Стр2.Сумма_к_выплате = Стр1.Сумма + Стр3.Сумма -
Стр2.Сумма ;
КонецПроцедуры

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)