AlexNikolskyА партии по средней считаете?

Процедура ДвиженияПоРегистрам(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоСкидкам,
ТаблицаПоПлатежнымКартам, ТаблицаПоБанковскимКредитам, ТаблицаПоПродажамПоДисконтнымКартам, Отказ, Заголовок);

// По некоторым регистрам услуги проводить не нужно.
// Подготовим отдельную таблицу.
ТаблицаПоТоварамБезУслуг = ОбщегоНазначения.ОтобратьСтрокиПоКритериям(ТаблицаПоТоварам,
Новый Структура("Услуга", Ложь)).Выгрузить();

//Получим таблицу по комплектам.
ТаблицаПоКомплектам = УправлениеЗапасами.СформироватьТаблицуКомплектующих(ТаблицаПоТоварамБезУслуг, ЭтотОбъект);

ДвиженияПоРегистрамУпр(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоТоварам, ТаблицаПоСкидкам,
ТаблицаПоКомплектам , ТаблицаПоПлатежнымКартам, ТаблицаПоБанковскимКредитам,
ТаблицаПоПродажамПоДисконтнымКартам, Отказ, Заголовок);

ДвиженияРегистраОперативныхРасчетов(РежимПроведения, СтруктураШапкиДокумента, Отказ, Заголовок);

ДвиженияПоТоварамОрганизаций(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоКомплектам, Отказ, Заголовок);

ДвиженияПоРегиструСписанныеТовары(РежимПроведения, СтруктураШапкиДокумента, ТаблицаПоКомплектам, Отказ, Заголовок);

СтруктураТаблицыВыручки = Новый структура("НомерСтроки, Номенклатура, Услуга,, ВидЦенности, Ценность, Партия,
|СтавкаНДС, Сумма, СуммаВал, НДС, НДСВал, СуммаБезНДС, СуммаБезНДСВал,Комиссионный,Комитент,ДоговорКомиссии ,ВалютаРасчетовСКомитентом,СуммаСписания, Количество");

//Формируем таблицу выручки с нужной структурой и заполняем по таблице услуг
ТаблицаВыручки = ОбщегоНазначения.СформироватьТаблицуЗначений(ТаблицаПоТоварам,СтруктураТаблицыВыручки,,Истина);
ТаблицаВыручки.ЗаполнитьЗначения(Ложь, "Комиссионный");
ТаблицаВыручки.ЗаполнитьЗначения(0, "Количество");

ДвиженияРегистровПодсистемыНДС(СтруктураШапкиДокумента, ТаблицаВыручки, Отказ, Заголовок);

// Зарегистрируем в последовательности УУ.
Если ОтражатьВУправленческомУчете Тогда
ЗаписьРегистрации = ПринадлежностьПоследовательностям.ПартионныйУчет.Добавить();
ЗаписьРегистрации.Период = Дата;
КонецЕсли;

УчетнаяПолитика = РегистрыСведений.УчетнаяПолитика.ПолучитьПоследнее(Дата);

*** Если УчетнаяПолитика.СписыватьПартииПриПроведенииДокументов Тогда
УправлениеЗапасамиПартионныйУчет.ДвижениеПартийТоваров(Ссылка, Движения.СписанныеТовары.Выгрузить());
Иначе
// В неоперативном режиме границы последовательностей сдвигаются назад, если они позже документа.
Если РежимПроведения = РежимПроведенияДокумента.Неоперативный Тогда
УправлениеЗапасамиПартионныйУчет.СдвигГраницыПоследовательностиПартионногоУчетаНазад(Дата, Ссылка, Организация);
КонецЕсли;
КонецЕсли;

КонецПроцедуры // ДвиженияПоРегистрам()



*** - строка которая в замерах показывает 95% выполнения
Конфиг "Управление торговлей", редакция 10.3 (10.3.1.17)

AlexNikolskyпостараюсь посмотреть сегодня...
иначе через неделю
Удачи и пережить праздники без потерь для здоровья :)

AlexNikolskyпостараюсь посмотреть сегодня...
иначе через неделю
Да партиии FIFO

AlexNikolskyнельзя от FIFO отказаться?

Никак

Пришел ответ 1с
Я плакалЪ
____________________________________________________________________________
При обращениях обязательно указывайте номер релиза программных файлов и типовой конфигурации.
Уточните, пожалуйста, какой релиз конфигурации используется?

Как выполняется восстановление последовательности?

Как часто выполняется эта процедура?

Для ускорения работы базы вообще можно посоветовать следующее:
1. настроить Address Windowing Extensions (AWE), для того чтобы сиквел использовал память большую чем 2Гб. С.м статья ИТС "Использование физической памяти размером более 2 ГБ в Microsoft SQL Server 2000"

2. Периодически нужно обновлять индексы и дефрагментировать их. Для этого предлагает выполнять команды:

//Регулярная переиндексация таблиц базы данных с помощью команды
DBCC DBREINDEX ( table_name ).
//Регулярная дефрагментация индексов базы данных с помощью команды
DBCC INDEXDEFRAG(database_name, table_name, index_name).


См. статью ИТС "Эффективность использования индексов Microsoft SQL Server 2000"

3. Уменьшать файл транзакций:

BACKUP LOG Имя_Базы_Данных WITH TRUNCATE_ONLY
go
DBCC SHRINKFILE(Имя_Файла_Журнала_Транзакций)
go

См. статью ИТС "Уменьшение размера журнала транзакций MS SQL Server 2000"

4. Обновление статистики для оптимизации запросов:

exec sp_msforeachtable N’UPDATE STATISTICS ? WITH FULLSCAN’
DBCC FREEPROCCACHE

5. Уменьшение базы данных TEMPDB. См. статью ИТС "Работа с базой данных TEMPDB"
#*#

При ответах, пожалуйста, полностью оставляйте переписку.
_______________________________________________________________________________

AlexNikolskyпочему?
Потому что у нас сеть супермаркетов. миллионы продаж за день один и один тот-же товар могут привезти несколько поставщиков.

ScareCrow
>Пришел ответ 1с
чувак ты попал!

Posted via ActualForum NNTP Server 1.4

А именно?

AlexNikolskyну и что? Будет средняя считаться.

Руководство не устраивает средняя.
Млин из за сломаного колеса приходится изобретать новый велосипед :)

Писал ранее что обнофил бухов на файловом режиме за 3 минуты. На сиквеле обновлялось с 13-00 до 14-10.
НАРОД КОМУ НЕ ЛЕНЬ!!!
даже с маленькими базами 1с8.х попробуйте сделать копию и поделать основные операции в файловом режиме. Просто интересно хоть у когонибудь сиквельный вариан работает быстее??

AlexNikolskyОчень жаль. Тогда следи за регистром. Чтобы хорошо закрывался.
Интересно именно победить не меняя техусловий

Клаву пора менять уже половина букв через раз работают :)

AlexNikolskyа процедуре "УправлениеЗапасамиПартионныйУчет.ДвижениеПартийТоваров"
смотрел замеры производительности?
Нет не смотрел. Отдельно замерять по процедуре?

AlexNikolskyКонфу периписывали?
Дописывали только работу с торговым оборудованием и обмен с 9 распределенными базами. Процедура проведения вообще не трогалась.

AlexNikolskyКонфу периписывали?

Могу выслать на мыло полный замер производительности запакованый около 300 кило.

AlexNikolskyДавай.
Ушло