НачВремя = _GetPerformanceCounter();
НачДатаРождения = '15.12.1978';
оСпр = СоздатьОбъект("ЗапросКСправочнику");
оСпр.Инит("Пациенты");
оСпр.ДобавитьРеквизиты("ТекущийЭлемент,Код");
Для К = 0 По ВыбКолвоЭлем - 1 Цикл
оСпр.ДобавитьУсловие("ДатаРождения", НачДатаРождения + К, "=", , 1);
тзЭлем = оСпр.ВыполнитьЗапрос();
тзЭлем.ВыбратьСтроки();
Пока тзЭлем.ПолучитьСтроку() = 1 Цикл
КонецЦикла;
КонецЦикла;
КонВремя = _GetPerformanceCounter();
Предупреждение("Отработано за " + (КонВремя - НачВремя) / 1000 + " с.");
КонецПроцедуры
| [th] Показатель [/th] [th] Значение [/th] | |
| Таблиц | 344 |
| Объём DBF | 31,14 ГБ |
| Объём CDX | ~4 ГБ |
| Записей | 218 460 937 |
| Ключей | ~405 800 000 |
| Скорость сборки | 1,46 с на миллион ключей на ядро |
| Штатная переиндексация 1С | ~1800 с |
| Наша, 8 потоков | 151 с |
| Ускорение | 12x |
SC8135
Цитата: trdm от 17 июля 2026, 09:17НАДО БЫ КУДА-НИТЬ ЗАКИНУТЬ ИНТЕЛЛОВСКИЙ КОМПЙЛЕР, рядом положить.Нужен репозитарий для всего наследства 7.7. На гитхабе и гитлабе.
а то его непонятно как качать
Цитата: trad от 23 сентября 2025, 09:14https://www.dropbox.com/scl/fi/9dz75sifg1iep7sh7l8fa/icpp.zip?rlkey=tudkcp4w4ygaj58u9ancsv0wk&dl=0В этом архиве есть битые имена папок и файлов вот тут icpp\Testing\Config\ - есть у кого-то другой архив с целыми папками и файлами?
не уверен что самое последнее