7.7 XML-файл. Каждый узел с новой строки

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем Samouchka, 16 сен 2014.

  1. TopicStarter Overlay
    Samouchka
    Offline

    Samouchka Опытный в 1С

    Регистрация:
    20 мар 2013
    Сообщения:
    214
    Симпатии:
    1
    Баллы:
    29
    Здравствуйте. Записываю xml-файл. Нужно каждый узел писать с новой строки файла. Открываю свой xml с помощью блокнота. Галочка "Перенос по словам" стоит. Однако, в файл записалось всё подряд.Высылаю файл, который должен получится (правильный) и мой файл (неправильный). В вот код, которым пишу xml (подскажите, пожалуйста, что не так):
    Код:
    Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"v7plus.dll") <> 1 Тогда
                   Предупреждение("Компонента v7plus.dll не найдена!");
                   Возврат; //прервать выполнение процедуры
            КонецЕсли;
            Анализатор = СоздатьОбъект("AddIn.XMLParser");
            xml=Анализатор.СоздатьДокумент();
            ФайлПФР=xml.СоздатьПодчиненныйЭлемент("ФайлПФР");
            xmlУзел=xml.СоздатьУзел("element","ИмяФайла");
            //сформируем имя файла
            НачИФ="PFR-700-Y-2014-ORG-";
            ДлинаНомПачИФ=СтрДлина(Константа.НумерацияПачекИС);
            ЧНулейНомПачИФ=5-ДлинаНомПачИФ;
            Для Н=1 по ЧНулейНомПачИФ Цикл
                СтавинНоль=СтавинНоль+Строка(0);
            КонецЦикла;
            НулиПередНомПачИФ=СтавинНоль;
            НомПачИФ=НулиПередНомПачИФ+Константа.НумерацияПачекИС;
            Константа.НумерацияПачекИС=Константа.НумерацияПачекИС+2;
            СередИФ=Константа.РегНомерПФР+"-DCK-"+НомПачИФ;
            КонецИФ="-DPT-000000-DCK-00000.XML";
            ИФ=НачИФ+СередИФ+КонецИФ;
            //Для раздела 2.5 в дальнейшем
            Разд25ИФ=ИФ;
            //
            СтавинНоль="";
            //
            xmlУзел.Значение=Разд25ИФ;
            ФайлПФР.ДобавитьПодчиненный(xmlУзел);
           
            xmlУзелЗаголовокФайла=xml.СоздатьУзел("element","ЗаголовокФайла");
            ФайлПФР.ДобавитьПодчиненный(xmlУзелЗаголовокФайла);
           
                xmlУзелВерсияФормата=xml.СоздатьУзел("element","ВерсияФормата");
                xmlУзелВерсияФормата.Значение="07.00";
                xmlУзелЗаголовокФайла.ДобавитьПодчиненный(xmlУзелВерсияФормата);
               
                xmlУзелТипФайла=xml.СоздатьУзел("element","ТипФайла");
                xmlУзелТипФайла.Значение="ВНЕШНИЙ";
                xmlУзелЗаголовокФайла.ДобавитьПодчиненный(xmlУзелТипФайла);
               
                xmlУзелПрограммаПодготовкиДанных=xml.СоздатьУзел("element","ПрограммаПодготовкиДанных");
                xmlУзелЗаголовокФайла.ДобавитьПодчиненный(xmlУзелПрограммаПодготовкиДанных);
               
                    xmlУзелНазваниеПрограммы=xml.СоздатьУзел("element","НазваниеПрограммы");
                    xmlУзелНазваниеПрограммы.Значение="SPU_ORB";
                    xmlУзелПрограммаПодготовкиДанных.ДобавитьПодчиненный(xmlУзелНазваниеПрограммы);
                   
                    xmlУзелВерсия=xml.СоздатьУзел("element","Версия");
                    xmlУзелВерсия.Значение="2.16";
                    xmlУзелПрограммаПодготовкиДанных.ДобавитьПодчиненный(xmlУзелВерсия);
                   
                xmlУзелИсточникДанных=xml.СоздатьУзел("element","ИсточникДанных");
                xmlУзелИсточникДанных.Значение="СТРАХОВАТЕЛЬ";
                xmlУзелЗаголовокФайла.ДобавитьПодчиненный(xmlУзелИсточникДанных);
               
            xmlУзелПачкаВходящихДокументов=xml.СоздатьУзел("element","ПачкаВходящихДокументов");
            ФайлПФР.ДобавитьПодчиненный(xmlУзелПачкаВходящихДокументов);
           
                xmlУзелОкружение=xml.СоздатьУзел("element","Окружение");
                xmlУзелОкружение.Значение="В составе файла";
                xmlУзелПачкаВходящихДокументов.ДобавитьПодчиненный(xmlУзелОкружение);
               
                xmlУзелСтадия=xml.СоздатьУзел("element","Стадия");
                xmlУзелСтадия.Значение="До обработки";
                xmlУзелПачкаВходящихДокументов.ДобавитьПодчиненный(xmlУзелСтадия);
               
                xmlУзелСВЕДЕНИЯПОПАЧКЕДОКУМЕНТОВРАЗДЕЛА6=xml.СоздатьУзел("element","СВЕДЕНИЯ_ПО_ПАЧКЕ_ДОКУМЕНТОВ_РАЗДЕЛА_6");
                xmlУзелПачкаВходящихДокументов.ДобавитьПодчиненный(xmlУзелСВЕДЕНИЯПОПАЧКЕДОКУМЕНТОВРАЗДЕЛА6);
    ФайлВыгруза=ВыборКаталВыгруз+"\"+ИФ;
            xml.Записать(ФайлВыгруза);
            xml.Проверить();

    Вложения:

  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    А собственно ЗАЧЕМ? Для красоты?
    То что у вас все лепит в 1 строчку это косяк библы V7PLUS.DLL
    Но данные ведь сохраняются правильно. Откройте не блокнотом а IExplorer и все увидите...
    Впрочем, если уж вам так приспичило, в регламентированной отчетности для бухгалтерии есть процедура разложения на строки.
    Воспользуйтесь ею

Поделиться этой страницей