[Genda]

Всем доброго вечера! Пытаюсь выгруженные данные из дбф файла записать в ЗБУ 8.2. Необходимо перенести паспортные данные и контактную информацию. Задачи анаолгичны. Поэтому остановлюсь на одной, к примеру на паспортных данных. Данные выгружаю в регистр сведений Паспортные данные физ лиц. Код такой:

стр1=1;
Пока стр1<=ФайлВыгрузки1.КоличествоЗаписей() Цикл
    ФайлВыгрузки1.Перейти(стр1);
    стр1=стр1+1;    
    Попытка
        
    Проверка=Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Ссылка;
Если (Проверка<>Справочники.ФизическиеЛица.ПустаяСсылка()) тогда

Набор2 = РегистрыСведений.ПаспортныеДанныеФизЛиц.СоздатьНаборЗаписей(); 

        Если СокрЛП(ФайлВыгрузки1.FIO)="Хасаев Рахматулла Усманович" Тогда
            Продолжить;
        КонецЕсли;
        Набор2.Отбор.ФизЛицо.Установить(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Ссылка);
        Набор2.Отбор.Период.Установить(ДобавитьМесяц(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).ДатаРождения,168));
        Набор2.Прочитать(); 
        Если Набор2.Количество() = 0 Тогда 
            Сообщить("Нет данных по "+СокрЛП(ФайлВыгрузки1.FIO) ); 
            СтрокаДанных = Набор2.Добавить(); 
            СтрокаДанных.ФизЛицо=Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Наименование; 
            
            Док=СокрЛП(ФайлВыгрузки1.PASP);
            Вид=Лев(Док,Найти(Док,",")-1);
            Серия1=Сред(Док,Найти(Док,",")+1);
            Серия=Лев(Серия1,Найти(Серия1,",")-1);
            Номер1=Сред(Серия1,Найти(Серия,",")+Найти(Серия1,",")+1);
            Номер=Лев(Номер1,Найти(Номер1,",")-1);
            ДатаВ1=Сред(Номер1,Найти(Номер,",")+Найти(Номер1,",")+1);
            ДатаВ=Лев(ДатаВ1,Найти(ДатаВ1,",")-1);
            КемВ = Сред(ДатаВ1,Найти(ДатаВ,",")+Найти(ДатаВ1,",")+1);
            ДатаВДень=Формат(Число(Лев(ДатаВ,2)),"ЧЦ=2; ЧВН=; ЧГ=0");
            ДатаВМес=Формат(Число(Сред(ДатаВ,4,2)),"ЧЦ=2; ЧВН=; ЧГ=0");
            ДатаВГод=Формат(Число(Прав(ДатаВ,4)),"ЧЦ=4; ЧВН=; ЧГ=0");
            ДВ=Дата(ДатаВГод,ДатаВМес,ДатаВДень);
            СтрокаДанных.ДокументВид=Справочники.ДокументыУдостоверяющиеЛичность.ИМНС21
;
            СтрокаДанных.ДокументСерия=Серия;
            СтрокаДанных.ДокументНомер=Номер;
            СтрокаДанных.ДокументДатаВыдачи=ДВ;
            СтрокаДанных.ДокументКемВыдан=КемВ;
            СтрокаДанных.Период=ДобавитьМесяц(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).ДатаРождения,168); 
             Набор2.Записать();
            Сообщить("Добавление по "+СокрЛП(ФайлВыгрузки1.FIO));
        Иначе
            Сообщить("Есть данные по "+ СокрЛП(ФайлВыгрузки1.FIO)); 
        КонецЕсли; 
КонецЕсли;
Исключение Сообщить(ФайлВыгрузки1.FIO);Продолжить; КонецПопытки; 
КонецЦикла;

Не работает строка Набор2.Записать(), такой вывод сделала из того, что не переходит на строку Сообщить("Добавление по "+СокрЛП(ФайлВыгрузки1.FIO)); следующую за ней. Подскажите в чем ошибка? Заранее,спасибо

