Понимаю, что тема уже была, смотрел и анализировал, но всё же...

Стоит задача - выбрать данные регистра с отбором по дате, занести в ТЗ, свернуть её и снова загрузить в тот же регистр. Вычитал, что можно использовать следующую конструкцию:

НаборЗаписей = РегистрыНакопления.ТоварыОрганизацийКПередаче.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

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

       КонецЦикла;
   КонецЦикла;
   НаборЗаписей.Загрузить(Тз);
   
   НаборЗаписей.Записать();

Сейчас она во многом мне не нравится, хотя я точно не знаю, верная она или нет, в любом случае, выполняется она чертовски долго (почти 12 часов), существует ли другой вариант или можно как-то ускорить этот процесс, например, избавившись от вложенного цикла?

Ах да, забыл самое главное. УТ 11.1 у меня)

"12 часов" это насколько записей?

(2) ну за день бывает около 100-200, суммарно за полмесяца (работаю на копии базы от 14 июня) приблизительно 1500-1700, не думаю, что это много.


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


(4) забыл эту часть кода приложить. Она есть, копия ТЗ, на которой выполняется свёртка.

(5)для чего тогда в цикле "Строки = ТЗ.НайтиСтроки(Отбор);"?

полторы тыщи записей - 12 часов????????
У тебя сервер на первом пне, что ли??

(4) там у меня ещё суммирование идёт по ресурсам Количество и Возвращено:

ТЗ2.Свернуть("Владелец, Номенклатура, Склад, ВидЗапасовПродавца",    "Количество, Возвращено");

только расчету себестоимости на УПП позволено крутится больше 3-4 часов, всё остальное - очень кривой код ИМХО)

давай весь код сюда ... точнее обработку выложи куда-нибудь

(10) ок, щас

(10) http://yadi.sk/d/TGE8tcMU6Vmzq

(12)пиля ... я забыл тут скачка файла из нета забанена

вырежи весь код ... и отправь письмом на [email protected]

код - жееееесть...
в логику вникать на стал, но

1) соединение в запросе чудовищное
2) если делаешь поиск в больших таблицах - используй индексирование

(14) готово

наверное надо как-то так сделать


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


ну это если на твой код орентироваться

и как мне кажеться, это

нзрнТовары.Отбор.Регистратор.Установить(Выборка.Регистратор);

надо изменить на это
нзрнТовары.Отбор.Регистратор.Установить(Документы.ПередачаТоваровМеждуОрганизациями.НайтиПоНомеру("000Т-000001"));

(19) щас со старшим программистом сидим, он примерно такой же вариант подсказывает, как в (17). По крайней мере, я понял, что и без циклов можно обойтись, хотя вряд ли - в любом случае виды движений в каждой строке изменять придётся, но этот цикл навряд ли будет 12 часов выполняться)

(17) а, проглядел условие в запросе. Тогда цикл даром не нужен.

(20)они в самом запросе и меняються

Теперь проблема такая: вроде и установил отбор по регистратору - а всё равно идёт ругачка на его отсутствие, в чём может быть загвоздка?

(23)скорее всего в из-за (19) ... у тебя регистратор в отборе не соотвествует регистратору который устанавливается из таблицы значений

и кстати глянь может ли твой регистратор делать движения по данному регистру

(25) я даже просто тупо создаю документ "передача товаров", он стопудово делает движения по этому регистру, а в результате хоть бы хны.

Документ = Документы.ПередачаТоваровМеждуОрганизациями.СоздатьДокумент();
Документ.Дата = ТекущаяДата();
Документ.Записать();
нзрнТовары.Отбор.Регистратор.Установить(Документ);
нзрнТовары.Загрузить(тзРезультат);
нзрнТовары.Записать();

Может порядок неправильный или что ещё?

(26)а в запрос ты его отдаешь?

(27) да в запросе есть Регистратор, пробовал, как раньше получалось нзрнТовары.Отбор.Регистратор.Установить(Выборка.Регистратор) - не пашет...

так что даст?

нзрнТовары = РегистрыНакопления.ТоварыОрганизацийКПередаче.СоздатьНаборЗаписей();
нзрнТовары.Загрузить(тзРезультат);
нзрнТовары.Записать();

{Форма.Форма.Форма(59)}: Ошибка при вызове метода контекста (Записать)
нзрнТовары.Записать();
по причине:
Ошибка записи! Не установлен отбор по регистратору (Регистр накопления: Товары организаций к передаче)

Что и следовало ожидать...

Документ = Документы.ПередачаТоваровМеждуОрганизациями.СоздатьДокумент();
Документ.Дата = ТекущаяДата();
Документ.Записать();
нзрнТовары.Отбор.Регистратор.Установить(Документ.Ссылка);

(31) блиииииннн.... во я дурак... Ссылка же, ну конечно!))) Пятница, мозги совсем не пашут))