Здравствуйте!
Помогите, плиз, разобраться.

Есть список номенклатур, фирм, складов.
Нужно найти последнее поступление от поставщика для каждой комбинации на конкретную дату.

Сейчас я сделал по регистру остатков типа так:


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

Работает медленно.
Наверно потому что для каждого движения приходится проверять документ, так как по самому движению не ясно, что это за операция.

Как это можно ускорить?
По регистру партий быстрее будет работать?

Черный запрос попробовать?

(0) Для начала попробовать ограничить объем анализируемой информации. Фильтр по регистру  - это хорошо. Но в любом случае это большой объем. Почему бы не получать эту инфу запросом по документам "ПоступлениеТМЦ"? Причем сразу с условием по контрагенту. Объем анализируемой инфы будет значительно меньше.

Мне кажется, быстрее будет запрос к документам поступления с группировками Фирма, Склад, Номенклатура, ДатаДок, Документ.
Запрос выгрузить в индексированную таблицу и свернуть по фирме, складу, номенклатуре. Перебрать полученную таблицу, сортируя вложенные таблицы по дате документе и получая документ на самую свежую дату.

В общем случае задача быстро не решается. Вдруг у вас база за 10 лет, сто тысяч номенклатурных позиций, по десятку поступлений в день и какая-то номенклатура могла последний раз приходить лет девять назад?

(4) > В общем случае задача быстро не решается.

Пожно прописать в справочник ТМЦ даты первой/последней закупки и опираться на это.

(0) > По регистру партий быстрее будет работать?

По регистру продаж.

(1) что такое "черный запрос"?

(2)
контрагент не важен, нужна просто дата последнего поступления,
кстати оказалось склад тоже не важен,
то есть надо найти последнее поступление по фирме + номенклатура

(4) так и есть: база 7 лет, по некоторым товарам поступление х\з когда было

(5) не совсем понял

"прописать даты первой\последней закупки" - как прописать? обработкой? и как эти даты будут меняться в дальнейшем?

(6) почему "по регистру продаж"?
мне же поступления нужны

Сделай запрос по справочнику Партии.

(0) Это у тебя отчет?

(13) да, это нужно для отчета

(12) в справочнике партий партии создаются не только при поступлении,
еще и при перемещениях, при возвратах,
как из справочника отбирать партии только для поступлений?

(15) Партия.ПриходныйДокумент.Вид() - "Поступление" (где-то так, дословно - не помню).

(15) а если по документам поступления сделать запрос? Слабо?

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

в 77 выборка по документам поступления в обратном порядке может дать фору запросу  :)
...с прерыванием при первом нахождении искомого конечно

(18) ну вот сейчас по регистру сделано - очень медленно работает

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

(20) "по регистру" можно тоже сделать "по-всякому"...

(20) У тебя перебор идет движений - он медленный.

Регистры Остатки ТМЦ, ПартииНаличие/ПартииОтданные - остатков - ты не получишь через СоздатьОбъект("Регистр.ОстаткиТМЦ") движения за период;

Либо делать регистр оборотов по приходу и перепроводить доки, что нереально (хотя регистр подсунуть можно в движения доков, вопрос будешь ли парится), либо использовать чОрный запрос.

(21)

Функция ДатаПрихода(ВыбЗнач)

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

    ТаблОстатков.Сортировать("Партия+");
    
    КолВоСтрок = ТаблОстатков.КоличествоСтрок();

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

    Возврат Док;
    
КонецФункции // ДатаПрихода

(24) Не пойдет. Не вернет документ прихода в котором была номенклатура но на момент обращения к функции остаток = 0.
Например кончился ходовой товар.

(23) так что такое "чорный запрос"?

(26) да обычный запрос.который "не прямой"

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Период с 01.01.00 по '" + ТекущаяДата() + "';
|Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
|Количество = Регистр.ОстаткиТМЦ.Количество;
|Функция ПриходНоменклатура = Приход(Количество);
|Условие(Номенклатура в спВыбНоменклатура);
|";

Если Запрос.Выполнить(ТЕкстЗапроса) = 0 Тогда Возврат; КонецЕсли;

(24)  при учете по среднему по партиям не получится

(7) в (0) код краными и синими буквами, а бывает запрос черными буквами.

(29) Все получится; но будет (25)

ёк

Процедура Сформировать()

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

    ТЗрез.ВыбратьСтроку();    
    
КонецПроцедуры

Если перебором - можно для расхода вид документа не вытаскивать

Пока РегОстатки.ПолучитьДвижение() = 1 Цикл
Если РегОстатки.Приход=0 тогда
продолжить;
КонецЕсли;

но вообще надо в отладчике смотреть где время тратится

(31) не получится. будет ссылка на пустую партию.

А еще партию может породить документ оприходование или документ возврат от покупателя

(35)  оприходование да, а возврат от покупателя вроде нет, там идет привязка к уже существующим патиям

(36) часто возвраты от покупателя не привязывают к продаже, тогда этот возврат создает новую партию

(36) Даже если возврат введен не на основании?

(0) ты пытаешься предыдущую цену поступления сравнить с текущей и все это в момент проведения или записи документа?

(36) если возврат без основания он создаст новую партию

(37) только в том случае, если вручную не указана партия. При отсутсвии документа-основания - партию можно указать вручную.

(40) см (41)

(0) Решил задачку?

Кстати скуль? DBF?

(44) SQL

(45) ну так сделай прямым запросом и не парься