Разработка конфигурации «Управление персоналом» в среде 1С: Предприятие 8.3

Установить.

Параметр («Ссылка», Ссылка);Запрос.Установить.

Параметр («Измерения», Измерения);Выборка = Запрос. Выполнить ().Выбрать ();Отбор = Новый Структура («Номер

Строки");Для Каждого Движение Из Движения Цикл.

Выборка.Сбросить ();Отбор.Номер

Строки = Движение. Номер

Строки;

Если Выборка.Найти.

Следующий (Отбор) Тогда.

Если Движение.Вид.

Расчета = Планы.

ВидовРасчета.Основные.

Начисления.Оклад Тогда.

Движение.Результат = Движение. Параметр * Выборка.Часы.

Факт;

Конец.

Если;

Конец.

Если;

Конец.

Цикла;

Движения.Записать (, Истина);Конец.

ПроцедурыПроцедура Рассчитать.

ДополнительныеНачисления (Ссылка, Движения) Экспорт // Расчитаем вид расчета «Процент по выработки» Для Каждого Строка.

Набора Из Движения Цикл.

Если Не Строка.

Набора.Вид.

Расчета= Планы.

ВидовРасчета.Дополнительные.

Начисления.Процент.

ОтВыработки Тогда.

Продолжить;

Конец.

Если;

Строка.

Набора.Результат = Строка.

Набора.Параметр * Строка.

Набора.Процент/100;Конец.

Цикла;

Движения.Записать (, Истина);Конец.

ПроцедурыЛистинг 3. Модуль документа «Заказ"Процедура Обработка.

Проведения (Отказ, Режим.

Проведения)// регистр Расписание.

Движения.Расписание.Записывать = Истина;

Движение = Движения.Расписание.Добавить ();Движение.Сотрудник = Сотрудник;

Движение.Услуга = Услуга;

Движение.Заказ = Ссылка;

Движение.Дата.

Нач = Дата.

Выполнения;

Движение.Дата.

Кон = Дата.

Выполнения+ Время.

ПоПлану*60;;Конец.

ПроцедурыПроцедура Перед.

Записью (Отказ, Режим.

Записи, Режим.

Проведения)Если Это.

Новый () Тогда.

СостояниеЗаказа = Перечисления.Состояния.

Заказа.Текущий.

Заказ;

Конец.

Если; Конец.

ПроцедурыЛистинг 3. Модуль документа «Выполнение"&НаСервере.

Функция Получить.

Сумму (Тек.

Услуга)Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ-Прайс.

СрезПоследних.Услуга,-Прайс.

СрезПоследних.Цена-ИЗ-Регистр

Сведений.Прайс.Срез.

Последних КАК Прайс.

СрезПоследних-ГДЕ-Прайс.

СрезПоследних.Услуга = &Тек.

Услуга" ;Запрос.Установить.

Параметр («Тек.

Услуга", Тек.

Услуга);Результат.

Запроса = Запрос. Выполнить ();Выборка.

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Сумма.

Услуги = 0;Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл.

СуммаУслуги = Выборка.

ДетальныеЗаписи.Цена;

Конец.

Цикла;

возврат Сумма.

Услуги;

Конец.

ФункцииПроцедура Обработка.

Заполнения (Данные.

Заполнения, Стандартная.

Обработка)Если Тип.

Знч (Данные.

Заполнения) = Тип («Документ.

Ссылка.Заказ") Тогда.

Заказ = Данные.

Заполнения.Ссылка;

Сотрудник = Данные.

Заполнения.Сотрудник;

Дата.

ВремяНачала= Данные.

Заполнения.Дата.

Выполнения;

Дата.

ВремяКонца= Данные.

Заполнения.Дата.

Выполнения + Данные.

Заполнения.Время.

ПоПлану*60;Если Данные.

Заполнения.Услуга<> Справочники.Услуги.Пустая.

Ссылка () ТОгда.

Сумма = Получить.

Сумму (Данные.

Заполнения.Услуга);Конец.

Если;

Конец.

Если;

Конец.

ПроцедурыПроцедура Обработка.

Проведения (Отказ, Режим.

Проведения)Движения.Выполнения.

Заказов.Записывать = Истина;

Движения.Выполнения.

Заказов.Очистить ();Движение = Движения.Выполнения.

Заказов.Добавить ();Движение.Сотрудник = Заказ. Сотрудник;

Движение.Контрагент= Заказ. Контрагент;

Движение.Период= Дата;

Движение.Заказ = Заказ;

Движение.Выполнение= Ссылка;

Движение.Время.

ПоПлану= (Дата.

ВремяКонца — Дата.

ВремяНачала)/60;Движение.Время.

ПоФакту= (Дата.

ВремяКонца.

Факт — Дата.

ВремяНачала.

Факт)/60;Движение.Сумма= Сумма;

Движение.Услуга= Заказ. Услуга;

Конец.

ПроцедурыЛистинг 5. Модуль формы документа «Начисление ЗП"&НаКлиенте.

Процедура Период.

РегистрацииПри.

Изменении (Элемент)Объект.Период.

Регистрации = Начало.

Месяца (Объект.Период.

Регистрации);Конец.

Процедуры&НаСервере.

Процедура Заполнить.

ТЧНаСервере ()Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ Различные-График.

Работы.Сотрудник-ИЗ-Регистр

Сведений.График.

Работы КАК График.

Работы-ГДЕ-График.

Работы.Дата МЕЖДУ &Дата.

Нач И &Дата.

Кон" ;Запрос.Установить.

Параметр («Дата.

Кон", Конец.

Месяца (Объект.Период.

Регистрации));Запрос.Установить.

Параметр («Дата.

Нач", Объект.Период.

Регистрации);Результат.

Запроса = Запрос. Выполнить ();Объект.Основные.

Начисления.Очистить ();Объект.Дополнительные.

Начисления.Очистить ();Выборка.

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл// Вставить обработку выборки Выборка.

ДетальныеЗаписи.

СтрТаб = Объект.Основные.

Начисления.Добавить ();Стр

Таб.Сотрудник = Выборка.

ДетальныеЗаписи.Сотрудник; Стр

Таб.Вид.

Расчета = Планы.

ВидовРасчета.Основные.

Начисления.Оклад;

Стр

Таб = Объект.Дополнительные.

Начисления.Добавить ();Стр

Таб.Сотрудник = Выборка.

ДетальныеЗаписи.Сотрудник; Стр

Таб.Вид.

Расчета = Планы.

ВидовРасчета.Дополнительные.

Начисления.Процент.

ОтВыработки;

Конец.

Цикла;

Конец.

Процедуры&НаКлиенте.

Процедура Заполнить.

ТЧ (Команда)Заполнить.

ТЧНаСервере ();Конец.

ПроцедурыЛистинг 6. Модуль документа «Начисление ЗП"Процедура Проведение.

ПоВзаиморасчетам ()ТЗнач = Движения.Основные.

Начисления.Выгрузить (," Сотрудник, Результат");ТЗнач_доп = Движения.Дополнительные.

Начисления.Выгрузить (," Сотрудник, Результат");Для Каждого Строка.

ТаблицыИсточник Из ТЗнач_доп Цикл.

ЗаполнитьЗначения.

Свойств (ТЗнач.Добавить (), Строка.

ТаблицыИсточник);Конец.

Цикла;

ТЗнач.Свернуть («Сотрудник» ," Результат");Движения.Взаиморасчеты.

ССотрудниками.Записывать = Истина;

Для каждого Строка.

ТЗ ИЗ ТЗнач Цикл.

Движение = Движения.Взаиморасчеты.

ССотрудниками.Добавить ();Движение.Вид.

Движения = Вид.

ДвиженияНакопления.Приход;

Движение.Сотрудник= Строка.

ТЗ.Сотрудник;

Движение.Сумма.

Взаиморасчетов= Строка.

ТЗ.Результат;

Движение.Период= Дата;

Конец.

Цикла;

Конец.

ПроцедурыПроцедура Обработка.

Проведения (Отказ, Режим)// По окладу.

Запрос = Новый Запрос («ВЫБРАТЬНачисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации, -Начисление.

ЗарплатыОсновные.

Начисления.Сотрудник КАК Сотрудник, -Начисление.

ЗарплатыОсновные.

Начисления.Вид.

Расчета, -Начисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации КАК Период.

ДействияНачало, -КОНЕЦПЕРИОДА (Начисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации, Месяц) КАК Период.

ДействияКонецПОМЕСТИТЬ СписокИЗДокумент.Начисление.

Зарплаты.Основные.

Начисления КАК Начисление.

ЗарплатыОсновные.

НачисленияГДЕНачисление.

ЗарплатыОсновные.

Начисления.Ссылка = &Ссылка — -ИНДЕКСИРОВАТЬ ПОСотрудник -; - -//////////////////////////////////////////////////////////////////////////////// -ВЫБРАТЬСписок.Период.

Регистрации, -Список.Сотрудник, -Список.Вид.

Расчета, -Список.Период.

ДействияНачало, -Список.Период.

ДействияКонец, -ЕСТЬNULL (Разряды.

СотрудниковСрез.

Последних.Часовая.

Ставка, 0) КАК Часовая.

Ставка, -Разряды.

СотрудниковСрез.

Последних.Разряд КАК Разряд.

СотрудникаИЗСписок КАК СписокЛЕВОЕ СОЕДИНЕНИЕ Регистр

Сведений.Разряды.

Сотрудников.Срез.

Последних (-&Дата.

Начала, -Сотрудник В -(ВЫБРАТЬСписок.СотрудникИЗСписок КАК Список)) КАК Разряды.

СотрудниковСрез.

ПоследнихПО Список. Сотрудник = Разряды.

СотрудниковСрез.

Последних.Сотрудник «);Запрос.Установить.

Параметр («Ссылка», Ссылка);Запрос.Установить.

Параметр («Дата.

Начала", Период.

Регистрации);Выборка = Запрос. Выполнить ().Выбрать ();Пока Выборка. Следующий () Цикл.

Движение = Движения.Основные.

Начисления.Добавить ();Заполнить.

ЗначенияСвойств (Движение, Выборка);Если Движение.Вид.

Расчета = Планы.

ВидовРасчета.Основные.

Начисления.Оклад Тогда.

Движение.Параметр = Выборка.Часовая.

Ставка;

Движение.Разряд = Выборка.Разряд.

Сотрудника;

Конец.

Если;

Конец.

Цикла;

Движения.Основные.

Начисления.Записать ();// Процент выработки.

Запрос = Новый Запрос («ВЫБРАТЬНачисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации, -Начисление.

ЗарплатыОсновные.

Начисления.Сотрудник КАК Сотрудник, -Начисление.

ЗарплатыОсновные.

Начисления.Вид.

Расчета, -Начисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации КАК Период.

ДействияНачало, -КОНЕЦПЕРИОДА (Начисление.

ЗарплатыОсновные.

Начисления.Ссылка.Период.

Регистрации, Месяц) КАК Период.

ДействияКонецПОМЕСТИТЬ СписокИЗДокумент.Начисление.

Зарплаты.Дополнительные.

Начисления КАК Начисление.

ЗарплатыОсновные.

НачисленияГДЕНачисление.

ЗарплатыОсновные.

Начисления.Ссылка = &Ссылка — -ИНДЕКСИРОВАТЬ ПОСотрудник -; - -//////////////////////////////////////////////////////////////////////////////// -ВЫБРАТЬСписок.Период.

Регистрации, -Список.Сотрудник, -Список.Вид.

Расчета, -Список.Период.

ДействияНачало, -Список.Период.

ДействияКонец, -ЕСТЬNULL (Разряды.

СотрудниковСрез.

Последних.Процент.

ОтВыработки, 0) КАК Процент.

ОтВыработки, -Разряды.

СотрудниковСрез.

Последних.Разряд КАК Разряд.

Сотрудника, — Выполнение.

ЗаказовОборот.Сумма.

Оборот КАК Сумма.

ОборотИЗСписок КАК СписокЛЕВОЕ СОЕДИНЕНИЕ Регистр

Сведений.Разряды.

Сотрудников.Срез.

Последних (-&Дата.

Начала, -Сотрудник В -(ВЫБРАТЬСписок.СотрудникИЗСписок КАК Список)) КАК Разряды.

СотрудниковСрез.

ПоследнихПО Список. Сотрудник = Разряды.

СотрудниковСрез.

Последних.СотрудникЛЕВОЕ СОЕДИНЕНИЕ Регистр

Накопления.Выполнения.

Заказов.Обороты (-&Дата.

Начала,&Дата.

Конца, -Сотрудник В -(ВЫБРАТЬСписок.СотрудникИЗСписок КАК Список)) КАК Выполнение.

ЗаказовОборотПО Список. Сотрудник = Выполнение.

ЗаказовОборот.Сотрудник «);Запрос.Установить.

Параметр («Ссылка», Ссылка);Запрос.Установить.

Параметр («Дата.

Начала", Период.

Регистрации);Запрос.Установить.

Параметр («Дата.

Конца", Конец.

Месяца (Период.

Регистрации));Выборка = Запрос. Выполнить ().Выбрать ();Пока Выборка. Следующий () Цикл.

Движение = Движения.Дополнительные.

Начисления.Добавить ();Заполнить.

ЗначенияСвойств (Движение, Выборка);Если Движение.Вид.

Расчета = Планы.

ВидовРасчета.Дополнительные.

Начисления.Процент.

ОтВыработки Тогда.

Движение.Процент = Выборка.Процент.

ОтВыработки;

Движение.Параметр = Выборка.Сумма.

Оборот;

Движение.Разряд = Выборка.Разряд.

Сотрудника;

Конец.

Если;

Конец.

Цикла;

Движения.Дополнительные.

Начисления.Записать ();// Рассчитаем записи в сформированных наборах.

РасчетНачислений.Рассчитать.

ОсновныеНачисления (Ссылка, Движения.Основные.

Начисления);Расчет.

Начислений.Рассчитать.

ДополнительныеНачисления (Ссылка, Движения.Дополнительные.

Начисления);Проведение.

ПоВзаиморасчетам ();Конец.

ПроцедурыПроцедура Перед.

Записью (Отказ, Режим.

Записи, Режим.

Проведения)Период.

Регистрации = Начало.

Месяца (Период.

Регистрации);Конец.

ПроцедурыЛистинг 7. Модуль формы документа «Выплата ЗП"&НаКлиенте.

Процедура Период.

РегистрацииПри.

Изменении (Элемент)Объект.Период.

Регистрации = Конец.

Месяца (Объект.Период.

Регистрации);Конец.

Процедуры&НаСервере.

Процедура Заполнить.

ТЧНаСервере ()Запрос = Новый Запрос;

Запрос.Текст = «ВЫБРАТЬ РАЗЛИЧНЫЕ-Взаиморасчеты.

ССотрудниками.

Остатки.Сотрудник КАК Сотрудник,-Взаиморасчеты.

ССотрудниками.

Остатки.Сумма.

ВзаиморасчетовОстаток-ИЗ-Регистр

Накопления.Взаиморасчеты.

ССотрудниками.Остатки (&Дата.

Кон) КАК Взаиморасчеты.

ССотрудниками.

Остатки—УПОРЯДОЧИТЬ ПО-Сотрудник" ;Запрос.Установить.

Параметр («Дата.

Кон", Конец.

Дня (Объект.Период.

Регистрации));Результат.

Запроса = Запрос. Выполнить ();Объект.Список.

Сотрудников.Очистить ();Выборка.

ДетальныеЗаписи = Результат.

Запроса.Выбрать ();Пока Выборка.

ДетальныеЗаписи.Следующий () Цикл.

СтрТаб = Объект.Список.

Сотрудников.Добавить ();Стр

Таб.Сотрудник = Выборка.

ДетальныеЗаписи.Сотрудник; Стр

Таб.Сумма.

КВыплате = Выборка.

ДетальныеЗаписи.Сумма.

ВзаиморасчетовОстаток;

Конец.

Цикла;

Конец.

Процедуры&НаКлиенте.

Процедура Заполнить.

ТЧ (Команда)Заполнить.

ТЧНаСервере ();Конец.

ПроцедурыЛистинг 8. Модуль менеджера документа «Выплата ЗП"Процедура Печать (Таб.

Док, Ссылка) Экспорт//{{_КОНСТРУКТОР_ПЕЧАТИ (Печать)Макет = Документы.Выплата.

Зарплаты.Получить.

Макет («Печать»);Запрос = Новый Запрос;

Запрос.Текст ="ВЫБРАТЬ-Выплата.

Зарплаты.Дата,-Выплата.

Зарплаты.Номер,-Выплата.

Зарплаты.Период.

Регистрации,-Выплата.

Зарплаты.Список.

Сотрудников.(-Номер

Строки,-Сотрудник,-Сумма.

КВыплате-)-ИЗ-Документ.Выплата.

Зарплаты КАК Выплата.

Зарплаты-ГДЕ-Выплата.

Зарплаты.Ссылка В (&Ссылка)" ;Запрос.Параметры.Вставить («Ссылка», Ссылка);Выборка = Запрос. Выполнить ().Выбрать ();Область.

Заголовок = Макет.Получить.

Область («Заголовок»);Область.

Шапка = Макет.Получить.

Область («Шапка»);Область.

СписокСотрудников = Макет.Получить.

Область («Строка»);Область.

Итог = Макет.Получить.

Область («Итог»);Область.

Подвал = Макет.Получить.

Область («Подвал»);Таб.

Док.Очистить ();Вставлять.

РазделительСтраниц = Ложь;

Пока Выборка. Следующий () Цикл.

Если Вставлять.

РазделительСтраниц Тогда.

ТабДок.Вывести.

ГоризонтальныйРазделитель.

Страниц ();Конец.

Если;

Область.

Заголовок.Параметры.Заполнить (Выборка);Область.

Заголовок.Параметры.Отчетный.

ПериодС = Начало.

Месяца (Выборка.Период.

Регистрации);Область.

Заголовок.Параметры.Отчетный.

ПериодПо = Конец.

Месяца (Выборка.Период.

Регистрации);Таб.

Док.Вывести (Область.

Заголовок);Область.

Шапка.Параметры.Заполнить (Выборка);Таб.

Док.Вывести (Область.

Шапка, Выборка. Уровень ());Сумма.

Итог = 0;Выборка.

СписокСотрудников = Выборка.Список.

Сотрудников.Выбрать ();Пока Выборка.

СписокСотрудников.Следующий () Цикл.

ОбластьСписок.

Сотрудников.Параметры.Заполнить (Выборка.

СписокСотрудников);Таб.

Док.Вывести (Область.

СписокСотрудников, Выборка.

СписокСотрудников.Уровень ());Сумма.

Итог = Сумма.

Итог + Выборка.

СписокСотрудников.Сумма.

КВыплате;

Конец.

Цикла;

Область.

Итог.Параметры.Сумма.

Итог = Сумма.

Итог;

Таб.

Док.Вывести (Область.

Итог, Выборка.

СписокСотрудников.Уровень ());Таб.

Док.Вывести (Область.

Подвал, Выборка.

СписокСотрудников.Уровень ());Вставлять.

РазделительСтраниц = Истина;

Конец.

Цикла;//}}Конец.

ПроцедурыЛистинг 9. Модуль документа «Выплата ЗП"Процедура Проведение.

ПоВзаиморасчетам ()Движения.Взаиморасчеты.

ССотрудниками.Записывать = Истина;

Для каждого Строка.

Тч ИЗ Список.

Сотрудников Цикл.

Движение = Движения.Взаиморасчеты.

ССотрудниками.Добавить ();Движение.Вид.

Движения = Вид.

ДвиженияНакопления.Расход;

Движение.Сотрудник= Строка.

Тч.Сотрудник;

Движение.Сумма.

Взаиморасчетов= Строка.

Тч.Сумма.

КВыплате;

Движение.Период= Дата;

Конец.

Цикла;

Конец.

ПроцедурыПроцедура Обработка.

Проведения (Отказ, Режим) Проведение.

ПоВзаиморасчетам ();Конец.

ПроцедурыПроцедура Перед.

Записью (Отказ, Режим.

Записи, Режим.

Проведения)Период.

Регистрации = Конец.

Месяца (Период.

Регистрации);Конец.

ПроцедурыЛистинг 10. Запрос к отчету «Отчет по выработке сотрудников"ВЫБРАТЬВыполнения.

ЗаказовОбороты.Сотрудник, Выполнения.

ЗаказовОбороты.Время.

ПоФакту.

Оборот КАКВремя.

ПоФакту.

Оборот, Выполнения.

ЗаказовОбороты.Время.

ПоПлану.

Оборот КАКВремя.

ПоПлану.

Оборот, СУММА (Выполнения.

ЗаказовОбороты.Сумма.

Оборот) КАКСумма.

ОборотИЗРегистр

Накопления.Выполнения.

Заказов.Обороты КАК Выполнения.

ЗаказовОбороты.

СГРУППИРОВАТЬ ПОВыполнения.

ЗаказовОбороты.Сотрудник, Выполнения.

ЗаказовОбороты.Время.

ПоФакту.

Оборот, Выполнения.

ЗаказовОбороты.Время.

ПоПлану.

ОборотЛистинг 11. Запрос к отчету «Анализ работы сервиса"ВЫБРАТЬТаб.

Заказ.Ссылка КАК Заказ, Таб.

Заказ.Сотрудник, Таб.

Заказ.Контрагент, Таб.

Заказ.Состояние.

Заказа, Таб.

Заказ.Дата.

Выполнения, Таб.

Заказ.Время.

ПоПлану, Вып.Время.

ПоФакту, ЕстьNull (Вып.Сумма, 0) КАК Сумма.

ИЗДокумент.Заказ КАК Таб.

ЗаказЛЕВОЕ СОЕДИНЕНИЕ Регистр

Накопления.Выполнения.

Заказов КАК Вып.

ПО (Вып.Заказ = Таб.

Заказ.Ссылка)Где Таб.

Заказ.Проведен.

Листинг 13. Запрос к отчету «Отчет по начисленной ЗП"ВЫБРАТЬОсновные.

Начисления.Сотрудник, Основные.

Начисления.Результат КАК Сумма.

ПоЧасовой.

Ставке, ЕстьNull (Дополнительные.

Начисления.Результат, 0) КАК Сумма.

ПроцентВыработки, Основные.

Начисления.Результат + ЕстьNull (Дополнительные.

Начисления.Результат, 0) КАК Сумма.

Итог, Основные.

Начисления.Период.

РегистрацииИЗРегистр

Расчета.Основные.

Начисления КАК Основные.

НачисленияЛевое Соединение.

РегистрРасчета.Дополнительные.

Начисления КАК Дополнительные.

НачисленияПо Основные.

Начисления.Сотрудник = Дополнительные.

Начисления.Сотрудник и Дополнительные.

Начисления.Период.

Регистрации МЕЖДУ &Нач.

Дата И &Кон.

ДатаГДЕОсновные.

Начисления.Период.

Регистрации МЕЖДУ &Нач.

Дата И &Кон.

Дата.