Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Запроси в 1С
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
sasha9307
Всім добрий день. У мне таке завдання: при прийомані прийомі нового співробітника на роботу, за допомогОю запросазапиту необхідно провірити перевірити в "Регистре сведений" "Занятость" чи нема його там, якщо нема тоді також за допомогОю запросазапиту необхідно провіритиперевірити в "Регистре накопления" "Штатное расписание" чи є в заданому підрозділі ставки по заданій посаді, якщо є тоді провожу співробітника і записую його данні в "Регистр сведений" "Занятость". Не получаєтьсявиходить получитиотримати данні в запросахзапитах в "Регистре сведений" "Занятость" і "Регистре накопления" "Штатное расписание". Як це можна зробити?

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



 ! 

Правила, п.2.!!!
Или начинаем писать нормально, или буду удалять.
 
MATEVI
Переместил... Причем тут "Пользователю 1С 8.2, 8.1, 8.0 » 1С Управление торговлей 8.* » Запроси в 1С"
tania_filatova
Ужоссс 32541510.gif Как Вы это пережили? У меня, как у филОЛУХа, от такой "соловьйинойи мови" нерв в глазном яблоке задергалсО icon_beer17.gif Пишут же люди, Боже ж мой... 12201689.gif
Ardi
То єсть новый дєржавній правопіс.
Азаров подтвєрдіт.
tania_filatova
Цитата(Ardi @ 15.06.12, 16:15) необходимо зарегистрироваться для просмотра ссылки
То єсть новый дєржавній правопіс.
Азаров подтвєрдіт.

и пачиму кампутер не умеит делать так всем красасисам 433.gif

crazy.gif crazy.gif crazy.gif

 ! 

Правила, п.13
 

краВасисам 32541510.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.