Тогда агрегацию можно убрать.

Собственно в ПУБ действительно дурновато написан модуль проведения. Руки б за такое повыдергивать горе писателям. Но что есть то есть.
Если по уму то я переписываю (иногда полностью) модуль проведения для того что б можно было налету перепроводить базу. Делаю так:

Процедура ОбработкаПроведения()
    Если Константа.НашеПроведение=0 Тогда
	  // стандартное проведение
    Иначе
	  // наше перепроведение
    КонецЕсли;
КонецПроцедуры 

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

Флаг-функция ГрупповаяОбработка() видит только перепроведение, вызванное через Операции -> Проведение документов...

А оно не всегда бывает удобным.
Плюс, программно перепроведение вызывается из тучи мест - и всюду дописывать передачу параметра, чтоб вызывать перепроведение в нужном режиме?


А вот обращение напрямую к константе - вопрос спорный и зависит от поставленной задачи.
Не стоит забывать, что обращение к константе всегда вызывает запрос в таблицу _1SConst, которая частенько бывает раздута за счет периодических значений.
Т.е. иногда имеет смысл создать глобальную переменную и при начале работы записывать туда значение константы.

Dmitry The Wing писал(а) 18. Января 2011 :: 01:57:

Да там каждый второй модуль проведения такой, что хоть вешайся.
Отчасти, это обусловлено тем, что первичный учет построен на регистрах; а по сформированным движениям пишутся проводки. Но только отчасти.

Согласен. Запись в таблицы документов идет. Специально немерял, но есть такое предположение что напрямую отрабатывать должно быстрей чем 1С методами. Хотя может и неправ, спорить небуду.

Да начиная с незабываемого

ЧтоСписывать = "000000100"; 

Ну и на примере документа Поступление из переработки:
например, такая строка:

СпособСписания = глСпособСписания(ВидМПЗ.Идентификатор(), ДатаДок);
Если (СпособСписания = 9) Тогда
	СтатусВозврата(0);
КонецЕсли; 

Это делается в цикле по строкам.
При этом, чуть выше (в этом же цикле) стоит куча проверок (заполненность реквизитов ТЧ документа) - и эта куча проверок завершается вполне логичным

Если ЕстьОшибкиЗаполнения = 1 Тогда
	Продолжить;
КонецЕсли; 

- чтоб просто показать ошибки по строкам, не гоняя тяжелые алгоритмы. (Хотя, на вскидку, мне помнится даже вариант с проверкой СтатусВозврата() = 0, вместо ЕстьОшибкиЗаполнения)

Хотя их вариант "ЕстьОшибкиЗаполнения" УЖЕ спорное решение. Мое мнение: уж лучше сделать лишний (отдельный) проход по строкам документа, в котором проверять заполненность (ну, может подготавливать какие дополнительные данные - какую-то ТЗ набить...).
Ибо такая простая вещь, как "автовод новой строки" в руках неопытного пользователя оборачивается документами с пустой последней строкой - и в стандартном ПУБе это означает, что мы по полной прогнали проведение, чтоб потом сказать "Ахтунг! строка незаполнена!!!!!".
И то, что по дефолту автоввод новой строки в ПУБе, может быть, и не включен - не отменяет порочности подхода.

Dmitry The Wing писал(а) 24. Января 2011 :: 06:19:

Ну, здесь косяк не в быстродействии, а в качестве кода.
Ибо каждый раз, когда я это вижу я, а) начинаю считать номера позиций; б) начинаю смотреть в глобале, а за что же отвечает каждая позиция.
Можно придумать несколько других схем передачи этого хитрого параметра, чтоб его можно было точно так же собирать в документе и парсить в глобале (например, банально через СписокЗначений.Установить("<ИмяРегистра>", 1)).

Цитата:

Ну, по хорошему, да - проверка заполнения реквизитов делается при записи.
А при проведении делается проверка остатков + подготовка таблицы партий для ФИФО (ЛИФО).
Но в ПУБе это все нах#рачено в модуль проведения.

А, вот еще вспомнил - далеко не всегда проводки создаются в единственном месте (как завершение ОбработкиПроведения()).
Например, глРасчетыПриПоступлении() сама формирует проводки

Написал получение остатков в модуле проведения расходной накладной прямым запросом. Если проведение идет задним числом, получается в разы быстрее. Но если проведение идет текущим временем (на ТА), то прямой запрос стабильно медленнее. Замеряю с помощью функции _GetPerformanceCounter(), при штатном расчете остатков (ОстаткиПолучить()) документ на 8 строк проводится где-то за 140-150 мс, при прямом запросе - за 160-180мс.

Вот текст прямого запроса. Там мне надо получить остатки, стоимость и резервы на складе, плюс общий остаток, путь и резервы по каждой позиции. Как еще можно оптимизировать?

