Добавить новый узел в XML файл

ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл("C:\Users\user\Desktop\Test\Camera.xml", "windows-1251"); // Добавляем режим "Пропись"
ЗаписьXML.ЗаписатьНачалоЭлемента("Cameras");
 
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |    ДобавлениеКамер.Наименование КАК Наименование,
               |    ДобавлениеКамер.ЗапросПотока КАК ЗапросПотока,
               |    ДобавлениеКамер.БезРаспознование КАК БезРаспознование,
               |    ДобавлениеКамер.ИсходныеX КАК ИсходныеX,
               |    ДобавлениеКамер.ИсходныеY КАК ИсходныеY,
               |    ДобавлениеКамер.ИсходнаяШирина КАК ИсходнаяШирина,
               |    ДобавлениеКамер.ИсходнаяВысота КАК ИсходнаяВысота
               |ИЗ
               |    РегистрСведений.ДобавлениеКамер КАК ДобавлениеКамер
               |ГДЕ
               |    ДобавлениеКамер.ЗапросПотока.Ссылка = &Ссылка"; 
 
Запрос.УстановитьПараметр("Ссылка", Запись.ЗапросПотока); // Предполагаем, что Запись определена ранее
Выборка = Запрос.Выполнить().Выбрать();
ЗаписьXML.ЗаписатьНачалоЭлемента("Camera");
Пока Выборка.Следующий() Цикл    
    
    ЗаписьXML.ЗаписатьНачалоЭлемента("Id");
    ПолученныеДанныеТекстаID = СтрЗаменить(Строка(Выборка.Наименование), "Камера", "");
    ПолученныеДанныеТекстаID = СтрЗаменить(ПолученныеДанныеТекстаID, " ", "");
    ЗаписьXML.ЗаписатьТекст(ПолученныеДанныеТекстаID);
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    
    
    ЗаписьXML.ЗаписатьНачалоЭлемента("Name");
    ПолученныеДанныеТекстаНаименование = СтрЗаменить(Строка(Выборка.Наименование), "Камера", "Cam");
    ПолученныеДанныеТекстаНаименование = СтрЗаменить(ПолученныеДанныеТекстаНаименование, " ", "");
    ЗаписьXML.ЗаписатьТекст(ПолученныеДанныеТекстаНаименование);
    ЗаписьXML.ЗаписатьКонецЭлемента();
    
    
    ЗаписьXML.ЗаписатьНачалоЭлемента("RtspUrl");
    ЗаписьXML.ЗаписатьТекст(Строка(Выборка.ЗапросПотока));
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("UseGnaLib");      
    
    Если Строка(Выборка.БезРаспознование) = Истина Тогда
        
    ЗаписьXML.ЗаписатьТекст("true");
    Иначе
    ЗаписьXML.ЗаписатьТекст("false");
    КонецЕсли;  
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("Enabled");
    ЗаписьXML.ЗаписатьТекст("true");
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("RoiX");
    ЗаписьXML.ЗаписатьТекст(Строка(Выборка.ИсходныеX));
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("RoiY");
    ЗаписьXML.ЗаписатьТекст(Строка(Выборка.ИсходныеY));
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("RoiW");
    ЗаписьXML.ЗаписатьТекст(Строка(Выборка.ИсходнаяШирина));
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    ЗаписьXML.ЗаписатьНачалоЭлемента("RoiH");
    ЗаписьXML.ЗаписатьТекст(Строка(Выборка.ИсходнаяВысота));
    ЗаписьXML.ЗаписатьКонецЭлемента();
 
    ЗаписьXML.ЗаписатьКонецЭлемента(); // Закрываем элемент "ЗапросПотока"
КонецЦикла;
 
ЗаписьXML.ЗаписатьКонецЭлемента(); // Закрываем "Контрагенты"
ЗаписьXML.Закрыть();
 
КонецПроцедуры