Здравствуйте, снова вынужден спросить совета
Есть обработка, которая делает корректировки регистров,создавая документы корректировки, по просьбе заказчика в целях оптимизации работы этой обработки, чтобы не нагружать систему, необходимо создавать документы не более (предположим) 200 записей. Предположим, что получается документ с 230 записями. Тем самым необходимо бить 200 записей создавать документ и создавать новый документ с оставшимися 30-ю записями. обработка делает различные действия и создаёт необходимую ТЗ из которой потом создаются док. ТЗ соответственно содержит 230 записей.Как отобрать первые 200 с внешней &ТЗ запросом, это понятно, но вот в чём встал вопрос как отобрать остальные 30 этой же ТЗ и создать новый документ. Не могу понять как бы мне задать условия отбора, если в принципе наверное я могу отобраться по индексу или как-то ещё. Других полей на которые можно было бы опереться не вижу
Заранее благодарен

В конструкторе есть поле индекс, но честно не знаю как оно работает

*вкладка индекс

(1) ну типа

ГДЕ
   НомерСтроки > 200

(3) А увидит он НомерСтроки или ругнётся на него, явного же такого поля нет. И как я понял это надо делать вторым запросом? Сначала запрос до 200 создать документ, потом снова туда же запрос >200 создать документ? Или всё можно описать в рамках одного запроса?

(4) ну есть же такое поле у тз

(4) выбрать первые 200 отсортировать в обратную сторону, вбрать первые 200 :)

выбрать строка из тз где строка не в (выбрать первые 200 из тз)

(0)А зачем тебе именно запросом?ВСе равно же строки потом перебирать чтобы движения делать.
Выбирай первые 200 и удаляй их. Потом оставшиеся 30

(5) у ТЗ есть вот такие поля:
http://pastenow.ru/803ffb5eb768631f5feade5bbf75a608
есть конечно поле индекс, но как в запросе к нему обратиться? А других полей к чему прицепиться не вижу((

(0) Посмотри как расчет себестоимости в УПП работает. Там это реализовано.

(8) Ну запросом же типа оптимизированей))
Можно и не запросом, но вот думаю, а можно ли это с запросом реализовать?

(10) Нет УПП к сожалению

(11)Любой инструмент нужно применять с умом.
Тебе вообще делить ТЗ необязательно.Поставь счетчик и перебирай ее.
Как только счетчик=200 записывай документ с движениями и создавай новый

(8) Ну да можно конечно реализовать это через Для Индекс= сначала 200, создать док, потом Для Индекс = от 200 до граница, создать док. Хотел малой кровью обойтись (через запрос), но не придумал как отобрать записи после 200-тых.... а жаль)

(14)легко реализуется как в (13), только еще счетчик надо обнулять

или
Если Счетчик%200=0 Тогда...

:-)

(14) а (7) тебе чем не подходит?

(16) уж не знаю корректно ли это в рамках соблюдения правил этики написания кода ,сначала запросом выбрать, а второй раз через цикл и как это влияет на производительность.
а через обнуление счётчика конечно попробую. Спасибо за совет. Только подумаю как это пишется ))

(17) Не совсем понял как это кодом реализовать, "выбрать не" пробовал с самого начала, синтаксическая ошибка говорит

(19) ВЫБРАТЬ
    ТЗ.НомерСтроки КАК НомерСтроки
ИЗ
    &ТЗ КАК ТЗ
ГДЕ
    НЕ ТЗ.НомерСтроки В
                (ВЫБРАТЬ ПЕРВЫЕ 200
                    ТЗ.НомерСтроки
                ИЗ
                    &ТЗ КАК ТЗ)

(20) угу а как у него запрос на 430 строк сработает, тогда что?

(21) рекурсия

(0) делайте как в (13) и не изобретайте лесепеды

Порция = 200;
КоличествоПорций = Цел(ТЗ.Количество()/Порция);
И запрос в цикле, ну а что делать, раз надо :)

(23) Да с учётом что записей может быть разное количество, хотя если брать реальный запрос заказчика, что записей нужно 5000 и делать новый док, вряд ли записей случится (во всяком случае на той базе), например 13000 записей, но полностью с Вами согласен, этот вариант надо предусмотреть и сделать с обнулением счётчика...++

