Запрос ко всем документам и последующее удаление определенных документов

[Varlant1n]

Здравствуйте, дорогие форумчане! Передо мной стоит задача создание внешней обработки с одной лишь кнопкой, при нажатии на которую произойдет следующее:
Обработка через запрос обратится ко всем документам. В каждом документе будут удалены все, кроме 5-и первых элементов в документе за месяц. То есть, как пример, у меня есть Документ АвансовыйОтчет. В этом документе очень много элементов. И они добавляются уже 8 месяцев. В каждом месяце добавлялось порядка 1000 элементов. Так вот при нажатии на кнопку мне надо, чтобы обработка в документе АвансовыйОтчет разделила элементы по месяцам и в каждом месяце удалила все, кроме первых 5 добавленных в этот месяц.
Пока что, я додумался обратиться только ко всем метаданным документов через запрос, но не смог дать границу времени, то есть каждый месяц. Пока для наглядности я оставил ТекущаяДата. На руках у меня есть щас этот код:

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


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


[Varlant1n]

Я чуток доработал и сделал так:

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


Для Каждого МетоданноеДокументы Из Метаданные.Документы Цикл
ИмяДокумента = МетоданноеДокументы.Имя;
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ ПЕРВЫЕ 5
|    "+ИмяДокумента+".Ссылка
|ИЗ
|    Документ."+ИмяДокумента+" КАК "+ИмяДокумента+"
| УПОРЯДОЧИТЬ ПО
        | Дата
        |ИТОГИ ПО
        | Дата ПЕРИОДАМИ(МЕСЯЦ, &НачальнаяДата, &КонечнаяДата)";
НачальнаяДата = Дата(2000,1,1);
КонечнаяДата = Дата(2030,1,1);
Запрос.УстановитьПараметр("НачальнаяДата",НачальнаяДата);
Запрос.УстановитьПараметр("КонечнаяДата",КонечнаяДата);
Результат = Запрос.Выполнить();
ВыборкаДокументов = Результат.Выбрать();
Пока ВыборкаДокументов.Следующий() Цикл
ВыборкаДокументов.Ссылка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
ПомеченныеНаУдаление = НайтиПомеченныеНаУдаление();
УстановитьМонопольныйРежим(Истина);
УдалитьОбъекты(ПомеченныеНаУдаление, Истина);
КонецЦикла;
КонецЦикла;



Но я не могу додумать цикл, при котором первые 5 останутся, а остальные удалятся. Сейчас происходит обратное.

Добавлено: 26 окт 2020, 11:14

Я ещё дальше проработал код, но теперь мне выдается ошибка: Итератор для значения не определен.

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


Для Каждого МетоданноеДокументы Из Метаданные.Документы Цикл
ИмяДокумента = МетоданноеДокументы.Имя;
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
|   "+ИмяДокумента+".Ссылка
|ИЗ
|   Документ."+ИмяДокумента+" КАК "+ИмяДокумента+"
|ГДЕ
        |    "+ИмяДокумента+".Дата МЕЖДУ &НачальнаяДата И &КонечнаяДата
|УПОРЯДОЧИТЬ ПО
        | Дата";
НачальнаяДата = Дата(2000,1,1);
КонечнаяДата = Дата(2030,1,1);
Запрос.УстановитьПараметр("НачальнаяДата",НачальнаяДата);
Запрос.УстановитьПараметр("КонечнаяДата",КонечнаяДата);
Результат = Запрос.Выполнить();
Нужные = 0;
Для каждого Элемент Из Результат Цикл
Нужные = Нужные + 1;
Если Нужные > 5 Тогда
Элемент.Ссылка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
ПомеченныеНаУдаление = НайтиПомеченныеНаУдаление();
УстановитьМонопольныйРежим(Истина);
УдалитьОбъекты(ПомеченныеНаУдаление, Истина);
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;



[ls600]

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

Выгрузи результат в таблицу значений 

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

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

[Varlant1n]

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

Выгрузи результат в таблицу значений 

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

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

