Версия для печати темы (https://pro1c.org.ua/index.php?s=52701bc9c6c329c5d9ff50fd3d7a9aac&showtopic=7737)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Запроси в 1С

Автор: sasha9307 13.06.12, 16:03

Всім добрий день. У мне таке завдання: при ~~прийомані~~ прийомі нового співробітника на роботу, за допомогОю ~~запроса~~запиту необхідно ~~провірити~~ перевірити в "Регистре сведений" "Занятость" чи нема його там, якщо нема тоді також за допомогОю ~~запроса~~запиту необхідно ~~провірити~~перевірити в "Регистре накопления" "Штатное расписание" чи є в заданому підрозділі ставки по заданій посаді, якщо є тоді провожу співробітника і записую його данні в "Регистр сведений" "Занятость". Не ~~получається~~виходить ~~получити~~отримати данні в ~~запросах~~запитах в "Регистре сведений" "Занятость" і "Регистре накопления" "Штатное расписание". Як це можна зробити?

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