Процедура КнопкаСформироватьНажатие(Кнопка)
   Рег = РегистрыСведений.ОбъектыДоступаДокументов.СоздатьНаборЗаписей();
   Рег.Прочитать();
   К = 0;
   Т = 0;
   Для Каждого Стр Из Рег Цикл
       К = К + 1;
       Если Стр.ДокументСсылка.Дата > Дата(2011,12,31) Тогда
           Продолжить;
       КонецЕсли;
       Т = Т + 1;
   КонецЦикла;
   Сообщить("всего " + К + ", удаляем " + Т);
КонецПроцедуры
...
Крутит уже минут 20 и до конца не дошел. Вопроса два: это плохо? и сколько тогда будет идти обрезка?

и где там обрезка?

запросом быстрее будет, тормозит скорее всего из-за тр.ДокументСсылка.Дата

классный копрокод

рукалицо.жпг

работает? нетрож!

Ваз 2107 тоже машина.
И на спидометре у него 160 есть.
Колеса 4 и сиденья 4.
Че не так?

(0) А сколько этот регистр занимает места в % отношении от размера базы?

(7) Я думаю как у всех. регистр-то типовой, растет пропорционально росту числа документов.

(0) По сабжу:
1: Плохо
2: (1)+1
(3) Не, для классности не хватает: НаборЗаписей выгрузить в тз. Посчтитать количество записей ТЗ. Вывести индикатор выполнения. :)

(3) Это прототип.

(9) До вечера посчитает.

(10) Клющечника видно издалека :)

Вместо лисапеда можно взять типовую обработку документов из конфигурации.

умение растянуть пятиминутную работу на 8 часов - главное качество программиста 1С

(0) Я тебя занес в амбарную книгу

надо еще поставить галочку напротив фамилии и потом обвести кружочком ( т.е. открыжить и округлить)

(13) Для этого надо иметь ИТС. Или получить в подарок по почте. ибо инфостаровское бесплатное скачивание я уже сегодня нажимал. И больше оно не доится...

(14)Оплата то по времени, это как такси со счетчиком, там оплата за километраж.

(6) врешь, сидений там 5

(17) и поэтому ты решил зафигачить 20000 запросов в цикле?

(19) Там 2 сиденья и 1 диван :)

(17) А что мешает перед
Рег = РегистрыСведений.ОбъектыДоступаДокументов.СоздатьНаборЗаписей();
   Рег.Прочитать();
Установить отбор на нужную дату
Потом Рег.Очистить();
РезЗаписать();
ЗЫ: Звиняйте, если где ошибся, 1С-ки по рукой нету СП глянуть.

(19)2 сиденья и диван.

Надо проверить способности сервера. Я думаю из больше 20000. В том и пичалька.

(24) для (20)

(24) Хинт: а почему бы не выбрать количество 1 запросом?

он не умеет, разве не ясно с первого поста?

(27) Вопрос не в этом. Ты не понял сабжа с первого поста.

кому нить сейчас надоест этот вброс и он напишет запрос. И потом еще полдня будут оптимизировать запрос. Рабочий день прошел. все счастливы.

Всё ещё молотит. Запрос у меня есть.

(30) не допускаю оскорблений на эотм форуме, но ты все же .у.а. !

Троллинг в тематической ветке

Да ладно вы. Забавно же.
(0) Через точку ходить конечно не гуд. Но подобный код у меня, даже с переходом через точку, с 13000 записей регистра, пролазит не более чем за минуту.
Ставь в цикле: ОбработкаПрерыванияПользователя(); и Сообщить(к); Хоть веселее будет.

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

Как минимум нельзя обращаться к реквизиту через 2 точки это очень сильно про сживает скорость обращения. Зачем в каждом витке получать дату? Получи ее заранее.
Опять же на кой 2 счетчика, по моему у набора же есть метод количество.

А самое главное такое проще сделать запросом или отбором... Даже та же выборка может отработать быстрее...

(34) Не 20000. там значительно больше.

А что плохого в этом коде? Он же разовый. Нафига его оптимизировать?

(37) правильно. Надо мыслить зачем а не как.

(33) там еще ДокументСсылка составного типа у него. То есть ещё каждый раз по 256 таблиц дергаются.

(37) "А что плохого в этом коде?" - "Крутит уже минут 20 и до конца не дошел"

(38) ну тогда наливай кофе и сиди, пей. У тебя ведь почасовая оплата. Торопиться некуда.

(41) Мне некуда.

Программа работает, сисадмин загрузку процессора отслеживает, потом подтвердит.

Посчитал в другой копии всего 1 174 302. Та ещё молотит...
Вопроса два: это плохо? и сколько тогда будет идти обрезка?

Резать надо не меньше двух третей.

(43) два дибила. запустили копрокод и уставились на загрузку процессора. facepalm.jpg

А зачем считать документы с датой '20111231000001' и до '20111231235959'?

(47) Их записи и надо порезать.

Стоит определить набор удаляемцх записей запросом, а ты перебираеш весь регистр

(48) Намекаю: в V8 есть секунды, минуты и час в типе ДАТА. Ты условие поставил Дата > Дата(2011,12,31), а не Дата > Дата(2011,12,31,23,59,59)

