Файловая БД,

ВсегоЭлементов = 0;
Спр = СоздатьОбъект("Справочник.Контрагенты");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл  
    ВсегоЭлементов=ВсегоЭлементов+1;
КонецЦикла;

База УРБДшная, поэтому код не гарантированно равен числу элементов.

Может так ?

ВЫБРАТЬ
    КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Номенклатура.Ссылка) КАК Ссылка
ИЗ
    Справочник.Номенклатура КАК Номенклатура

(1) В условии только исключи из отбора группы и помеченные на удаление, если необходимо =)

select count (ID) from $Спраовчник.Контрагеныты

(1) а как это в 7.7 работать будет ?

(4) см. (3) - ODBCRecordSet из 1с++.

О, наконец-то появилась возможность применить 1С++

Спасибо!

(6) Бгггг

Если база DBF, взять размер файла вычесть размер заголовка и поделить на размер записи. Быстрее просто не придумаешь :)

(8) не забыть про помеченные удаленными записи DBF

ТекущийЭлемент = Справочник.Контрагенты.ТекущийЭлемент;
Функция Счётчик = Счётчик()

Функция получения "свободных" кодов.
    ТекКод = 1;
    
    Спр = СоздатьОбъект("Справочник.Номенклатура");
    Спр.ПорядокКодов();
    
    Спр.ВыбратьЭлементы(0);
    
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        
        СправКод = Число(Спр.Код);
        
        Пока ТекКод <> СправКод Цикл
            ТекКод = ТекКод + 1;
        КонецЦикла;
        
    КонецЦикла;

В справочнике - сортировка по коду. От последнего кода отнять полученное функцией число.
Как вариант :)

(11) девушка, Вы в Индии не бывали?

(12) Может она там и родилась?

(12) А что?
(13) Нет.

(14) Код очень индусский

(15) Каков вопрос, таков и ответ :)

(16) раз уж используете цикл, то не проще ли просто посчитать количество простым счётчиком (а = а + 1;) ?

(17) Нет. Мне были нужны именно "свободные" коды.

(18) а, ну если Вам были нужны, то да. Пусть (0) тоже спервая считает пропуски, а потом отнимает их от самого большого кода.

Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Сформировать)
    |ТекущийЭлемент = Справочник.Номенклатура.ТекущийЭлемент;
    |Функция Счётчик = Счётчик();
    |Группировка ТекущийЭлемент без упорядочивания;
    |"
    ;
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    Сообщить(Запрос.Счётчик);

(20) я уже тут (10) написал.
Но похоже тут никто не читает. :-)

все зависит от варианта хранения данных:

в кс быстрее запрос. в фс - перебор.