Процедура ЗагКонтрИзКК()
    Если ФлКонтр=0 Тогда
        Сообщить("Не установлен флаг Контрагенты");
        возврат;
    КонецЕсли;
    Состояние("Загрузка контрагентов.......");
    ИсхФ.Кодировка = КодировкаXBase.OEM;
    ИсхФ.ОткрытьФайл("C:\Arxiv\OUT01.dbf");
    Если ИсхФ.Открыта()=Ложь Тогда
        Сообщить("Не удалось открыть базу данных "+строка(ИсхФ.КодОшибки()) );
        Возврат;
    КонецЕсли;
    Если ИсхФ.КоличествоЗаписей() < 1 Тогда
        Сообщить("Пустой");
        Возврат;
    КонецЕсли;
    СпрК  = Справочники.Контрагенты;
            
    ИсхФ.Первая();
    Пока не ИсхФ.ВКонце() Цикл
         СпрК=Справочники.Контрагенты.НайтиПоКоду(ИсхФ.NumRec);
             Если СпрК=Справочники.Контрагенты.ПустаяСсылка() Тогда
                СпрК=Справочники.Контрагенты.СоздатьЭлемент();            
                спрК.Код                    =ИсхФ.NumRec;
                спрК.наименование           =ИсхФ.Name;
                спрК.НаименованиеПолное     = ИсхФ.Namefull;
                спрК.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо;
:drum:
                            СпрК.ИНН = ИсхФ.INN;
                СпрК.Записать();
                конецесли;
        
        ИсхФ.Следующая();
    КонецЦикла;
    Колич = 0;
    Пока Колич = 0 Цикл        
        Колич = 1;
        СпрК.ПолучитьСсылку();
        СпрК1 = Справочники.Контрагенты;
        СпрК1.НайтиПоКоду("Прочие",0);
        Если СпрК1.ПустаяСсылка()=0 Тогда
            СпрК1.НоваяГруппа();
            СпрК1.Код="Прочие";
            СпрК1.Наименование="Прочие Контрагенты";
            СпрК1.Записать();
        КонецЕсли;
        
        КонецЦикла;
    ИсхФ.ЗакрытьФайл();
    //Предупреждение("Все Контрагенты загружены");    
КонецПроцедуры