[Ardi]

Не входит в цикл.

[Genda]

Не входит в цикл.

Почему вы так решили? В цикл входит. Выводятся сообщения Сообщить("Нет данных по "+СокрЛП(ФайлВыгрузки1.FIO) ); и Сообщить("Есть данные по "+ СокрЛП(ФайлВыгрузки1.FIO));
и в условие Если Набор2.Количество() = 0 Тогда заходит тож. А кстати, если смотреть отладчиком,то на строчке Набор2.Записать(); пишет "Обращение к процедуре объекта как к функции (Записать)". Я как то неправильно использую Записать() что ли?

[Genda]

Вопрос решился удалением оператора "Попытка"
В таком виде работает как надо:

стр1=1;
Пока стр1<=ФайлВыгрузки1.КоличествоЗаписей() Цикл
    ФайлВыгрузки1.Перейти(стр1);
    стр1=стр1+1;
Проверка=Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Ссылка;
Если (Проверка<>Справочники.ФизическиеЛица.ПустаяСсылка()) тогда
Набор2 = РегистрыСведений.ПаспортныеДанныеФизЛиц.СоздатьНаборЗаписей(); 
Набор2.Отбор.ФизЛицо.Установить(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Ссылка);
        Набор2.Отбор.Период.Установить(ДобавитьМесяц(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).ДатаРождения,168));
Набор2.Прочитать();
Если Набор2.Количество() = 0 Тогда 
            Сообщить("Нет данных по "+СокрЛП(ФайлВыгрузки1.FIO) ); 
            Запись = Набор2.Добавить(); 
            Запись.ФизЛицо=Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).Ссылка; 
            
            Док=СокрЛП(ФайлВыгрузки1.PASP);
            Вид=Лев(Док,Найти(Док,",")-1);
            Серия1=Сред(Док,Найти(Док,",")+1);
            Серия=Лев(Серия1,Найти(Серия1,",")-1);
            Номер1=Сред(Серия1,Найти(Серия,",")+Найти(Серия1,",")+1);
            Номер=Лев(Номер1,Найти(Номер1,",")-1);
            ДатаВ1=Сред(Номер1,Найти(Номер,",")+Найти(Номер1,",")+1);
            ДатаВ=Лев(ДатаВ1,Найти(ДатаВ1,",")-1);
            КемВ = Сред(ДатаВ1,Найти(ДатаВ,",")+Найти(ДатаВ1,",")+1);
            Если ДатаВ<>"" Тогда
                ДатаВДень=Формат(Число(Лев(ДатаВ,2)),"ЧЦ=2; ЧВН=; ЧГ=0");
                ДатаВМес=Формат(Число(Сред(ДатаВ,4,2)),"ЧЦ=2; ЧВН=; ЧГ=0");
                ДатаВГод=Формат(Число(Прав(ДатаВ,4)),"ЧЦ=4; ЧВН=; ЧГ=0");
                ДВ=Дата(ДатаВГод,ДатаВМес,ДатаВДень);
            Иначе ДВ=Дата(1,1,1);
            КонецЕсли;
            Запись.ДокументВид=Справочники.ДокументыУдостоверяющиеЛичность.ИМНС21;
            Запись.ДокументСерия=Серия;
            Запись.ДокументНомер=Номер;
            Запись.ДокументДатаВыдачи=ДВ;
            Запись.ДокументКемВыдан=КемВ;
            Запись.Период=ДобавитьМесяц(Справочники.ФизическиеЛица.НайтиПоНаименованию(СокрЛП(ФайлВыгрузки1.FIO)).ДатаРождения,168); 
             Набор2.Записать();
            Сообщить("Добавление по "+СокрЛП(ФайлВыгрузки1.FIO));
Иначе
            Сообщить("Есть данные по "+ СокрЛП(ФайлВыгрузки1.FIO)); 
        КонецЕсли; 
КонецЕсли;
КонецЦикла;