Обработки по регистрам 1с 7.7 #459457

Уважаемые коллеги, подскажите пожалуйсто где можно найти обработку - выполняющую следующую функцию: корректную чистку регистра оборотов в 1с 7.7 торговле sql. Заранее безмерно благодарен!!!

нет таких обработок...

Что есть " корректную чистку регистра оборотов в 1с 7.7"?

Ну чтоб ничего не осталось однозначно

Удалить записи из регистра за какой -то заданный период???

Хорош тупить, а? Пролетел, как вонючий ветер, по веткам - полегчало?

т.е я понимаю никак???

ну ответьте пожалуйсто!!! нет так нет !!!

в роду были случаи дебилизма?

вообщем никак не хотите Вы мне помочь я понял!!!

если отчет формируется долго, я так понимаю надо сделать тестирование и исправление ИБ?

Пишется за 3 минуты. А что, должны хотеть?

это вопрос к некой сферической конфигурации в вакууме?

"Если отчет формируется долго" - нужно разобраться, почему он формируется долго.

что за отчёт

Отчет принадлежит объектам конфигурации 1С:"Торговля и склад" база формата sql, база чистая - была заведена с 01.01.2010г, данный отчет имеет вот такой алгоритм работы в части процедуры: Сформировать Процедура Сформировать    Перем Запрос, ТекстЗапроса, Таб;        ПроверкаИнтервалаОтчета(ДатаНачала,ДатаКонец);    xlsЛист=ExcelApp.Worksheets(сзЛисты.ТекущаяСтрока);    Ном=5;    СпсЕкс=СоздатьОбъект("СписокЗначений");    //Пока ПустоеЗначение(xlsЛист.Cells(1,Ном+1).Value) = 0 Цикл    //    Ном=Ном+1;    //    СпсЕкс.ДобавитьЗначение(Врег(СокрЛП(ExcelApp.Cells(1,Ном).Value)));    //КонецЦикла;    //Если СпсЕкс.РазмерСписка = 0 Тогда    //    Предупреждение("Неверный формат таблицы!", 5);    //    Возврат;    //КонецЕсли;    НазвЛиста="";    НазвЛиста=сзЛисты.ПолучитьЗначение(сзЛисты.ТекущаяСтрока);        ГрТов=Константа.ГруппаЮМ;        Запрос = СоздатьОбъект("Запрос");    ТекстЗапроса =    "//{{ЗАПРОС(Сформировать)    |Период с ДатаНачала по ДатаКонец;    |Фирма = Регистр.ПродажиЮМ.Фирма;    |ДатаОтгрузки = Регистр.ПродажиЮМ.ДатаОтгрузки;    |Товар = Регистр.ПродажиЮМ.Товар;    |Контрагент = Регистр.ПродажиЮМ.Контрагент;    |Ответственный = Регистр.ПродажиЮМ.Ответственный;    |АдресДоставки = Регистр.ПродажиЮМ.АдресДоставки;    |Объем = Регистр.ПродажиЮМ.Объем;    |Функция ОбъемСумма = Сумма(Объем);    |Группировка ДатаОтгрузки;    |Группировка Контрагент без групп;    |Группировка Товар без групп;    |Группировка АдресДоставки;    |Условие(Фирма=выбФирма);    |Условие(ДатаОтгрузки >= ДатаНачала);    |Условие(ДатаОтгрузки <= ДатаКонец);        |"//}}ЗАПРОС    ;            // Если ошибка в запросе, то выход из процедуры    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда        Возврат;    КонецЕсли;    Таб = СоздатьОбъект("Таблица");    Таб.ИсходнаяТаблица("Сформировать");    Таб.ВывестиСекцию("Заголовок");    Состояние("Заполнение выходной таблицы...");    Таб.Опции(0, 0, Таб.ВысотаТаблицы, 0);    Пока Запрос.Группировка = 1 Цикл        Пока Запрос.Группировка = 1 Цикл            Пока Запрос.Группировка = 1 Цикл                Пока Запрос.Группировка = 1 Цикл                    печФорматТД="";                    Если ПустоеЗначение(Запрос.АдресДоставки.ФорматТД)=0 Тогда                        печФорматТД=Запрос.АдресДоставки.ФорматТД;                    Иначе                        печФорматТД=Запрос.Контрагент.ФорматТД;                    КонецЕсли;                                        Таб.ВывестиСекцию("Строка");                                        ExcelApp.Cells(Ном,1).NumberFormat="ДД.ММ.ГГГГ";                    ExcelApp.Cells(Ном,1).Value=Запрос.ДатаОтгрузки;                                        ExcelApp.Cells(Ном,2).NumberFormat="@";                    ExcelApp.Cells(Ном,2).Value="Московская область";                                        ExcelApp.Cells(Ном,3).NumberFormat="@";                    ExcelApp.Cells(Ном,3).Value=СокрЛП(Запрос.Контрагент.ПолнНаименование);                                        ExcelApp.Cells(Ном,4).NumberFormat="@";                    ExcelApp.Cells(Ном,4).Value=СокрЛП(""+Запрос.Контрагент.Код+"-"+Запрос.АдресДоставки.Код);                                        ExcelApp.Cells(Ном,5).NumberFormat="@";                    ExcelApp.Cells(Ном,5).Value=СокрЛП(Запрос.АдресДоставки);                                        ExcelApp.Cells(Ном,6).NumberFormat="@";                      ExcelApp.Cells(Ном,6).Value=СокрЛП(Запрос.Ответственный);                                        ExcelApp.Cells(Ном,7).NumberFormat="@";                    ExcelApp.Cells(Ном,7).Value=СокрЛП(Запрос.Контрагент.ГруппаКлиентаЮМ);                                        ExcelApp.Cells(Ном,8).NumberFormat="@";                    ExcelApp.Cells(Ном,8).Value=?(Запрос.Контрагент.Сеть=0,"",СокрЛП(Запрос.Контрагент.НазваниеСети));                                        ExcelApp.Cells(Ном,9).NumberFormat="@";                      ExcelApp.Cells(Ном,9).Value=СокрЛП(печФорматТД);                                        ExcelApp.Cells(Ном,10).NumberFormat="@";                      ExcelApp.Cells(Ном,10).Value=СокрЛП(СокрЛП(Запрос.Товар.НаименованиеЮМ));                                        ExcelApp.Cells(Ном,11).NumberFormat="@";                        ExcelApp.Cells(Ном,11).Value=СокрЛП(Строка(Запрос.Товар.КодЮМ));                                        ExcelApp.Cells(Ном,12).NumberFormat="# ##0,00000";                    ExcelApp.Cells(Ном,12).Value=Запрос.ОбъемСумма/1000000;                                        Ном=Ном+1;                КонецЦикла;            КонецЦикла;        КонецЦикла;    КонецЦикла;        ExcelApp.Visible=1;    Таб.ВывестиСекцию("Итого");    Таб.ТолькоПросмотр;    Таб.Показать("Сформировать", ""); КонецПроцедуры