-------------------------------------------------------------------------------

ИТЗ=СоздатьОбъект("ИндексированнаяТаблица");
     
     Recordset.УстановитьТекстовыйПараметр("ТекДок",ТекущийДокумент());
     щийДокумент(),0));
     Recordset.УстановитьТекстовыйПараметр("перУслуга",перУслуга);
Recordset.УстановитьТекстовыйПараметр("Склад",Склад);
     
     Если ИтогиАктуальны()=1 Тогда
           ДатаРасч="";
     Иначе
           ДатаРасч=":ТекПоз~";
     КонецЕсли;
     
     Соед="
     |INNER JOIN $ДокументСтроки.РасходнаяНакладная as Д ON Д.IDDOC=:ТекДок AND Товар=$Д.Товар
     |";
     
     ДопСоединения="";
     ДопПоля="";
     
     Если ДокументОснование.Вид()="Счет" Тогда
           Recordset.УстановитьТекстовыйПараметр("ДокОсн",ДокументОснование);
           Recordset.УстановитьТекстовыйПараметр("ДокОснСклад",ДокументОснование.Склад);
           ДопСоединения=ДопСоединения+"
           |LEFT JOIN
           |$РегистрОстатки.РезервыТоваров("+ДатаРасч+","+Соед+",Товар=$Д.Товар AND Склад=:ДокОснСклад AND Счет=:ДокОсн~,(Товар),(Количество)) as РегРез ON $Док.Товар=РегРез.Товар";
           ДопПоля=ДопПоля+",
           |РегРез.КоличествоОстаток AS РезКол";
     КонецЕсли;
     
     //Общие остатки
     ДопСоединения=ДопСоединения+"
     |LEFT JOIN
     личество)) as Рег1 ON $Док.Товар=Рег1.Товар";
     ДопПоля=ДопПоля+",
     |Рег1.КоличествоОстаток AS ОбщКол";

     //Общий путь
     ДопСоединения=ДопСоединения+"
     |LEFT JOIN
     оличество)) as РегП ON $Док.Товар=РегП.Товар";
     ДопПоля=ДопПоля+",
     |РегП.КоличествоОстаток AS ОбщПуть";

     //Общие резервы
     ДопСоединения=ДопСоединения+"
     |LEFT JOIN
     личество)) as РегРез1 ON $Док.Товар=РегРез1.Товар";
     ДопПоля=ДопПоля+",
     |РегРез1.КоличествоОстаток AS ОбщРезКол";
     
***

     ТекстЗапроса="
     |SELECT
     |$Док.Товар as [Товар $Справочник.Товары],
     |$Док.Количество as [Кол],
     |Рег.КоличествоОстаток as [Ост],
     |РегПарт.КоличествоОстаток AS СебестКол,
     |РегПарт.СуммаУпрОстаток AS СебестУпр,
     |РегПарт.СуммаРубОстаток AS СебестРуб"
     +ДопПоля+"
     |FROM
     |$ДокументСтроки.РасходнаяНакладная as Док
     |LEFT JOIN
     |$Справочник.Товары as СпрТов ON $Док.Товар=СпрТов.ID
     |LEFT JOIN
     |$РегистрОстатки.ОстаткиТоваров("+ДатаРасч+","+Соед+",Товар=$Д.Товар AND Склад=:Склад,(Товар),(Количество)) as Рег ON $Док.Товар=Рег.Товар
     |LEFT JOIN
     ичество,СуммаУпр,СуммаРуб)) as РегПарт ON $Док.Товар=РегПарт.Товар"
     +ДопСоединения+"
     |WHERE
     |Док.IDDOC=:ТекДок AND $СпрТов.ВидТовара<>:перУслуга
     |";
     
     RecordSet.ВыполнитьИнструкцию(ТекстЗапроса, ИТЗ);
     
     Если КонстРазрОтрицОст=Перечисление.Булево.Нет Тогда
           ИТЗ.ВыбратьСтроки();
           Пока ИТЗ.ПолучитьСтроку()=1 Цикл
                 Если ИТЗ.Кол>ИТЗ.Ост Тогда
                       Сообщить("На складе нет товара "+ИТЗ.Товар+". Не смог провести!");
                       СтатусВозврата(0);
                       Возврат;
                 КонецЕсли;
           КонецЦикла;
     КонецЕсли;
     
     ИТЗ.ДобавитьИндекс("ИндТовар","Товар",0);

     ВыбратьСтроки();
     Пока ПолучитьСтроку()=1 Цикл
           Если ИТЗ.НайтиСтроку("ИндТовар",Товар,0,1)>0 Тогда
                 
           КонецЕсли;
     КонецЦикла;

Имеешь в виду, что лучше не получать табличную часть запросом и потом джойнить регистры, а сразу запрос к регистру по списку товаров табличной части? Так будет быстрее?