Теперь выдает такую ошибку:
{Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(31)}: Метод объекта не обнаружен (Следующий)
      Пока Результат.Следующий() Цикл

[ef0din]

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

Выгрузи результат в таблицу значений 

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

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

Теперь выдает такую ошибку:
{Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(31)}: Метод объекта не обнаружен (Следующий)
      Пока Результат.Следующий() Цикл

Для Каждого Стр Из Результат Цикл

[Varlant1n]

Для Каждого Стр Из Результат Цикл

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


Для Каждого МетоданноеДокументы Из Метаданные.Документы Цикл
        ИмяДокумента = МетоданноеДокументы.Имя;
        Запрос = Новый Запрос;
        Запрос.Текст = 
        "ВЫБРАТЬ
        |    "+ИмяДокумента+".Ссылка
        |ИЗ
        |    Документ."+ИмяДокумента+" КАК "+ИмяДокумента+"
        |ГДЕ
        |    "+ИмяДокумента+".Дата МЕЖДУ &НачальнаяДата И &КонечнаяДата
|УПОРЯДОЧИТЬ ПО
| Дата
|ИТОГИ ПО
| Дата ПЕРИОДАМИ(МЕСЯЦ, &НачальнаяДата, &КонечнаяДата)";
НачальнаяДата = Дата(2000,1,1);
КонечнаяДата = Дата(2030,1,1);
Запрос.УстановитьПараметр("НачальнаяДата",НачальнаяДата);
Запрос.УстановитьПараметр("КонечнаяДата",КонечнаяДата);
Результат = Запрос.Выполнить().Выбрать();
Счетчик = 0;
Для Каждого ЭлементДокумента Из Результат Цикл
Счетчик = Счетчик + 1;
Если Счетчик > 5 Тогда
Попытка
ЭлементДокумента.Ссылка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
ПомеченныеНаУдаление = НайтиПомеченныеНаУдаление();
УстановитьМонопольныйРежим(Истина);
УдалитьОбъекты(ПомеченныеНаУдаление, Истина);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;


Ошибка: {Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(31)}: Итератор для значения не определен
      Для Каждого ЭлементДокумента Из Результат Цикл

[ef0din]

Для Каждого Стр Из Результат Цикл

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


Для Каждого МетоданноеДокументы Из Метаданные.Документы Цикл
        ИмяДокумента = МетоданноеДокументы.Имя;
        Запрос = Новый Запрос;
        Запрос.Текст = 
        "ВЫБРАТЬ
        |    "+ИмяДокумента+".Ссылка
        |ИЗ
        |    Документ."+ИмяДокумента+" КАК "+ИмяДокумента+"
        |ГДЕ
        |    "+ИмяДокумента+".Дата МЕЖДУ &НачальнаяДата И &КонечнаяДата
|УПОРЯДОЧИТЬ ПО
| Дата
|ИТОГИ ПО
| Дата ПЕРИОДАМИ(МЕСЯЦ, &НачальнаяДата, &КонечнаяДата)";
НачальнаяДата = Дата(2000,1,1);
КонечнаяДата = Дата(2030,1,1);
Запрос.УстановитьПараметр("НачальнаяДата",НачальнаяДата);
Запрос.УстановитьПараметр("КонечнаяДата",КонечнаяДата);
Результат = Запрос.Выполнить().Выбрать();
Счетчик = 0;
Для Каждого ЭлементДокумента Из Результат Цикл
Счетчик = Счетчик + 1;
Если Счетчик > 5 Тогда
Попытка
ЭлементДокумента.Ссылка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
ПомеченныеНаУдаление = НайтиПомеченныеНаУдаление();
УстановитьМонопольныйРежим(Истина);
УдалитьОбъекты(ПомеченныеНаУдаление, Истина);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Иначе
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;


Ошибка: {Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(31)}: Итератор для значения не определен
      Для Каждого ЭлементДокумента Из Результат Цикл

Если хотите через "Выгрузить()" - тогда "Для Каждого", если через "Выбрать()" - тогда "Следующий()"