PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Индикация обработки справочника

// Не оставляйте пользователя перед "застывшим" экраном.
СК=СоздатьОбъект("Справочник.Контрагенты");
СК.ПорядокКодов();
СК.ОбратныйПорядок(1);
СК.ВыбратьЭлементы(0);
СК.ПолучитьЭлемент();
ОбщееКоличество = Число(СК.Код);
СК.ОбратныйПорядок(0);
СК.ВыбратьЭлементы(0);
Пока
 СК.ПолучитьЭлемент()=1 Цикл
     Состояние("Обработано: " + Окр(Число(СК.Код)/ОбщееКоличество*100, 0, 1) + "%");
КонецЦикла;

- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz