Выборка запроса. Как грузить по n. количество строк.
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
А как вы вообще по результатам запроса делаете документ?
Программно с добавлением строк табличной части?
Ну так сделайте счетчик, переменную, чтобы когда она достигала 200, документ записывался, счетчик сбрасывался и создавался новый объект.
Точнее можно подсказать, если будет пример работающей записи без разбиения по 200
Программно с добавлением строк табличной части?
Ну так сделайте счетчик, переменную, чтобы когда она достигала 200, документ записывался, счетчик сбрасывался и создавался новый объект.
Точнее можно подсказать, если будет пример работающей записи без разбиения по 200
x = 0;
Для Счетчик = 0 ПО РезультатЗапроса.Количество() Цикл
Счетчик1 = 0;
ДокУстЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
ДокУстЦен.Комментарий = "по 30";
ДокУстЦен.Дата = ТекущаяДата();
Для Счетчик = Счетчик1 ПО РезультатЗапроса.Количество() Цикл
Если x = РезультатЗапроса.Количество() Тогда
Сообщить("Загрузка завершена");
Возврат;
КонецЕсли;
Сообщить(РезультатЗапроса[x].Ссылка);
стртч = ДокУстЦен.Товары.Добавить();
стртч.Номенклатура = РезультатЗапроса[x].Ссылка;
Счетчик = Счетчик+1;
Счетчик1 = Счетчик1+1;
x = x+1;
Если Счетчик1 = 30 Тогда
ДокУстЦен.Записать(РежимЗаписиДокумента.Запись);
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Вроде работает.)
Для Счетчик = 0 ПО РезультатЗапроса.Количество() Цикл
Счетчик1 = 0;
ДокУстЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
ДокУстЦен.Комментарий = "по 30";
ДокУстЦен.Дата = ТекущаяДата();
Для Счетчик = Счетчик1 ПО РезультатЗапроса.Количество() Цикл
Если x = РезультатЗапроса.Количество() Тогда
Сообщить("Загрузка завершена");
Возврат;
КонецЕсли;
Сообщить(РезультатЗапроса[x].Ссылка);
стртч = ДокУстЦен.Товары.Добавить();
стртч.Номенклатура = РезультатЗапроса[x].Ссылка;
Счетчик = Счетчик+1;
Счетчик1 = Счетчик1+1;
x = x+1;
Если Счетчик1 = 30 Тогда
ДокУстЦен.Записать(РежимЗаписиДокумента.Запись);
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Вроде работает.)
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот