Файл: Разработка конфигурации «Расчёт заработной платы в среде 1С:Предриятие».pdf
Добавлен: 06.04.2023
Просмотров: 1852
Скачиваний: 22
СОДЕРЖАНИЕ
Глава 1. Анализ предметной области и постановка задачи
1.1 Описание предметной области. Постановка задачи
1.2 Предлагаемые мероприятия по улучшению технологии решения задачи
1.3 Требования к информационной системе
Глава 2. Проектирование информационной системы
2.2 Проектирование пользовательского интерфейса
2.3 Проектирование базы данных
Глава 3. Разработка программного решения
3.1 Разработка элементов интерфейса ИС
3.2 Контрольный пример информационной системы
// Заполнение шапки
Сотрудник_оформил = ДанныеЗаполнения.Сотрудник_оформил;
Для Каждого ТекСтрокаОтработанное_время Из ДанныеЗаполнения.Отработанное_время Цикл
НоваяСтрока = Табель.Добавить();
НоваяСтрока.Сотрудник = ТекСтрокаОтработанное_время.Сотрудник;
НоваяСтрока.Отработано_часов = ТекСтрокаОтработанное_время.Часов;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Регистр_рабочего_времени.Записывать = Истина;
Для Каждого ТекСтрокаОклад Из Оклад Цикл
Движение = Движения.Регистр_рабочего_времени.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаОклад.Сотрудник;
Движение.Отработано_часов = ТекСтрокаОклад.Отработано_часов;
Движение.Отработано_дней = ТекСтрокаОклад.Отработано_дней;
Движение.Сумма = ТекСтрокаОклад.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Табель") Тогда
// Заполнение шапки
Период = ДанныеЗаполнения.Период;
Сотрудник_оформил = ДанныеЗаполнения.Сотрудник_оформил;
Для Каждого ТекСтрокаТабель Из ДанныеЗаполнения.Табель Цикл
НоваяСтрока = Оклад.Добавить();
НоваяСтрока.Отработано_часов = ТекСтрокаТабель.Отработано_часов;
НоваяСтрока.Сотрудник = ТекСтрокаТабель.Сотрудник;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Зарплата.Записывать = Истина;
Для Каждого ТекСтрокаЗарплата Из Зарплата Цикл
Движение = Движения.Зарплата.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = ТекСтрокаЗарплата.Сотрудник;
Движение.Сумма = ТекСтрокаЗарплата.Сумма;
Движение.Дата = Дата;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Учет_доступа_по_пропускам") Тогда
// Заполнение шапки
Сотрудник_оформил = ДанныеЗаполнения.Сотрудник;
Для Каждого ТекСтрокаРегистрация_сотрудников Из ДанныеЗаполнения.Регистрация_сотрудников Цикл
НоваяСтрока = Отработанное_время.Добавить();
НоваяСтрока.Сотрудник = ТекСтрокаРегистрация_сотрудников.Сотрудник;
НоваяСтрока.Часов = ТекСтрокаРегистрация_сотрудников.Часов;