Если НЕ ЗначениеЗаполнено(ЭлементыФормы.ИмяФайла.Значение) Тогда
        Предупреждение("Не указан файл выгруженных данных.");    
        Возврат;
    Иначе
        Файл = новый XBase;
        Файл.ОткрытьФайл(ЭлементыФормы.ИмяФайла.Значение,,Ложь);
        Пока Файл.ВКонце() = 0 Цикл
            Запрос = новый Запрос;
            Запрос.УстановитьПараметр("Код1",Справочники.Контрагенты.НайтиПоКоду(СокрЛП(Файл.KodVlad)));
            Запрос.УстановитьПараметр("Код2",Справочники.Организации.НайтиПоКоду(СокрЛП(Файл.KodOrg)));
            Запрос.УстановитьПараметр("ВидДоговора",Перечисления.ВидыДоговоровКонтрагентов.СПокупателем);
            Запрос.Текст =
             "ВЫБРАТЬ
             |    ДоговорыКонтрагентов.Владелец,
             |    ДоговорыКонтрагентов.Организация,
             |    ДоговорыКонтрагентов.ВидДоговора,
             |    ДоговорыКонтрагентов.Ссылка
             |ИЗ
             |    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
             |ГДЕ
             |    ДоговорыКонтрагентов.Владелец = &Код1
             |    И ДоговорыКонтрагентов.Организация = &Код2
             |    И ДоговорыКонтрагентов.ВидДоговора = &ВидДоговора";
             Если Запрос.Выполнить().Пустой() Тогда
                 Продолжить;
                 Сообщить("не найден договор");
             КонецЕсли;
             Рез = запрос.Выполнить().Выбрать();
             пока рез.Следующий() цикл
             догов = Рез.Ссылка.ПолучитьОбъект();
             догов.Код  = СокрЛП(Файл.NomenDog);
             догов.наименование = СокрЛП(Файл.NaimDo);
             догов.Записать();
             Прервать;
             КонецЦикла;        
            Сообщить("Записан договор:  ");
            Файл.Следующая();
        КонецЦикла;
        Файл.ЗакрытьФайл();    
    КонецЕсли;


Вот обработка по загрузке из дбф, почему 1 запись находит, а потом не находи больше ни чего, хотя по кодам все есть!

Ого. Четыре запроса в цикле.
Было бы лучше загрузить дбв в таблицу значений, которую загрузить в запрос и одним запросом всё выбрать.

(1) эт тоже можно, но тут то в чем косяк?

Если Запрос.Выполнить().Пустой() Тогда
                 Продолжить;
                 Сообщить("не найден договор");
             КонецЕсли;. вот тут у тебя продолжить, попадаем в начало цикла, а Файл.Следующая();  не сделал

Продолжить
   Немедленно передает управление в начало цикла, где производится вычисление и проверка условий выполнения цикла.
   Операторы, следующие в теле цикла за ним, на данной итерации обхода не выполняются.

ох точно спасибо)

(1) а слабо сразу запрос к дбф сделать? что за бред - грузить сначала в ТЗ а потом запросом оттуда дергать?

(6) левое соединение объектов 1С к внешнему файлу dbf?
пока не возникало необходимости.  Не знаю как это делается ;)

а еще лучше использовать 8.2.14 и туда добавить такую таблицу :)

(7) я имел ввиду, что использование XBase - моветон ;)

А использовать универсальную загрузку данных из табличного документа с ИТС слабо?

+(9) кстати, из дбф запросом можно выдернуть только те записи, которые есть в базе, и работать только с ними без всяких проверок.