//Номера соответствуют порядку полей
//в списке ВЫБРАТЬ: 3 - вид лица, 2 - код
Запрос = Новый Запрос;
Запрос.Текст =
    "ВЫБРАТЬ
    |   Наименование,
    |   Код,
    |   ЮридическоеФизическоеЛицо
    |ИЗ
    |   Справочник.Контрагенты
    |УПОРЯДОЧИТЬ ПО 3, 2";

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл
    Вид = Выборка.ЮридическоеФизическоеЛицо;
    Сообщить(Строка(Вид) + ", " +
        Выборка.Код);
КонецЦикла;