Запрос = Новый Запрос;
Запрос2 = Новый Запрос;
//-------------------------------------
Запрос.Текст = "
|ВЫБРАТЬ
|Занятость.Сотрудник КАК Сотрудник,
|Занятость.Подроздиление,
|Занятость.Должность
| ИЗ
|РегистрыНакопления.Занятость КАК Занятость
| Где
|Сотрудник = &Сотрудник
|";
Запрос.УстановитьПараметр("Сотрудник",Сотрудник);
Выборка =Запрос.Выполнить().Выбрать();
Для Каждого Строка из Выборка Цикл
Сообщить(Строка);
КонецЦикла;
//-------------------------------------
Запрос2.Текст = "
|ВЫБРАТЬ
|ШтатноеРасписание.Подразделение КАК Подразделение,
|ШтатноеРасписание.Должность,
|ШтатноеРасписание.ВсегоСтавок
| ИЗ
|РегистрСведений.ШтатноеРасписание КАК ШтатноеРасписание
| Где
|Подразделение = &Подразделение,
| И
|Должность = &Должность
|";
Запрос2.УстановитьПараметр("ВсегоСтавок",Ставка);
//-------------------------------------
Если ЗначениеЗаполнено(Ставка) Тогда
Если ЗначениеЗаполнено(Сотрудник) Тогда
Сообщить("Сотрудник уже есть");
Иначе
// регистр Занятость Приход
Движения.Занятость.Записывать = Истина;
Движение = Движения.Занятость.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Сотрудник = Сотрудник;
Движение.Подроздиление = Подроздиление;
Движение.Должность = Должность;
Движение.Номер = НомДокумента;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецЕсли;
Иначе
Сообщить("Нет мест");
КонецЕсли;
! | Правила, п.2.!!! Или начинаем писать нормально, или буду удалять. |