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

В данный момент на руках у меня есть следующий код:

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

Но он не работает почему-то. При этом ошибку не выдает. В локальных переменных в ТипЗначения: АвансовыйОтчет, Null

Для каждого Элемент Из Результат Цикл
            Счетчик = Счетчик + 1;
            Если Счетчик > 5 Тогда
            Иначе
                Прервать;
            КонецЕсли;

У тебя цикл не выполняется ни разу

Как я это могу исправить? У меня просто, видимо, мозгов не хватает... Буду Вам очень благодарен!

(2) Попробовать почитать учебник информатики за 9й класс, где циклы описываются?
Или хотя бы предназачение оператора Прервать в справке?

И кстати... Нигде не увидел проверку условия "первые 5 в _каждом_ месяце"...

(2) ну наверное так
Если Счетчик > 5 Тогда
Прервать;
            Иначе
//удаление
                
            КонецЕсли;

И монопольный режим зачем устанавливать при каждой итерации в истину, и не скидывать в ложь.
В чем смысл
(4) Ну итоги периодами сделал то, а конфигуратор сам догадается:)

И наверное, это долго будет работать:)

обходрезультатазапроса

Человек, который придумал такое задание - больной. Держитесь от него подальше.

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

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

Тестовое задание?

(10) Да, проект в университете

МетоданноеДокументы

https://cs11.pikabu.ru/images/big_size_comm/2019-11_4/1573932515146122574.jpg

(11) Запрос в цикле? Сразу двойка. и на пересдачу.

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

(12) Мне тоже глаза резануло

(13) Ладно б еще работало, так еще и не работает как в задании требовалось:)

В этой задаче прекрасно всё! И сомнительные условия! и разрушительный характер самой обработки! и выборка ВСЕХ документов! И бессмысленное удаление в каждом месяце оставление лишь 5 документов. Кстати, вопрос, как ты определяешь эти 5 первых документов которые требуется оставить ? по какому признаку ? по дате ? по сумме ? или просто на обум?

(17) Я определяю 5 первых документов по дате. То есть мне надо в каждом документе оставить 5 первых добавленных, а остальные удалить...

Обработка ТерминаторБазДанных

Но ведь пользователи могут вносить документы хаотично, сначала за 1 число, потом за 30, потом за 20, потом за 15. Получается перво добавленные документы у тебя в разных числах. Требуется уточнить условие задачи. Сортируем по дате документа или по дате фактического добавления?

(20) Я сортировал по Дате (возрастание). Чтобы от первых документов к последним шло всё

|УПОРЯДОЧИТЬ ПО
|     Дата

(18) Как я понял, надо оставить первые 5 доков в месяце.
А в текущем виде Обработка оставит всего 5 доков каждого вида. вне зависимости от месяца
(20) Ну скорее всего по дате дока

(21)

Так запрос ты должен обходить по группировкам, а не сплошником весь.

(22) Но ведь я сортирую по периодам (Месяц)

|ИТОГИ ПО
|     Дата ПЕРИОДАМИ(МЕСЯЦ, &НачальнаяДата, &КонечнаяДата)";

Что-то типа такого http://catalog.mista.ru/1c/articles/125988/

После запроса ты должен получать не Таблицу значений, а ВЫБОРКУ!
и дальше обрабатывать данные из запроса выборкой по группировкой. еще пару вложенных циклов.

не сортируешь, а говоришь что запрос будет иметь итоги
И надо Результат = Запрос.Выполнить().Выгрузить();
А или выборку с обходои, ну или дерево с обходом

(27) Вот я сделал следующее. Но все равно ошибка: {Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(30)}: Метод объекта не обнаружен (Выбрать)
        ВыборкаДокумента = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруп




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

(28) Надо стараться. ВыборкаИзРезультатаЗапроса и ТаблицаЗначений — это разные объекты

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

и
  Если Счетчик > 5 Тогда
                ВыборкаДокумента.Ссылка.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
                ПомеченныеНаУдаление = НайтиПомеченныеНаУдаление();
                УстановитьМонопольныйРежим(Истина);
                УдалитьОбъекты(ПомеченныеНаУдаление, Истина);
            Иначе
                Прервать;
            КонецЕсли;
:)
ну сразу ж прервется:) говорили ж уже

У меня к вам, дорогие форумчане, вопрос. Нужно ли мне пользоваться ИТОГИ ПО для того, чтобы группировать по месяцам, или надо пользоваться ГРУППИРОВАТЬ ПО? Потому что как только я в запросе использую ИТОГИ ПО, он мне выдает в результате таблицу значений.

(31) Скорее дерево значений