чума ! что за конфа, нетленка ?

А сколько собственно времени выполняется сам запрос?

распиши регистр ПродажиЮМ

|Группировка АдресДоставки;

+1

угу там не группировку, а по адресу отсортируй

автор, кто писал обработку ?

ПродажиЮМ измерения Фирма ДатаОтгрузки Товар Контрагент Ответственный АдресДоставки ресурсы Объем

есть кто живой? что скажите?

Мне вот например страшно советовать таким людям

да не бойся я не кусаюсь!!!

Убери и сделай замер времени выполнения собственно запросы, без вывода в excel

+ Вот эти измерения можно было бы убрать в реквизиты. ДатаОтгрузки Ответственный АдресДоставки

без вывода в ексель 1-2 минуты

А с выводом?

30 и не факт что выведется:(

Комментарий нужен?

пятнично!

Рекомендую воспользоваться немного :) Записать(<?>,); Синтаксис: Записать(<ИмяФайла>,<ТипФайла>) Назначение: Записать таблицу в файл.

И при чем тут казалось бы регистр?!...

-->

записать файл екселя? вместо показать? я правильно понял?

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

NS проснулся! :) По сути, каждая операция типа ExcelApp.Cells(Ном,8).NumberFormat="@"; это есть обращение к Excel через OLE, что не есть быстрая операция.

Нужно просто вывести данные в таблицу и ее потом сохранить с помощью метода Записать (см. 34).

По работе с отчетами и выводе результатов в таблицу можно посмотреть тут

Вот более подробный пример