Загрузка выгрузка с xml в 1с

11.04.2013, 23:09. **Показов** 11092. **Ответов** 2

Студворк — интернет-сервис помощи студентам

[/1C]Здравствуйте, помогите доделать работу. Как сделать так, чтобы сохраненные в xml организации сотрудника загружались в справочник? и как
сделать так, чтобы одинаковые записи не появлялись?

http://rghost.ru/45218617.view как сделать чтобы при чтении xml добавляло организацию?
http://rghost.ru/45218804.view - структура xml
http://rghost.ru/45218853 - сама база

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Процедура ЗаписьXML(файл)
    // Выгрузить в файл xml
    Запись = Новый ЗаписьXML;
    Запись.ОткрытьФайл(файл, "UTF-8");
    
    // Записать директиву
    Запись.ЗаписатьОбъявлениеXML();
    
    // Записать начало корневого элемента
    Запись.ЗаписатьНачалоЭлемента("Запись_Данных");
    Выборка = Справочники.Организации.Выбрать();
    Запись.ЗаписатьНачалоЭлемента("Организации");
    пока Выборка.Следующий() цикл
        
        // Записать начало корневого элемента
        Запись.ЗаписатьНачалоЭлемента("Организация");
        
        // Записать атрибут корневого элемента
        Запись.ЗаписатьАтрибут("Код",Строка(Выборка.Код));
        Запись.ЗаписатьАтрибут("Наименование",Строка(Выборка.Наименование));
        Запись.ЗаписатьКонецЭлемента();
    КонецЦикла;
    Запись.ЗаписатьКонецЭлемента();
 
    Выборка = Справочники.Сотрудники.Выбрать();
    Запись.ЗаписатьНачалоЭлемента("Сотрудники");
    пока Выборка.Следующий() цикл
        Запись.ЗаписатьНачалоЭлемента("Сотрудник");
        Запись.ЗаписатьАтрибут("Код",Строка(Выборка.Код));
        Запись.ЗаписатьАтрибут("Наименование",Строка(Выборка.Наименование));
        Запись.ЗаписатьАтрибут("Паспорт",Строка(Выборка.паспорт));
        ВыбОрг = Выборка.Организации.Количество();                   
        Если ВыбОрг > 0 Тогда
             Запись.ЗаписатьНачалоЭлемента("Место_работы");
            Для сч=0 по ВыбОрг-1 цикл
                Запись.ЗаписатьНачалоЭлемента("Место_работы");
                Запись.ЗаписатьАтрибут("Организация",Формат(Выборка.Организации.Получить(сч).Организация.Код, "ЧГ=0"));
                Запись.ЗаписатьКонецЭлемента();
            КонецЦикла;
            Запись.ЗаписатьКонецЭлемента();
        КонецЕсли;
    
        ВыбОрг = Выборка.Адрес.Количество();  
        Если ВыбОрг > 0 Тогда
            Запись.ЗаписатьНачалоЭлемента("Контакты");
            Для сч=0 по ВыбОрг-1 цикл
                Запись.ЗаписатьНачалоЭлемента("Контакты");
                Запись.ЗаписатьАтрибут("Адрес",Выборка.Адрес.Получить(сч).адрес);
                Запись.ЗаписатьАтрибут("Телефон",Выборка.Адрес.Получить(сч).телефон);
                 Запись.ЗаписатьКонецЭлемента();
            КонецЦикла;
            Запись.ЗаписатьКонецЭлемента();
        КонецЕсли;    
        Запись.ЗаписатьКонецЭлемента();
    
    КонецЦикла;
    Запись.ЗаписатьКонецЭлемента();
    Запись.ЗаписатьКонецЭлемента();
    Сообщить("Выгрузка данных из 1С прошла успешно");
КонецПроцедуры

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Процедура ЗагрузитьXML(файл)
    СпрОрг = Справочники.Организации;
    СпрСот = Справочники.Сотрудники;
    
//    ВыборкаИзСотрудников = СпрСот.Выбрать();
//    Пока ВыборкаИзСотрудников.Следующий() Цикл
//        del = ВыборкаИзСотрудников.ПолучитьОбъект();
//        del.Удалить();
//    КонецЦикла;
 
//    ВыборкаИзОрганизаций = СпрОрг.Выбрать();
//    Пока ВыборкаИзОрганизаций.Следующий() Цикл
//        del = ВыборкаИзОрганизаций.ПолучитьОбъект();
//        del.Удалить();
//    КонецЦикла;        
    
    загXML = Новый ЧтениеXML;
    загXML.ОткрытьФайл(файл); 
    НовыйОбъектОрганизации = NULL;
 
    // Прочитать фрагменты элемента
    Пока загXML.Прочитать() Цикл
        
            // После чтения проверить тип уза
            Если загXML.Имя = "Организация" И загXML.ТипУзла = ТипУзлаXML.НачалоЭлемента тогда
                РезультатПоиска = СпрОрг.НайтиПоКоду(загXML.ПолучитьАтрибут("Организация Код"));
                Если РезультатПоиска.Пустая() Тогда
                    НовыйОбъектОрганизации = СпрОрг.СоздатьЭлемент();
                    НовыйОбъектОрганизации.Код = загXML.ПолучитьАтрибут("Организация Код");
                    НовыйОбъектОрганизации.Наименование = загXML.ПолучитьАтрибут("Наименование");
                    НовыйОбъектОрганизации.Записать();                
                КонецЕсли;
                
            НовыйОбъектСотрудника = NULL;
    ИначеЕсли загXML.Имя = "Сотрудник" И загXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            РезультатПоиска = СпрСот.НайтиПоКоду(загXML.ПолучитьАтрибут("Сотрудник Код"));
            Если РезультатПоиска.Пустая() Тогда
                    НовыйОбъектСотрудника = СпрСот.СоздатьЭлемент();
                    НовыйОбъектСотрудника.Код = загXML.ПолучитьАтрибут("Сотрудник Код");
                    НовыйОбъектСотрудника.Наименование = загXML.ПолучитьАтрибут("Наименование");
                    НовыйОбъектСотрудника.паспорт = загXML.ПолучитьАтрибут("Паспорт");                
                    НовыйОбъектМестоРаботыСотрудника = НовыйОбъектСотрудника.Организации.Добавить();
                    НовыйОбъектМестоРаботыСотрудника.Организация = СпрОрг.НайтиПоКоду(загXML.ПолучитьАтрибут("Организация"));
                    НовыйОбъектКонтактыСотрудника = НовыйОбъектСотрудника.Адрес.Добавить();
                    НовыйОбъектКонтактыСотрудника.адрес = загXML.ПолучитьАтрибут("Адрес");
                    НовыйОбъектКонтактыСотрудника.телефон = загXML.ПолучитьАтрибут("Телефон");
                    НовыйОбъектСотрудника.Записать();
                КонецЕсли;
            КонецЕсли;
    КонецЦикла;
    загXML.Закрыть();
    Сообщить("Загрузка данных в 1С прошла успешно");
КонецПроцедуры

@Dethmontt · 11.04.2013, 23:48

Не по теме:

Еще один извращенец с удалением справочников при загрузке...

@duk337 · 12.04.2013, 08:53

я даже и читать не стал. Что за весенние иды - километровые тексты без всяких комментариев вывешивать?! Да ещё три ссылки - каждая минуту грузится. Как с этим бороться?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Dethmontt
	11.04.2013, 23:48
	Не по теме: Еще один извращенец с удалением справочников при загрузке... 0

@duk337 2956 / 1768 / 84 Регистрация: 03.11.2011 Сообщений: 8,280
	12.04.2013, 08:53
	я даже и читать не стал. Что за весенние иды - километровые тексты без всяких комментариев вывешивать?! Да ещё три ссылки - каждая минуту грузится. Как с этим бороться? 0