my 1C. Полезная информация.

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


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки