Изменение элементов справочника в выборке

[progmikon]

А сколько должно быть документов?

[Zeratul]

Эксель док 1 и в нем все данные по заполнению справочников!
Кстати сейчас столкнулся с проблемой,дописал дополнительные данные для добавление в справчокники

Для ном=1 по файлстрок Цикл
       Код = КодЖивотного; 
        КартКор = Справочники.КарточкаКоровы.НайтиПоКоду(Код);
       Если НЕ КартКОр.Пустая() Тогда
       объект =КартКОр.ПолучитьОбъект();
       Объект.Код = "ДРЖ-"+Код;
       Объект.Сельхозпредприятие = Справочники.Сельхозпредприятия.НайтиПоНаименованию("Дружба");
         Объект.ДатаРожд = Дата(ДатаРождения+" 00:00:00");
         Объект.ДатаПоступВСельхозпредприятие = ДатаПоступления;
       Объект.Порода   = Справочники.МясныеПородыКРС.Калмыцкая;
          Объект.Поколение = Перечисления.Породность.Чистопородные;
          Объект.МастьИОсобПриметы = Примечание;
             Объект.ЖивМассаКоровыПриРожд = ВесРожд;
         Объект.ЖивМассаКоровыПриОтъеме = ВесОтъем;
         Объект.ЖивМассаКоровыВ15мес = Вес15;
         Объект.ЖивМассаКоровыВ18мес = Вес18;
         Объект.ЖивМассаКоровыВ2года = Вес2г;
         Объект.ЖивМассаКоровыВ3года = Вес3г;
         Объект.ЖивМассаКоровыВ4года = вес4г;
         Объект.ЖивМассаКоровыВ5лет = вес5г;
         Объект.ЖивМассаКоровыВ6лет = вес6г;
         Объект.ЖивМассаКоровыВ7лет = вес7г;
         Объект.ЖивМассаКоровыВ8лет = вес8г;
         Объект.НаивысшаяОценка = Перечисления.Класс.ЭлитаРекорд;
            Объект.ИндНомМатери = Справочники.КарточкаКоровы.НайтиПоКоду("ДРЖ-" + НомерМатери);
         Объект.ПородаМатери = Справочники.МясныеПородыКРС.Калмыцкая ;
         Объект.ПоколениеМатери = Перечисления.Породность.Чистопородные;
            Объект.ИндНомОтца =  Справочники.КарточкаБыка.НайтиПоКоду("ДРЖ-" + НомерОтца);
         Объект.ПородаОтца = Справочники.МясныеПородыКРС.Калмыцкая ;
         Объект.ПоколениеОтца = Перечисления.Породность.Чистопородные;

       Объект.Наименование = Кличка;
      
       Сообщить(Объект.код + " " + Кличка) ;
       Попытка
       Объект.Записать();
    Исключение
    КонецПопытки;

но он данные не изменяет ет которые я прописал

[progmikon]

В исключение проваливается? или не записываете?
Попытка
       Объект.Записать();
    Исключение
Сообщить("Ошибка");
    КонецПопытки;

[Zeratul]

Все проходит без ошибки,просто данные в не меняются!

[Zeratul]

Вроде все норм, извиняюсь процедуру не ту запускал...мозги не корректно уже работают

[Zeratul]

еще вопрос как-то можно ускорить этот цикл чтобы он быстрее работал?
вначале он проходит во всем строка и ищет код, если не находит то записывает, а у меня этих строк около 10000

[progmikon]

еще вопрос как-то можно ускорить этот цикл чтобы он быстрее работал?
вначале он проходит во всем строка и ищет код, если не находит то записывает, а у меня этих строк около 10000

О каком цикле вы говорите.

[Zeratul]

Для ном=1 по файлстрок Цикл
       Код = КодЖивотного; 
        КартКор = Справочники.КарточкаКоровы.НайтиПоКоду(Код);
       Если НЕ КартКОр.Пустая() Тогда
       объект =КартКОр.ПолучитьОбъект();
       Объект.Код = "ДРЖ-"+Код;
       Объект.Сельхозпредприятие = Справочники.Сельхозпредприятия.НайтиПоНаименованию("Дружба");
         Объект.ДатаРожд = Дата(ДатаРождения+" 00:00:00");
         Объект.ДатаПоступВСельхозпредприятие = ДатаПоступления;
       Объект.Порода   = Справочники.МясныеПородыКРС.Калмыцкая;
          Объект.Поколение = Перечисления.Породность.Чистопородные;
           Объект.МастьИОсобПриметы = Примечание;
             Объект.ЖивМассаКоровыПриРожд = ВесРожд;
         Объект.ЖивМассаКоровыПриОтъеме = ВесОтъем;
         Объект.ЖивМассаКоровыВ15мес = Вес15;
         Объект.ЖивМассаКоровыВ18мес = Вес18;
         Объект.ЖивМассаКоровыВ2года = Вес2г;
         Объект.ЖивМассаКоровыВ3года = Вес3г;
         Объект.ЖивМассаКоровыВ4года = вес4г;
         Объект.ЖивМассаКоровыВ5лет = вес5г;
         Объект.ЖивМассаКоровыВ6лет = вес6г;
         Объект.ЖивМассаКоровыВ7лет = вес7г;
         Объект.ЖивМассаКоровыВ8лет = вес8г;
         Объект.НаивысшаяОценка = Перечисления.Класс.ЭлитаРекорд;
            Объект.ИндНомМатери = Справочники.КарточкаКоровы.НайтиПоКоду("ДРЖ-" + НомерМатери);
         Объект.ПородаМатери = Справочники.МясныеПородыКРС.Калмыцкая ;
         Объект.ПоколениеМатери = Перечисления.Породность.Чистопородные;
            Объект.ИндНомОтца =  Справочники.КарточкаБыка.НайтиПоКоду("ДРЖ-" + НомерОтца);
         Объект.ПородаОтца = Справочники.МясныеПородыКРС.Калмыцкая ;
         Объект.ПоколениеОтца = Перечисления.Породность.Чистопородные;

       Объект.Наименование = Кличка;
       
       Сообщить(Объект.код + " " + Кличка) ;
       Попытка
       Объект.Записать();
    Исключение
    КонецПопытки;
и все таки
но он данные не изменяет те которые я прописал

[Zeratul]

данные все равно не меняются, как были так и остаются, не дополняются моими данными!

[Zeratul]

наверное пора идти отдыхать уже.... всё работает данные изменяются!Еще раз извиняюсь, огромное спасибо!!!