Програмно изменить реквизит документа

[kot488]

Имеется куча документов Заявки, имеется обработка которая с заявок группирует по городам заявки и создает общий документ. Нужно что бы при создании группового документа, у заявки изменялся реквизит Обработан на Да. Подскажите как это сделать. Пока только понял как получить пакет документов, а реквизит изменить не получается. Вот что в запросе вышло

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


НаСервере
Процедура УстановитьОтметку()
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Обработан", Справочники.Обработан.НайтиПоНаименованию("Нет"));
   Запрос.Текст = "ВЫБРАТЬ
    |Упаковка.Обработан.Наименование
|ИЗ
| Документ.Упаковка КАК Упаковка
|ГДЕ
| Упаковка.Обработан = &Обработан";
Сообщить("Документ записан");

    КонецПроцедуры



[oleg-x]

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

Док = Выборка.ссылка.ПолучитьОбъект();
Док.Обработано = Истина;
Док.Записать();

[kot488]

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

Док = Выборка.ссылка.ПолучитьОбъект();
Док.Обработано = Истина;
Док.Записать();

Сделал вот так:

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


Док = Документы.Упаковка.НайтиПоРеквизиту("Обработан", Ложь);
Док.Обработан = Истина;
Док.Записать();
Сообщить("Документ записан");



Пишет
{Обработка.ГруппаСоздатьУпаковка.Форма.Форма.Форма(73)}: Поле обьекта не доступно для записи (Обработан)
   Док.Обработан = Истина;

Хотя там нет отметки только для чтения

[Oldman06]

НайтиПоРеквизиту() Возвращает ссылку, а Вам для записи нужен объект.

[kot488]

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


Док = Выборка.Упаковка.ПолучитьОбъект();
Док.Обработано = Истина;
Док.Записать();


То пишет что переменная не определена, конфигурация самописная
{Обработка.ГруппаСоздатьУпаковка.Форма.Форма.Форма(76,8)}: Переменная не определена (Выборка)
   Док = <<?>>Выборка.Упаковка.ПолучитьОбъект(); (Проверка: Тонкий клиент)

[oleg-x]

А где определение самой выборки?

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

Запрос = Новый Запрос;
|Текст запроса

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
//И вот цдесь уже есть выборка
КонецЦикла;

[Oldman06]

А больше кода можно увидеть?

[kot488]

А больше кода можно увидеть?

Вот так должно быть?

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


&НаСервере
Процедура УстановитьОтметку()
Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
| Упаковка.Обработан
|ИЗ
| Документ.Упаковка КАК Упаковка
|ГДЕ
| Упаковка.Обработан = ЛОЖЬ";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Док = Выборка.Обработан.ПолучитьОбъект();
Док.Обработан = Истина;
Док.Записать();
КонецЦикла;
Сообщить("Документ записан");
КонецПроцедуры



[Oldman06]

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

&НаСервере
Процедура УстановитьОтметку()
Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
|    Упаковка.Ссылка
|ИЗ
|    Документ.Упаковка КАК Упаковка
|ГДЕ
|    Упаковка.Обработан = ЛОЖЬ";
    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        Док = Выборка.Ссылка.ПолучитьОбъект();
        Док.Обработан = Истина;
        Док.Записать();   
    КонецЦикла;
    Сообщить("Документ записан");
КонецПроцедуры

[kot488]

Спасибо:zebzdr: