Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> 8.1 Как дописать блок в XML          
irbis_triffle Подменю пользователя
сообщение 04.04.12, 22:26
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 40
Спасибо сказали: 7 раз
Рейтинг: 0

Всем добрый вечер.
С формированием и чтением XML в 1с у меня проблем не возникло, но сейчас возникла необходимость дописать блок в файл.
Нигде не могу найти как это можно организовать.
Кто сталкивался, помогите пожалуйста.
Заранее благодарен.

MATEVI Подменю пользователя
сообщение 05.04.12, 7:21
Сообщение #2

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2201
Из: Одесса
Спасибо сказали: 958 раз
Рейтинг: 0

[необходимо зарегистрироваться для просмотра ссылки]

//процедура выгружает элементы справочника "Физические лица" в файл формата XML
Процедура Лица_Выгрузить()
     //справочник
     С=СоздатьОбъект("Справочник.Лица");
     //анализатор
     Анализатор=СоздатьОбъект("AddIn.XMLParser");
     Корень=Анализатор.СоздатьДокумент();
     //данные
     Данные=Корень.СоздатьПодчиненныйЭлемент("Данные");
     Данные.УстановитьАтрибут("Дата",ТекущаяДата());
     Данные.УстановитьАтрибут("Время",ТекущееВремя());
     Данные.УстановитьАтрибут("Автор",гПользователь.Наименование);
     //наполнение
     Группа=Данные;
     С.ВыбратьЭлементы();
     Пока С.ПолучитьЭлемент()=1 Цикл
          Если С.ЭтоГруппа()=1 Тогда
               Группа=Данные.СоздатьПодчиненныйЭлемент(С.Наименование);
          Иначе
               Э=Группа.СоздатьПодчиненныйЭлемент("Лицо");
               Э.Значение=С.Код;
               Э.УстановитьАтрибут("Наименование",С.Наименование);
          КонецЕсли;
     КонецЦикла;
     //запись
     Корень.Записать("C:\People.xml");
     Предупреждение("ОК");
КонецПроцедуры

Спасибо сказали: shurik_shurik,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 08.06.24, 3:27
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!