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