(18)>>Только подумаю как это пишется ))

//-------
Что там думать то?:-)
Док=Документы.Твой.СоздатьДокумент();
Сч-0;
Для Каждого Стр из ТЗ Цикл
    //добавляешь движение по Стр
    Если Сч=200 Тогда
        Док.Записать(РежимЗаписиДокумента.Проведение);
        Сч=0
        Док=Документы.Твой.СоздатьДокумент();
    КонецЕсли;
Конеццикла;
Если Сч>0 Тогда
    Док.Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;

*Сч-0; -> Сч=0;

(26)Еще счетчик увеличить внутри цикла.

+еще забыл:-)

в цикле
Сч=Сч+1;

(28)Да, точно:-)

(26) (28) и руки вырвать :)

(31)За что это?
А то запросом будет оптимальнее,ага...

(32) 200 раз перепроводить документ - вон из профессии

(33)С хрена ли 200 раз? Внимательно прочитай код прежде чем вонкать:-)

и где он 200 раз проводит?

(34) уговорил :) пустой документ на 200

руки тока подкорректировать чтоб код полностью сразу писал, без правки...

(36)Еще раз внимательно прочитай последние 3 строки:-)

Так руки или глаза?)))

(37)Много вас тут корректировщиков:-)
Сами так же все пишите.Так что нечего тут:-)

(39) одному руки, другому глаза...

(41)а тебе губу..:-))

(42)???

(43)....закатать обратно:-)

(25) Делаешь нумерацию в запросе (наростающим итогом), потом выводишь по диапозонам.
Про сч = сч + 1 забудь как про страшный сон

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

Ругнулся,что данные можно передать только во временную таблицу, наверное это где условия я ошибся?

"Мыши пищали, кололись, но продолжали есть кактус."(С)

(47) сначала все в ВТ потом уже обрабатывай

(48) циклом любой сможет, а ты запросом дерни :)

ааа, сейчас поправлю)

(50)Только один вопрос - Зачем?:-)

НомераСтроки то нет же, он и не хочет

(26) Где-то цикл в цикле забыли)

Отвлекли меня от написания рабочего кода, продолжу)

Запросом не получится или не получается. нет поля к которому можно было бы привязаться.
Через цикл что-то запутался, никак не выходит.
Вычитал, что это можно сделать рекурсивно, но не знаком с теорией как это реализовать

(45) Что имели ввиду?

МояТЗ = Новый ТаблицаЗначений;    
        МояТЗ = Данные.Скопировать();
        Индекс = 0;
             Для Индекс = 0 По 100 Цикл

            НоваяСтрока = МояТЗ.Добавить();
            ЗаполнитьЗначенияСвойств(НоваяСтрока, Данные[Индекс]);
            Индекс=Индекс+1;
            Если Индекс=100 Тогда
            СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);
                Индекс=0
            КонецЕсли;
        Конеццикла;
        Если Индекс>0 Тогда
            СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);
        КонецЕсли;

Подскажите пожалуйста, где собака порылась?
Спасибо
Большое

Данные[Индекс]

а по ходу тут все не так...

тебе предлагали заполнять ТЧ документа в цикле с счетчиком, а ты тут с ТЗ чето мудриш...

Да, извините. Так никто мне не сможет помочь. НЕ полные данные предоставил.
Данные - это исходная ТЗ состоящая из 230 строк
Поэтому и прошу помощи

А так нельзя?

покажи лучше СоздатьДокументКорректировки

Не совсем понял, что показать?

процедуру СоздатьДокументКорректировки()

