Отбор записей из РС запросом

[trialex3]

Добрый день. Может кто дать подробный пример, как отобрать нужные записи РС через запрос и потом изменить их? РС без регистратора и непериодический. Отбор хочу сделать по измерению СправочникСсылка.

[ДмитрийФ]

Делаешь запрос, потом работаешь с РС

Код Выделить Развернуть


НаборЗаписей = РегистрыСведений.ИмяРегистра.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.СправочникСсылка.Установить(Выборка.Ссылка);
НаборЗаписей.Прочитать();
... // здесь меняешь записи
НаборЗаписей.Записать();


[trialex3]

Делаешь запрос, потом работаешь с РС

Код Выделить Развернуть


НаборЗаписей = РегистрыСведений.ИмяРегистра.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.СправочникСсылка.Установить(Выборка.Ссылка);
НаборЗаписей.Прочитать();
... // здесь меняешь записи
НаборЗаписей.Записать();


Ну сделал вот так. Но не записывает(

Код Выделить Развернуть

Если ОТКИзменение Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АР_ИсторияИзделий.КодИзделия,
| АР_ИсторияИзделий.Участок,
| АР_ИсторияИзделий.Дата,
| АР_ИсторияИзделий.НомерИсполнителя
|ИЗ
| РегистрСведений.АР_ИсторияИзделий КАК АР_ИсторияИзделий
|ГДЕ
| АР_ИсторияИзделий.КодИзделия.Код = &КодИзделия";

Запрос.УстановитьПараметр("КодИзделия", КодИзделия);

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

НаборЗаписей = РегистрыСведений.АР_ИсторияИзделий.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.КодИзделия.Установить(ВыборкаДетальныеЗаписи.КодИзделия);
НаборЗаписей.Прочитать();
Для каждого ЗаписьНабора из НаборЗаписей Цикл
Если ЗаписьНабора.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
ЗаписьНабора.НомерИсполнителя = ОТК;
КонецЕсли;
КонецЦикла;
НаборЗаписей.Записать();
КонецЕсли;

ПС.Результат не пустой.Проверял

[ДмитрийФ]

Что-то не догоняю, а где:      

Код Выделить Развернуть

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

[trialex3]

Что-то не догоняю, а где:      

Код Выделить Развернуть

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

Вот как то так сделал.Сойдет?

Код Выделить Развернуть

Если ОТКИзменение Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АР_ИсторияИзделий.КодИзделия,
| АР_ИсторияИзделий.Участок,
| АР_ИсторияИзделий.Дата,
| АР_ИсторияИзделий.НомерИсполнителя
|ИЗ
| РегистрСведений.АР_ИсторияИзделий КАК АР_ИсторияИзделий
|ГДЕ
| АР_ИсторияИзделий.КодИзделия.Код = &КодИзделия";

Запрос.УстановитьПараметр("КодИзделия", КодИзделия);

Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
НаборЗаписей = РегистрыСведений.АР_ИсторияИзделий.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.КодИзделия.Установить(ВыборкаДетальныеЗаписи.КодИзделия);
НаборЗаписей.Прочитать();
Для каждого ЗаписьНабора из НаборЗаписей Цикл
Если ЗаписьНабора.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
    ЗаписьНабора.НомерИсполнителя = ОТК;   
    КонецЕсли;
КонецЦикла;
НаборЗаписей.Записать();
КонецЕсли;
КонецЦикла;
КонецЕсли;

[ДмитрийФ]

Почему условие сразу в запросе не сделать?

Код Выделить Развернуть

Если ВыборкаДетальныеЗаписи.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
И зачем условие повторно далее идет, оно точно нужно?

Код Выделить Развернуть

Если ЗаписьНабора.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
Если в цикле сравнивают с подобным "Справочники.РабочиеЦентры.НайтиПоКоду("000037")", лучше перед циклом вычислить и присвоить переменной, и далее использовать переменную.

[trialex3]

Почему условие сразу в запросе не сделать?

Код Выделить Развернуть

Если ВыборкаДетальныеЗаписи.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
И зачем условие повторно далее идет, оно точно нужно?

Код Выделить Развернуть

Если ЗаписьНабора.Участок = Справочники.РабочиеЦентры.НайтиПоКоду("000037") Тогда
Если в цикле сравнивают с подобным "Справочники.РабочиеЦентры.НайтиПоКоду("000037")", лучше перед циклом вычислить и присвоить переменной, и далее использовать переменную.

Спасибо за подсказку. сделал так:

Код Выделить Развернуть

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АР_ИсторияИзделий.КодИзделия,
| АР_ИсторияИзделий.Участок,
| АР_ИсторияИзделий.Дата,
| АР_ИсторияИзделий.НомерИсполнителя
|ИЗ
| РегистрСведений.АР_ИсторияИзделий КАК АР_ИсторияИзделий
|ГДЕ
| АР_ИсторияИзделий.КодИзделия.Код = &КодИзделия
|И
|   АР_ИсторияИзделий.Участок = &ОТКСсылка";

Запрос.УстановитьПараметр("КодИзделия", КодИзделия);
Запрос.УстановитьПараметр("ОТКСсылка", ОТКСсылка);

Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
НаборЗаписей = РегистрыСведений.АР_ИсторияИзделий.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.КодИзделия.Установить(ВыборкаДетальныеЗаписи.КодИзделия);
НаборЗаписей.Прочитать();
Для каждого ЗаписьНабора из НаборЗаписей Цикл
    ЗаписьНабора.НомерИсполнителя = ОТК;   
КонецЦикла;
НаборЗаписей.Записать();
КонецЦикла;


Вопрос надо ли использовать цикл Для каждого если я знаю что результатом запроса всегда будет макс 1 строка?

Упд ваш вариант не подходит. теперь меняется не 1а запись в регистре а несколько, потому что отбор нужно делать уже по 2м реквизитам. Как это сделать? просто добавить еще 1 строку с Установить?

[alex0402]

Упд ваш вариант не подходит. теперь меняется не 1а запись в регистре а несколько, потому что отбор нужно делать уже по 2м реквизитам. Как это сделать? просто добавить еще 1 строку с Установить?

еще одну строку

Код Выделить Развернуть

НаборЗаписей.Отбор.ИмяРеквизита.Установить(значение);

[ДмитрийФ]

просто добавить еще 1 строку с Установить?

Да

надо ли использовать цикл Для каждого если я знаю что результатом запроса всегда будет макс 1 строка?

цикл не обязательно, достаточно:

Код Выделить Развернуть

ВыборкаДетальныеЗаписи.Следующий();