Есть задача: найти последний по дате приходный документ, в котором есть конкретный материал. База довольно большая и за несколько лет.

Делаю соответствующий запрос. Обхожу этот запрос в нужном мне порядке. а именно, - в обратном порядке. Обойти то я его обойду, но это когда он уже сформирован, а формироваться он может долго.

Сам запрос выполняется по всем годам в прямом порядке: сначала год 2000, затем 2001 и т.д.

Неужели нет способа ускорить?

Если встретился документ с разыскиваемым материалом, например в 2016 году, то нужно прекратить перебор документов.

Как?

Процедура НайтиПоследний()

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

Пока Запрос.Группировка("ПоступлениеМатериалов", -1) = 1 Цикл   // -1 - Обход результатов запроса в обратном порядке      
    Сообщить("Запрос.ДатаДокумента=" + Запрос.ДатаДокумента + "  Запрос.ДатаНомерСчФактуры="+Запрос.ДатаНомерСчФактуры);

КонецЦикла;

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

(2) +1
А также есть смысл использовать запрос к регистру

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

(8) а лучше все-таки (3)

(9) лучше, но сложнее на порядок - разбираться с отдельной технологией и приделывать ВК к базе

(10) у него база вроде даже сиквельная.

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

(2)А как по-вашему будет выглядеть вариант с выборкой?

(0) прямой запрос.
А так, в (0), вот за этот код
|Условие(ОсновнойМатериал.Код = ОснМатериал.Код);
нужно стальной линейкой по пальчикам бить

(14) ребром линейки или гранью?

(15) а можно я еще фофана отвешу?

(12) ну дык! Ник-то у него говорящий...

Если бы вы работали учителями/преподавателями - давно бы уже сидели... За насилие над учащимися... :)

(18) Не дай бог таких в инструктора по вождению))

(14)Чем ненормален код?

(18) я - работал :-)
Ученики через 15 лет спасибо говорили...

(20) анахуа он?

(22)Вы не понимете зачем нужен запрос

(23) Блин... Прострелить коленку...

(21) аналогично, хотя я "учил" меньше. Но постоянно ругаюсь сейчас на всяких ларечников-клюшечников - стучаться за консультациями... ниче, терпят, пасибу говорят, денежку перечисляют.

Если не мы, то - кто?

(20) ну как тебе сказать, например в sql базе выполняется в разы медленнее, если написать по-человечьи

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

(24) одну?

(23) если работы разовые/редко - то забить на быстройдействие.

(23) я не понимаю, зачем сравнивать по коду.

(27) Тогда - времена были другие. Учитель был авторитетом. А сегодня? Ученик откровенно саботирует, да еще и права качает...

У нас многие учителя могли запросто линеечкой по пальчикам

(31) авторитет не зависит от "времени". авторитет зависит от человека.

остается вспомнить анекдот про бегемотиков...

Вот блин, батка рассказывал, раньше вообще на горох ставили, от наука то где была!

(34) в нашей версии про летающих крокодильчиков.

(35) ты ишшо маладой, мне так в детстве поприходилось на горохе в углу постоять...

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

Разве так не лучше?)

(33) Не прав... Сегодня даже просто накричать - чревато.
Не было раньше такого. Не было.

(37) Подай на них в суд, как виновников детской застарелой психической травмы

гыыы! в (38) - второй!

(39) не было чего ?

(42) сотовых телефонов.

(37) каюсь, не застал.

(44) исправляйся. сам. если  накосячишь - так сразу...

(38) Проверил. Абсолютно никакой разницы.

Если делать штатно, то добавить графу отбора и ВыбратьПоЗначению, будет не быстро, а очень быстро. Можно еще и ускорить, ограничив через ИспользоватьЖурнал

(47) слушай, а 1sqlite только на чтение работает, чтоль ?

(47) если ему разово надо - то добавление графы будет дольше..

(48) яяя, инсерт/делете там только с родной базой можно

я бы для начала попробовал бы еще альтернативные варианты. Выборку и Бухитоги.

как?

(52) база файловая или сиквельная?

(53) SQL

(52) Если запрос работает в прямом порядке, может тогда ну его нах? Делать через выборку документов в обратном порядке.

>>Делать через выборку документов в обратном порядке.

Тема создана для этого!

Как выбрать документы в обратном порядке???!!!

Давно бы заглянул в синтакс помошник
ОбратныйПорядок(<?>);
Синтаксис:
ОбратныйПорядок(<Режим>)
Назначение:
Установить порядок выборки документов во времени.
Возвращает значение порядка выборки до вызова:   1 - выборка документов в порядке убывания даты и времени;  0 - в порядке возрастания.
Параметры:
<Режим> -  необязательный параметр. Число: 1 - выбирать документы в порядке убывания даты и времени;   0 - выбирать документы в порядке возрастания даты и времени. Если параметр опущен, то метод просто возвращает текущее значение порядка выборки документов.
Замечание:
Метод можно использовать как процедуру и как функцию.
Метод  можно использовать только для объектов, созданных функцией СоздатьОбъект.