(31) Если ты делаешь итоги по, то и выгружать нужно соответственно не плоскую таблицу, а дерево.
Посмотри параметры РезультатЗапроса.Выгрузить()

Таблица значений получается когда ты пишешь Результат = Запрос.Выполнить().Выгрузить();
А ты должен писать выборку ВыборкаПоИтогам = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПОГруппировкам, "Дата");

Пока ВыборкаПоИтогам.Следующий() Цикл

ВыборкаДокументов = ВыборкаПоИтогам.Выбрать();
  Пока ВыборкаДокументов.Следующий() Цикл

  КонецЦикла;
КонецЦикла;

Два вложенных цикла, первый по итогам, это твои месяца, второй цикл по документам внутри каждого месяца

У переменной Результат: Значение: ТаблицаЗначений и Тип: ТаблицаЗначений
Это то, что я получаю результатом запроса. По идее там уже всё расположено по дате и по каждому месяцу. Но я не могу теперь сделать выборку и с помощью счетчика удалить ненужные мне документы. Так как у меня ошибка из-за Ссылка.ПолучитьОбъект().

"У переменной Результат: Значение: ТаблицаЗначений и Тип: ТаблицаЗначений"

Вот здесь уже не правильно. Таблица значений тебе не нужна, она не подойдет для твоего проекта, так понятно ?

(36) Да, понятно. Сейчас буду пробовать сделать так, как вы сказали выше. Посмотрю как получится

Вот я сделал следующее. Но все равно ошибка: {Обработка.ОбезличиваниеДанных.Форма.Форма.Форма(30)}: Метод объекта не обнаружен (Выбрать)
        ВыборкаДокумента = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруп

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

Так строчка должна быть одна.

1) Результат = Запрос.Выполнить().Выбрать(ОбходРезультатЗапроса.Погруппировкам, "Дата");

(34) Огромное спасибо Вам за помощь! Просто огромное! И все остальным и за советы и за насмешки надо мной (это придает мотивации изучать программирование). Всё получилось! Но у меня к Вам последний вопрос. Стоит ли в цикле по документам, писать Попытку? То есть может ли данная процедура дать ошибку в каком-то случае? Допустим, когда документов нет.

(39) Если доков нет, то и  ошибки не будет, а вот если заблокирован может и дать

И кстати, не очень хорошо что дергаешь сервер в цикле по метаданным, можно вообще все в запрос унести и одним запросом выдернуть.
Но чет я попробовал, как то тормознуто получилось, но у мну доков то много что б так извращаться над ними:)

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

         Если не ПервыйВход тогда
            Подзапрос = Стрзаменить(Подзапрос,"ПОМЕСТИТЬ Док","" );
        КонецЕсли;
        

                 
        
        Запрос.Текст = Запрос.Текст + Подзапрос;
        ПервыйВход = ЛОЖЬ;
        
    КонецЦикла;
    

запрос.Текст = лев(Запрос.Текст, СтрДлина(Запрос.Текст)  - 16);

запрос.Текст = запрос.Текст + "
     |;
         |ВЫБРАТЬ РАЗЛИЧНЫЕ
         |    Док.Ссылка КАК Ссылка,
         |    Док.Месяц КАК Месяц,
     |    Док.ИмяДока КАК ИмяДока,
         |    СУММА(1) КАК Счетчик
         |ИЗ
         |    Док КАК Док
         |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Док КАК Док1
         |        ПО Док.Месяц = Док1.Месяц
         |            И Док.ИмяДока = Док1.ИмяДока
         |            И Док.Ссылка.МоментВремени <= Док1.Ссылка.МоментВремени
         |
         |СГРУППИРОВАТЬ ПО
         |    Док.Ссылка,
         |    Док.Месяц ,
         |    Док.ИмяДока
         |
         |ИМЕЮЩИЕ
         |    КОЛИЧЕСТВО(Док1.Ссылка) <= 2 //тут 5 надо, но еще тормознутее будет
         |
         |УПОРЯДОЧИТЬ ПО
         |    ИмяДока,
         |    Месяц,
         |    Ссылка" ;

Запрос.УстановитьПараметр("Дата",объект.Дата);
тз = Запрос.Выполнить().Выгрузить();

СзНаУдаление = Новый СписокЗначений;

для каждого стр из тз цикл
    СзНаУдаление.Добавить(Стр.Ссылка);
КонецЦикла;

для каждого эл из СзНаУдаление цикл
    Об = эл.Значение;
    Сообщить(ОБ);
    //тут устанавливаешь пометку на удаление
КонецЦикла;

//тут ищешь помеченные и удаляешь,



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

развернули наконец (7)

(42) Ты знал, ты знал...