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