Загрузка из xml в 1c справочник

[edzie]

Здравствуйте, я в 1с не силен, как сделать чтобы из xml файла записи организации и сотрудники заменяли прошлые записи которые были в справочнике? есть код где старые записи удаляются, но мне надо чтобы они записывались поверх старых.

Код Выделить Развернуть

&НаСервере
Процедура ЗагрузитьXML(файл)
   НовыйОбъектОрганизации = NULL;
   НовыйОбъектСотрудника = NULL;
   Справочник_Организации = Справочники.Организации;
   Справочник_Сотрудники = Справочники.Сотрудники;
   
   ВыборкаИзСотрудников = Справочники.Сотрудники.Выбрать();
   Пока ВыборкаИзСотрудников.Следующий() Цикл
      del = ВыборкаИзСотрудников.ПолучитьОбъект();
      del.Удалить();
   КонецЦикла;

   ВыборкаИзОрганизаций = Справочники.Организации.Выбрать();
   Пока ВыборкаИзОрганизаций.Следующий() Цикл
      del = ВыборкаИзОрганизаций.ПолучитьОбъект();
      del.Удалить();
   КонецЦикла;     
   
   загXML = Новый ЧтениеXML;
   загXML.ОткрытьФайл(файл);                       
   Пока загXML.Прочитать() Цикл
         Если загXML.Имя = "Организация" И загXML.ТипУзла = ТипУзлаXML.НачалоЭлемента тогда
            НовыйОбъектОрганизации = Справочник_Организации.СоздатьЭлемент();
            НовыйОбъектОрганизации.Код = загXML.ПолучитьАтрибут("Код");
            НовыйОбъектОрганизации.Наименование = загXML.ПолучитьАтрибут("Наименование");
            НовыйОбъектОрганизации.Записать();
         ИначеЕсли загXML.Имя = "Сотрудник" И загXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            НовыйОбъектСотрудника = Справочник_Сотрудники.СоздатьЭлемент();
                НовыйОбъектСотрудника.Код = загXML.ПолучитьАтрибут("Код");
            НовыйОбъектСотрудника.Наименование = загXML.ПолучитьАтрибут("Наименование");
            НовыйОбъектСотрудника.паспорт = загXML.ПолучитьАтрибут("Паспорт");           
                НовыйОбъектМестоРаботыСотрудника = НовыйОбъектСотрудника.Организации.Добавить();
            НовыйОбъектМестоРаботыСотрудника.Организация = Справочник_Организации.НайтиПоКоду(загXML.ПолучитьАтрибут("Организация"));
            НовыйОбъектКонтактыСотрудника = НовыйОбъектСотрудника.Адрес.Добавить();
            НовыйОбъектКонтактыСотрудника.адрес = загXML.ПолучитьАтрибут("Адрес");
            НовыйОбъектКонтактыСотрудника.телефон = загXML.ПолучитьАтрибут("Телефон");
            НовыйОбъектСотрудника.Записать();
         КонецЕсли;
      КонецЦикла;
   загXML.Закрыть();
   Сообщить("Завершено");
КонецПроцедуры


[Dethmontt]

УЖАС.......

Использовать метод менеджера справочника НайтиПоНаименованию() или НайтиПоКоду()

[Yura063]

ДА хуже некуда! Вы получите данные из xml по ним ищите данные и заменяете! У вас в базе такой бардак походу! Если вам надо заменить Сотрудников и Организации то, например:

Код Выделить Развернуть


ДанныеОргНаим = ДанныеИзXML; //той организации на которую надо изменить!
Организация = Справочники.Организации;
Если Организация.НайтиПоНаименованию(ДанныеОргНаим)<> Организация.ПустаяСсылка() Тогда
    Орг = Организация.НайтиПоНаименованию(ДанныеОргНаим).ПолучитьОбъект();
    Орг.Наименование = ДанныеИзXML; // Данные организации на что меняем
    //остальные реквизиты организации
    Орг.Записать();
Иначе
    //Создаем новую организацию если это надо
КонецЕсли;

Как то так!

[Dethmontt]

Если Организация.НайтиПоНаименованию(ДанныеОргНаим)<> Организация.ПустаяСсылка() Тогда
    Орг = Организация.НайтиПоНаименованию(ДанныеОргНаим).ПолучитьОбъект();
    Орг.Наименование = ДанныеИзXML;

Так тоже не желательно! Зачем искать в базе два раза?

[Yura063]

Да извини! В понедельник еще мозги на место не встали! 

[SlazZy]

я конечно всё понимаю, но зачем NULL?

Код Выделить Развернуть

   НовыйОбъектОрганизации = NULL;
   НовыйОбъектСотрудника = NULL;

[Dethmontt]

я конечно всё понимаю, но зачем NULL?

Потому что некоторые люди привыкли инициализировать переменные (пустые переменные) для работы с ними! И это правильно!
Например В T-SQL используется такой синтаксис