Процедура СоздатьДокументКорректировки(ИмяРегистра, Данные)
    
    Если Данные.Количество() = 0 Тогда
        //ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Расхождений по " + ?(ИмяРегистра = "СтоимостьОбъектовОС", "стоимости", "амортизации") + " не обнаружено");
        Возврат;
    КонецЕсли;
    
    Если Данные.Количество() > 100000 Тогда
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Количество строк превышает 100000. Запись невозможна");
        Возврат;
    КонецЕсли;
    
    ДатаДвижений = КонецДня(ДатаСведения);
    
    Док = Документы.КорректировкаРегистров.СоздатьДокумент();
    Док.Организация = Организация;
    Док.Дата = ДатаДвижений;
    Док.УстановитьНовыйНомер();        
    Док.Комментарий = ИмяРегистра + " | документ создан автоматически | " + Формат(ТекущаяДата(), "ДЛФ=D");
        
    Таблица = Док.ТаблицаРегистровНакопления.Добавить();
    Таблица.Имя = ИмяРегистра;
    
    ОбновлениеИнформационнойБазы.ЗаписатьОбъект(Док);
        
    НаборЗаписей = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Док.Ссылка);
    
    Данные.Колонки.Добавить("Период");
    Данные.ЗаполнитьЗначения(ДатаДвижений, "Период");    
    НаборЗаписей.Загрузить(Данные);
        
    ОбновлениеИнформационнойБазы.ЗаписатьНаборЗаписей(НаборЗаписей);
    
    ДокументыСведения.Добавить(Док.Ссылка);
    
КонецПроцедуры

здесь оставляеш тока СоздатьДокументКорректировки("СтоимостьОбъектовОС", Данные);

простите за ...
здесь это где?

там откуда вызываеш эту процедуру...

понял
а в эту процедуру вставить код со счётчиком?

А в данной процедуре может как раз и встроить счётчик, что если Данные >= столько строкам, то создать первый док? Потом обнулить счётчик и дописать оставшиеся строки?
Может не прав...

(58) Вначале копируешь "Данные" в "МояТЗ" - Зачем?
В цикле добавляешь в "МояТЗ" еще 50 строк из "Данные".
После создания документа, "МояТЗ" очищается?
Зачем в этом цикле "Индекс = Индекс + 1" ?

Согласен не прав

(74) Это я неудачно экспериментировал, пытаясь понять почему стоки добавляет, а колонки не хочет брать из данных, видимо их отдельно надо добавлять

ок, процедуру СоздатьДокКорректировки не трогаем

за место (58) пишем примерно следующее...

    СчетчикВыгрузки = 0; //обьяви на всякий пожарный
    МассивСтрок = Новый Массив;
    Для каждого Стр Из Данные Цикл
        СчетчикВыгрузки = Стр.Индекс;
        Массив.Добавить(Стр);
        Если СчетчикВыгрузки % 99 = 0 Тогда //помни что индекс начинается с 0
            МояТЗ = Данные.Скопировать(МассивСтрок);
            СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);    
            МассивСтрок.Очистить();
        КонецЕсли;        
    КонецЦикла;
    
    Если СчетчикВыгрузки % 99 <> 0 Тогда
        МояТЗ = Данные.Скопировать(МассивСтрок);
        СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);    
    КонецЕсли;

сорь Массив.Добавить(Стр); --> МассивСтрок.Добавить(Стр);

или даже так...

    МассивСтрок = Новый Массив;
    Для каждого Стр Из Данные Цикл
        МассивСтрок.Добавить(Стр);
        Если МассивСтрок.Количество() % 100 = 0 Тогда
            МояТЗ = Данные.Скопировать(МассивСтрок);
            СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);    
            МассивСтрок.Очистить();
        КонецЕсли;        
    КонецЦикла;
    
    Если МассивСтрок.Количество() % 100 <> 0 Тогда
        МояТЗ = Данные.Скопировать(МассивСтрок);
        СоздатьДокументКорректировки("СтоимостьОбъектовОС", МояТЗ);    
    КонецЕсли;

(78) Да это я видел, понимаю машинально.
спасибо, почему сам никак не до пру((
(79) Наверное (ещё не проверил) будет правильнее, а то
СчетчикВыгрузки = Стр.Индекс; - говорит что Индекс ему не нравится, поле объекта не обнаружено

(79) ещё раз спасибо, самому стыдно)))

работает хоть?

Проверяю

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

Обработка не моя, написанная фрилансирами, как то вроде давно

(82) Спасибо