Создание DBF-файла со строками ,у меня создает с одной строкой ,не вижу из-за чего...

Здр., уже под конец недели, что-то голова не соображает нормально, подскажите почему, в результате этого кода: в результате только одна строка, с заполненным полями...
Запрос, который перед этим кодом 20 раз проверял, там выборка со многими строками, а вот этот код (заполнения дбф), только один раз заполняет строку, и выходит из цикла...

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ДБФ.Добавить(); // Добавление строки

        ДБФ.CODE = ВыборкаДетальныеЗаписи.Код;
        ДБФ.NUM  = ВыборкаДетальныеЗаписи.Ссылка.КодПоДРФО;
        ДБФ.NAME = ВыборкаДетальныеЗаписи.Ссылка.Ссылка.Наименование;


        Если ВыборкаДетальныеЗаписи.ДокументВид = Справочники.ДокументыУдостоверяющиеЛичность.НайтиПоНаименованию("Паспорт") Тогда
            Док = 3;
        Иначе
            Док = "";
        КонецЕсли;
        ДБФ.DOCCODE= Док;
        ДБФ.SERDOC=  ВыборкаДетальныеЗаписи.ДокументСерия;
        ДБФ.NUMDOC=  ВыборкаДетальныеЗаписи.ДокументНомер;
        ДБФ.VYDDOC=  ВыборкаДетальныеЗаписи.ДокументКемВыдан;
        ДБФ.DATEDOC= ВыборкаДетальныеЗаписи.ДокументДатаВыдачи;
        ДБФ.NAMETEL="";
        ДБФ.ADDR="";
        ДБФ.BIRTHDATE=ВыборкаДетальныеЗаписи.Ссылка.ДатаРождения;


        //ФИО!!!
        Запрос = Новый Запрос;
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ФИОФизЛицСрезПоследних.Фамилия,
        |    ФИОФизЛицСрезПоследних.Имя,
        |    ФИОФизЛицСрезПоследних.Отчество
        |ИЗ
        |    РегистрСведений.ФИОФизЛиц.СрезПоследних КАК ФИОФизЛицСрезПоследних
        |ГДЕ
        |    ФИОФизЛицСрезПоследних.ФизЛицо = &ФизЛицо";

        Запрос.УстановитьПараметр("ФизЛицо", ВыборкаДетальныеЗаписи.Ссылка.Ссылка);

        РезультатЗапроса = Запрос.Выполнить();

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

        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            ДБФ.LASTNAME=ВыборкаДетальныеЗаписи.Фамилия;
            ДБФ.FIRSTNAME=ВыборкаДетальныеЗаписи.Имя;
            ДБФ.MIDDLENAME=ВыборкаДетальныеЗаписи.Отчество;
        КонецЦикла;



        ДБФ.Записать(); // Запись строки

    КонецЦикла;

    ДБФ.ЗакрытьФайл(); // Этап 6. Закрытие файла