Запрос данных и запись в реквизит справочника
1С:Зарплата и Управление Персоналом 3.x
Платформа 1С v8.3
Windows
MS SQL
MySQL
Россия
Пользователь
Программист
Стажер
Вопрос
Доброго времени суток.
Подскажите пожалуйста что делаю не так.
Есть массив, хранящий: табельный номер и ключ.
Через расширение добавляю новый реквизит в справочник Штатное расписание. Необходимо найти по табельному номеру через сотрудника (использую регистр сведений "Занятость позиций штатного расписания") позицию штатного расписания и записать в нее ключ в реквизит "Ключ".
Подскажите пожалуйста что делаю не так.
Есть массив, хранящий: табельный номер и ключ.
Через расширение добавляю новый реквизит в справочник Штатное расписание. Необходимо найти по табельному номеру через сотрудника (использую регистр сведений "Занятость позиций штатного расписания") позицию штатного расписания и записать в нее ключ в реквизит "Ключ".
ШтатноеРасп = Справочники.ШтатноеРасписание;
Для Каждого М из ДанныеМ цикл
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЗанятостьПозицийШтатногоРасписанияСрезПоследних.Сотрудник.Код КАК СотрудникКод,
| ЗанятостьПозицийШтатногоРасписанияСрезПоследних.ПозицияШтатногоРасписания.Ссылка КАК ПозШтатРаспСсылка,
| ШтатноеРасписание.Ссылка КАК Ссылка
|ИЗ
| РегистрСведений.ЗанятостьПозицийШтатногоРасписания.СрезПоследних(&ТД, ) КАК ЗанятостьПозицийШтатногоРасписанияСрезПоследних
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ШтатноеРасписание КАК ШтатноеРасписание
| ПО ЗанятостьПозицийШтатногоРасписанияСрезПоследних.ПозицияШтатногоРасписания = ШтатноеРасписание.Ссылка
|ГДЕ
| ЗанятостьПозицийШтатногоРасписанияСрезПоследних.Сотрудник.Код = &Код
| И ЗанятостьПозицийШтатногоРасписанияСрезПоследних.ВидЗанятостиПозиции <> &ВидЗанятости";
Запрос.УстановитьПараметр("ТД", ТекущаяДата());
Запрос.УстановитьПараметр("Код", М[0]);
Запрос.УстановитьПараметр("ВидЗанятости", Перечисления.ВидыЗанятостиПозицийШтатногоРасписания.Свободна);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() тогда
ШтатРаспОбъект = ШтатноеРасп.ПолучитьОбъект();
ШтатРаспОбъект.Ключ = М[1];
ШтатноеРасп.Записать();
КонецЕсли;
ПоказатьПо теме из базы знаний
- Быстрый поиск дублей с четким/нечетким поиском по любому сочетанию реквизитов/реквизитов таб. частей с отбором и быстрой заменой значений в ЛЮБЫХ базах 8.1-8.3 (УТ 10.3, БП 2, ЗУП 2.5, КА 1.1, УТ 11, БП 3, УНФ 1.6/3.0, КА 2, ЗУП 3 и т.д.)
- Выгрузка-загрузка любых данных (и измененных) между похожими конфигурациями (ФАЙЛ, HTTP, COM) ЛЮБЫХ баз 1С 8.1-8.3 с обработкой и поиском данных по произвольным полям поиска
- [УТ 11][БП 3.0] Перенос данных из БП 3.0 в УТ 11 (начальное заполнение УТ 11 по данным БП 3.0)
- Перенос и очистка дополнительных реквизитов справочников
- Синхронизация справочников или импорт данных через HTTP-сервис
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Вакансии
1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день