Файл: Разработка конфигурации «Управление персоналом» в среде 1С:Предприятие 8.3 (Аналитическая часть).pdf

Движения.ОсновныеНачисления.Записывать = Истина;

Для Каждого ТекСтрокаОсновныеНачисления Из ОсновныеНачисления Цикл

Движение = Движения.ОсновныеНачисления.Добавить();

Движение.Сторно = Ложь;

Движение.ВидРасчета = ТекСтрокаОсновныеНачисления.ВидРасчета;

Движение.ПериодДействияНачало = ТекСтрокаОсновныеНачисления.ДатаНачала;

Движение.ПериодДействияКонец = ТекСтрокаОсновныеНачисления.ДатаОкончания;

Движение.ПериодРегистрации = ПериодРегистрации;

Движение.БазовыйПериодНачало = ТекСтрокаОсновныеНачисления.БПНачало;

Движение.БазовыйПериодКонец = ТекСтрокаОсновныеНачисления.ДатаОкончания;

Движение.Сотрудник = ТекСтрокаОсновныеНачисления.Сотрудник;

Движение.Подразделение = ТекСтрокаОсновныеНачисления.Подразделение;

Движение.Размер = ТекСтрокаОсновныеНачисления.Размер;

Движение.График = ТекСтрокаОсновныеНачисления.График;

КонецЦикла;

Движения.ДополнительныеНачисления.Записывать = Истина;

Для Каждого ТекСтрокаДополнительныеНачисления Из ДополнительныеНачисления Цикл

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

Движение.Сторно = Ложь;

Движение.ВидРасчета = ТекСтрокаДополнительныеНачисления.ВидРасчета;

Движение.ПериодРегистрации = ПериодРегистрации;

Движение.БазовыйПериодНачало = ТекСтрокаДополнительныеНачисления.БПНачало;

Движение.БазовыйПериодКонец = ТекСтрокаДополнительныеНачисления.БПОкончание;

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

Движение.Подразделение = ТекСтрокаДополнительныеНачисления.Подразделение;

Движение.Размер = ТекСтрокаДополнительныеНачисления.Размер;

КонецЦикла;

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

Для Каждого ТекСтрокаУдержания Из Удержания Цикл

Движение = Движения.Удержания.Добавить();

Движение.Сторно = Ложь;

Движение.ВидРасчета = ТекСтрокаУдержания.ВидРасчета;

Движение.ПериодРегистрации = ПериодРегистрации;

Движение.БазовыйПериодНачало = ТекСтрокаУдержания.БПНачало;

Движение.БазовыйПериодКонец = ТекСтрокаУдержания.БПОкончание;

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

Движение.Подразделение = ТекСтрокаУдержания.Подразделение;

Движение.Размер = ТекСтрокаУдержания.Размер;

КонецЦикла;

Движения.Записать();

КонецПроцедуры

Модуль формы документа

&НаКлиенте

Процедура ОсновныеНачисленияСотрудникПриИзменении(Элемент)

стр = Элементы.ОсновныеНачисления.ТекущиеДанные;

стр.Должность = ПолучитьДожность(Стр.Сотрудник);

стр.Размер = ПолучитьОклад(Стр.Сотрудник);

стр.График = ПолучитьГрафик(Стр.Сотрудник);

стр.Подразделение = ПолучитьПодразделение(Стр.Сотрудник);

КонецПроцедуры

&НаСервере

Функция ПолучитьДожность(Сотрудник)

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| РаботающиеСотрудникиСрезПоследних.Должность

|ИЗ

| РегистрСведений.РаботающиеСотрудники.СрезПоследних(&Дата, ) КАК РаботающиеСотрудникиСрезПоследних

|ГДЕ

| РаботающиеСотрудникиСрезПоследних.Работающий = &Истина

| И РаботающиеСотрудникиСрезПоследних.Сотрудник = &Сотрудник";

Запрос.УстановитьПараметр("Дата", Объект.Дата);

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

Запрос.УстановитьПараметр("Истина", Истина);

РезультатЗапроса = Запрос.Выполнить();

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

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

Возврат ВыборкаДетальныеЗаписи.Должность;

КонецЦикла;

КонецФункции

&НаСервере

Функция ПолучитьОклад(Сотрудник)

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| РаботающиеСотрудникиСрезПоследних.Должность

|ИЗ

| РегистрСведений.РаботающиеСотрудники.СрезПоследних(&Дата, ) КАК РаботающиеСотрудникиСрезПоследних

|ГДЕ

| РаботающиеСотрудникиСрезПоследних.Работающий = &Истина

| И РаботающиеСотрудникиСрезПоследних.Сотрудник = &Сотрудник";

Запрос.УстановитьПараметр("Дата", Объект.Дата);

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

Запрос.УстановитьПараметр("Истина", Истина);

РезультатЗапроса = Запрос.Выполнить();

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

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

Возврат ВыборкаДетальныеЗаписи.Должность.Оклад;

КонецЦикла;

КонецФункции

1. Харитонов. С. А. Секреты профессиональной работы с "1С: Зарплата и Управление персоналом 8.2". Кадровый учет и управление персоналом. – М.: Дело, 2012.310 с. ↑

2. Глинских А. Современные автоматизированные системы управления персоналом // Газета «Компьютер-Информ». ↑

3. Информационные технологии управления: Учебник / Б.В. Черников. - 2-e изд., перераб. и доп. - М.: ИД ФОРУМ: НИЦ Инфра-М, 2013. - 368 с. ↑

4. Репин, В.В. Бизнес-процессы. Моделирование, внедрение, управление / В.В. Репин. - М.: Манн, Иванов и Фербер, 2013. - 512 c. ↑

5. Широбокова С.Н. Использование методики построения UML-моделей экономических информационных систем на платформе "1С:Предприятие" при подготовке выпускных квалификационных работ бакалавров направления "Прикладная информатика" // Новые информационные технологии в образовании: сб. науч. тр. XVI Междунар. науч.-практ. конф. "Новые информационные технологии в образовании" (Применение технологий "1С" в условиях модернизации экономики и образования).– 2016.– М.: ООО «1С-Паблишинг».– С. 451-454. ↑

6. 1C:Зарплата и управление персоналом 8.1. - М.: КноРус, 2015. - 368 c. ↑

7. Ощенко, Игорь Азбука программирования в 1С:Предприятие 8.3 / Игорь Ощенко. - М.: БХВ-Петербург, 2015. - 288 c. ↑