>> Стр.ДокументСсылка.Дата
мда

(49) Скорее запросом определить набор документов.

вроде ж не пятница

(53) Так мы ещё и не режем...

(54) А кого в пятницу зарежут?

(55) см (44)

(37) Это клюшечный код. Восьмерочник никогда такой код не напишет, потому что запросом выбрать быстрее и удобнее.

(57) Ты ничего не понимаешь в зарабатывании денег.

(40) Ну и что? Его запустить раз в год нужно.

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

(58) Тогда ты забыл про


Состояние("Обработано " + К + ", удаляем " + Т);


вставить в цикл.

(60) промахнулся. исправлю в окончательном варианте.

(59) Это не восьмерочник, а снеговик ;) Восьмерочник знает и то, и то.

(62) А шестерка?

(57) Я бы не сказал, многие даже если будут писать с такой логикой, попытаются все же максимально правильнее написать, так как это очень влияет на скорость, например:

Процедура КнопкаСформироватьНажатие(Кнопка)
   Рег = РегистрыСведений.ОбъектыДоступаДокументов.СоздатьНаборЗаписей();
   Рег.Прочитать();
   Т = 0;
   ДатаПо = КонецДня(Дата(2011,12,31));
   Для Каждого Стр Из Рег Цикл
       Если Стр.ДокументСсылка.Дата > ДатаПо Тогда
           Продолжить;
       КонецЕсли;
       Т = Т + 1;
   КонецЦикла;
   Сообщить("всего " + Рег.Количество() + ", удаляем " + Т);
КонецПроцедуры

(61) Лол?)

(65) Тебе не угодишь.

(63) Это гуру уже.

Вот и обед...

(68) Надо было еще предусмотреть возможность паузы. А то ты обедаешь, а программа работает бесплатно.

(69) :)

(69) Спасибо за идею! Обязательно буду применять ее в своих новых нетленках.

(69) Ну это уже константу надо вводить, и в цикле
Если КонстантаЯОбедаю=Истина Тогда
Продолжить;
КОнецЕсли;

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

(72) Всему учить надо...  :)
Если Час(ТекущаяДата()) = 13 Тогда
  Продолжить;
КонецЕсли;

(74) Не, не пойдет. А если обед плавающий? :)

(72) Неоптимальный код! Константу надо непосредственно в теле цикла проверять.

Пока не КонстантаЯОбедаю цикл
КонецЦикла;

кстати, уберешь сообщить - будет быстрее

(72)(74) Надо не Если, а Пока использовать.

И вообще, не Продолжить надо использовать, а


ВЫБРАТЬ
   *
ИЗ
   РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный


(79) Тогда есть шанс, что после обеда программа не вернётся в рабочее состояние.

(78) +1

(75) Так это же разовый код, чего заморачиваться
(74) Гениально

(78) Ну да. А еще можно юзверя привлечь, что бы не сидел без дела, пока обработка работает. Типа
Если Сч%100=0 Тогда
Если Вопрос"Обработано"+Сч Продолжить Да/нет Да Тогда
продолжить
КонецЕсли;
ЗЫ: На синтаксис прошу не обращать внимания. :)

(80) Ну, еще и за сверхурочные заплатят :) И главное админ подтвердит - сервер работал как папа Карло :)

(83) Можно капчу выдавать, а то будет тупо щёлкать.

(85) Интересно, а можно ли на 1С сделать убегающую кнопку?..

(86) Нет, там нет события "накрывания" мышью

(86) Можно на форму выдать 10 кнопок и рандомно одну делать активной, а остальные пассивные.

В час будет где-то 120 000 обрабатывать. За 10 часов закончит. Ночь. по 1 000 рос. рублей в час. 10 000 рос. рублей за обрезку. Дорого?

(88) И повесить обработчик ожидания на 1/10 секунды, чтобы эта активность постоянно менялась :)

(89) Долго. Очень долго. Откровенная ИБД!!! После такого и складывается стереотип о программистах 1С.

ЗЫ: А по деньгам - это личное дело каждого, как договоришься.

(87) А если на форму HTML документ вывести?

(86)
v8: Положение курсора мыши
OFF: Занимательное программирование на 1С
v8: ActiveX элементы управления

(90) Это подразумевалось. ;)

Режем, режем... Скоро пятницо.

(95) Держи нас в курсе.

(96) Хорошо. Как наступит пятница я отпишусь.

(86) Можно сделать чтоб по щелчку на кнопке "Да" она менялась местами с кнопкой "Нет". А на возмущения пользователей отвечать: Смотри куда мышкой тыкаешь, дятел!

(98) А еще можно кнопки назвать:

"Да, остановить" и "Нет, не продолжать"

(89) Ты сам заплатить должен за то, что так надругался над СУБД.

(0) Пля, че правда запросы отменили?

(102) Только я. Присоединяйся?

(100) А чего плохого - кто-то перестанет видеть документы прошлых лет...

Кто там спрашивал Когда? Встречайте OFF: Пятница

На продолжение v8: Вызвать нельзя увидеть модуль объекта из ФормаВыбора - очередное издевательство? похоже, еще одна пятничная тема

(0) "Конфигуратор \ Отладка \ Замер производительности" в помощь