(57) регистры остатков каких-нибудь двигает этот документ?
если да - чем вариант из (8) не подходит?

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

Забыл Док.ВыбратьДокументы(Дата1,Дата2); (60)

(61) ты много чего забыл. а скорее всего даже не знал, а еще и забыл...

(60) подозреваю что материал там в табл. части - перебирать все строки всех документов - ещё больший изврат чем в (0)

(57)
Загрузи 1cpp.dll ,  и выполни следующее:

рс=СоздатьОбъект("ODBCRecordset");
ТекстЗапроса="
|SELECT TOP 1 Журнал.IDDOC [Документ $Документ.ПоступлениеТМЦ]
|FROM _1SJOURN AS Журнал With (NOLOCK)
|    INNER JOIN $ДокументСтроки.ПоступлениеТМЦ AS ПоступлениеТМЦСтроки With (NOLOCK) ON Журнал.IDDOC = ПоступлениеТМЦСтроки.IDDOC
|WHERE ($ПоступлениеТМЦСтроки.Номенклатура = :ВыбНоменклатура)
|    AND ((Журнал.CLOSED & 1) = 1)
|ORDER BY Журнал.DATE_TIME_IDDOC DESC
|";
рс.УстановитьТекстовыйПараметр("ВыбНоменклатура",ВыбНоменклатура);

(вместо "ПоступлениеТМЦ" поставь название своего дока, вместо Номенклатура - название твоего поля)

(63) Если в табличной то да, геморр..

Не скопировалась еще одна сточка: ДокПоступление=рс.ВыполнитьСкалярный(ТекстЗапроса);

(62) Не умничай. За 62 поста, сколько решений предложил ты?

(67) лучше молчать, чем нести куйню, как ты.
я могу сделать это добрым десятком методов. но самый правильный был предложен в (3)

(68) Я всегда правильные методы подсказываю ))
Правда, не все это ценят...

Насчет SQL не скажу, но на файловой выборка вполне могла оказаться быстрей.

(68) Это ты все посты в этой теме нёс куйню, перечитай. И не затыкай меня!

(70) если графа используется - то да. Там тогда вообще шесть строк....

(71) уймись, дерево....

(68)Мальчики, не ссорьтесь.

(73) Ты не у себя на кухне, иди проспись.

(64) "Загрузи 1cpp.dll" - это как?

(76) http://yaforyou.ru/?q=Загрузи%201cpp.dll

(75) у меня на кухне дерева нет. ДСП есть. ты из опилок?

(64)
рс=СоздатьОбъект("ODBCRecordset");
{Документ.Обоснование1.Форма.Модуль(94)}: Неудачная попытка создания объекта (ODBCRecordset)

1CPP.DLL лежит в папке 1С BIN

(79)  Если ЗагрузитьВнешнююКомпоненту("1CPP.dll") = 0 Тогда Предупреждение("Неудачная попытка загрузить 1CPP.dll"); СтатусВозврата(0); Возврат; КонецЕсли;

(79) загрузитьвнешнююкомпоненту(1cpp.dll); воткни в поделку свою, примерно так:

Попытка
   рс=СоздатьОбъект("ODBCRecordset");
Исключение
  Если ЗагрузитьВнешнююКомпоненту("1cpp.dll") =0 Тогда
    Предупреждение ("Пнх, Альфредо!");
    Возврат;
  КонецЕсли;
   рс=СоздатьОбъект("ODBCRecordset");
КонецПопытки

примерно

Попытка
  RS=СоздатьОбъект("ODBCRecordset");
Исключение        
Если ЗагрузитьВнешнююКомпоненту("1cpp.dll") =0 Тогда  Предупреждение ("Не удалось загрузить 1cpp.dll ");
    Возврат;
КонецЕсли;
КонецПопытки ;

ТекстЗапроса="
|SELECT TOP 1 Журнал.IDDOC [Документ $Документ.ПоступлениеМатериалов]
|FROM _1SJOURN AS Журнал With (NOLOCK)
|    INNER JOIN $ДокументСтроки.ПоступлениеМатериалов AS ПоступлениеМатериалов With (NOLOCK) ON Журнал.IDDOC = ПоступлениеМатериаловСтроки.IDDOC
|WHERE ($ПоступлениеМатериаловСтроки.Материал = :Материал)
|    AND ((Журнал.CLOSED & 1) = 1)
|ORDER BY Журнал.DATE_TIME_IDDOC DESC
|";
RS.УстановитьТекстовыйПараметр("Материал",ОснМатериал);

ТЗвыборка = СоздатьОбъект("ТаблицаЗначений");
ТЗвыборка = RS.ВыполнитьИнструкцию(ТекстЗапроса);
RS = "";

ТЗВыборка.ВыбратьСтроки();

