Обход справочника


// 1c7

// Пробег по справочнику
Спр = СоздатьОбъект("Справочник.Контрагенты");
Спр.ИспользоватьВладельца();
Спр.ПорядокКодов();
Спр.ВыбратьЭлементы(0);
Пока Спр.ПолучитьЭлемент()=1 Цикл
    Если Спр.ПометкаУдаления()=1 Тогда
        Продолжить;
    КонецЕсли;
    Элт = Спр.ТекущийЭлемент();
КонецЦикла;