Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
21 ноя 2024, 18:08

загрузка из xml в 1с

Автор edzie, 25 апр 2013, 05:53

0 Пользователей и 1 гость просматривают эту тему.

edzie

Здравствуйте, подскажите как изменить или какие 2 строчки надо добавить, чтобы из xml файла при его загрузке у сотрудников организации записывался их адрес и телефон?
&НаСервере
Процедура ЗагрузитьXML(Файлик)
   НовыйОбъектОрганизации = NULL;
   НовыйОбъектСотрудника = NULL;
   СпрОрг = Справочники.Организации;
   СпрСотр = Справочники.Сотрудники;
   ЗагXML = Новый ЧтениеXML;
   ЗагXML.ОткрытьФайл(Файлик);                       
   Пока ЗагXML.Прочитать() Цикл
      Если ЗагXML.Имя = "Организация" И ЗагXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
      ИначеЕсли ЗагXML.Имя = "Организация" И ЗагXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
              РезультатПоиска = СпрОрг.НайтиПоКоду(ЗагXML.ПолучитьАтрибут("Код"));
         Если РезультатПоиска.Пустая() Тогда
               НовыйОбъектОрганизации = СпрОрг.СоздатьЭлемент();
               НовыйОбъектОрганизации.Код = ЗагXML.ПолучитьАтрибут("Организация Код");
               НовыйОбъектОрганизации.Наименование = ЗагXML.ПолучитьАтрибут("Наименование");
               НовыйОбъектОрганизации.Записать();
      КонецЕсли;
           
      ИначеЕсли ЗагXML.Имя = "Сотрудник" И ЗагXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
               РезультатПоиска = СпрСотр.НайтиПоКоду(ЗагXML.ПолучитьАтрибут("Код"));
         Если РезультатПоиска.Пустая() Тогда
               НовыйОбъектСотрудника = СпрСотр.СоздатьЭлемент();
               НовыйОбъектСотрудника.Код = ЗагXML.ПолучитьАтрибут("Код");
               НовыйОбъектСотрудника.Наименование = ЗагXML.ПолучитьАтрибут("Наименование");
               НовыйОбъектСотрудника.паспорт = ЗагXML.ПолучитьАтрибут("Паспорт");
               НовыйОбъектМестоРаботыСотрудника = НовыйОбъектСотрудника.Организации.Добавить();
               НовыйОбъектМестоРаботыСотрудника.Организация = СпрОрг.НайтиПоКоду(ЗагXML.ПолучитьАтрибут("Организация"));
               НовыйОбъектКонтактыСотрудника = НовыйОбъектСотрудника.Адрес.Добавить();
               НовыйОбъектКонтактыСотрудника.телефон = ЗагXML.ПолучитьАтрибут("Телефон");
               НовыйОбъектКонтактыСотрудника.адрес = ЗагXML.ПолучитьАтрибут("Адрес");//
               НовыйОбъектСотрудника.Записать();
            КонецЕсли;
      КонецЕсли;
   КонецЦикла;
ЗагXML.Закрыть();
КонецПроцедуры

http://rghost.ru/45534314.view - структура xml
http://rghost.ru/45534309.view

Yura063

Посмотрите может эта информация хранится в подчиненном справочнике! тогда нужно создать объект этого справочника!
Помогли, отблагодари!

Похожие темы (5)

Рейтинг@Mail.ru

Поиск