Пока ТЗВыборка.ПолучитьСтроку()=1 Цикл
  Материал = ТЗВыборка.Материал;
  Сообщить("Материал="+Материал);
КонецЦикла;

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

Что то не хочет работать, не пойму почему..

RS.УстановитьТекстовыйПараметр("Материал",ОснМатериал);
{Документ.Обоснование1.Форма.Модуль(110)}: Значение не представляет агрегатный объект (УстановитьТекстовыйПараметр)

после загрузки компонениы еще раз создай одбсрекордсет. ты ж его не создал - вывалился по исключению....

(83) ну, не приучен тс к копипасту
:)

да и..текст запроса не верный.

(85)что не так

(86)
>>>ПоступлениеМатериаловСтроки.IDDOC

нет такого алияса ПоступлениеМатериаловСтроки
есть ПоступлениеМатериалов
если че
ну и дальше по тексту исправить

Процедура НайтиПоследний()

ВыбратьСтроки();       
Пока ПолучитьСтроку()=1 Цикл
    Если ПустаяСтрока(ОсновнойМатериал)<>1 Тогда
        ОснМатериал = ОсновнойМатериал;
    КонецЕсли;    
КонецЦикла;    
    
Попытка
  RS=СоздатьОбъект("ODBCRecordset");
Исключение        
Если ЗагрузитьВнешнююКомпоненту("1cpp.dll") =0 Тогда  Предупреждение ("Не удалось загрузить 1cpp.dll ");
    Возврат;
КонецЕсли;
КонецПопытки ;                


DataBase = СоздатьОбъект("ODBCDatabase");
DataBase.Attach1C();

RS=СоздатьОбъект("ODBCRecordset");                    
RS.SetDatabase(DataBase);

ТекстЗапроса="
|SELECT TOP 10 Журнал.IDDOC [Документ $Документ.ПоступлениеМатериалов]
|FROM _1SJOURN AS Журнал With (NOLOCK)
|    INNER JOIN $ДокументСтроки.ПоступлениеМатериалов AS ПоступлениеМатериалов With (NOLOCK) ON Журнал.IDDOC = ПоступлениеМатериалов.IDDOC
|WHERE ($ПоступлениеМатериалов.Материал = :Материал)
|    AND ((Журнал.CLOSED & 1) = 1)
|ORDER BY Журнал.DATE_TIME_IDDOC DESC
|";
RS.УстановитьТекстовыйПараметр("Материал",ОснМатериал);

ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ = RS.ВыполнитьИнструкцию(ТекстЗапроса);

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
  Материал = ТЗ.Материал;
  Сообщить("Материал="+Материал);
КонецЦикла;

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


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

а что именно не работает?

ТЗ.ВыбратьСтроки();
{Документ.Обоснование1.Форма.Модуль(124)}: Значение не представляет агрегатный объект (ВыбратьСтроки)

(88) вместо
----------
DataBase = СоздатьОбъект("ODBCDatabase");
DataBase.Attach1C();

RS=СоздатьОбъект("ODBCRecordset");                    
RS.SetDatabase(DataBase);
---------
оставить только
---------
RS=СоздатьОбъект("ODBCRecordset");                    
----------

ну и
  Материал = ТЗ.Материал;
естественно, даст ошибку...

Кстати, в ПоступлениииМатериалов Материал - какого вида?

(93)из справочника Материалы

и типа ? мало ли, он там как <Справочник>

Если оставлю только RS=СоздатьОбъект("ODBCRecordset"); то получаю ошибку

ТЗ = RS.ВыполнитьИнструкцию(ТекстЗапроса);
{Документ.Обоснование1.Форма.Модуль(122)}: База данных не установлена

(96) 1cpp какой версии хоть ?

Фига себе...
До сотки дотянули...

А сделал бы выборку - уже давно другую задачу решал бы...
Комсомольцы, блин...

(98) он не сделал бы.

(98) если б он мог бы сделать - давно б сделал...

(99, 100) прямым запросом он и к 1000-му посту не сделает, похоже я в (10) правильно оценил уровень сложности

(101) а каким - по твоему мнению - он способен?
1) тупой перебор доков и строк
2) перебор по графе
3) запрос/бухзапрос
4) перебор регистра

Чего-то автор по-ходу курнул, раз не отвечает, надо ж хоть как-то нику соответствовать

(103) если б курнул - рассказывал бы долго и витиевато...
Хотя, конечно, у на кого как подействует...
------------
Cтоит на холме Мальчиш-кибальчиш и кричит:
- Измена, измена, измена!!!
Под холмом сидит Мальчиш-плохиш, жрет варенье, заедает печеньем  и говорит:
- Странная шука эта конопля-  кого на измену пробивает,а кого на хавчик...

(96) Ты для начала бы на (4), (6) ответил/попробовал...
Сдается  мне, что рано тебе пока прямые запросы по шаблонам править

(104) Интересно, а "Малыш и Карлсон" - это шведский вариант?