Имя: Пароль:
1C
1С v8
где найти описание схемы
🠗 (Волшебник 21.09.2016 15:40)
0 mxs089
 
21.09.16
15:39
где найти описание схемы
http://v8.1c.ru/8.1/data/enterprise/current-config

как выгрузить эту схему в файл?
1 Волшебник
 
модератор
21.09.16
15:40
The requested URL /8.1/data/enterprise/current-config was not found on this server.
2 mxs089
 
21.09.16
15:47
ФабрикаXDTO.ЭкспортСхемыXML("http://v8.1c.ru/8.1/data/enterprise/current-config";)
так получаю набор схем, как ее выгрузить в XML файл?
3 Serginio1
 
21.09.16
16:00
Процедура ЗпаисатьПакет(Фабрика,URIПространстваИмен,ИмяФайла) Экспорт

         НаборСхем = Фабрика.ЭкспортСхемыXML(URIПространстваИмен);
        Для Счетчик = 0 по НаборСхем.Количество() - 1 Цикл
            Схема = НаборСхем.Получить(Счетчик);
            Схема.ОбновитьЭлементDOM();
            ЗаписьDOM = Новый ЗаписьDOM;
            ЗаписьXMLСтрока = Новый ЗаписьXML;
            ЗаписьXMLСтрока.УстановитьСтроку();
            ЗаписьXMLФайл = Новый ЗаписьXML;
            ЗаписьDOM.Записать(Схема.ДокументDOM, ЗаписьXMLСтрока);
            ЗаписьXMLФайл.ОткрытьФайл(ИмяФайла +"[" + Формат(Счетчик,"ЧЦ=10;ЧГ=0;ЧН=") + "].xsd");
            ЗаписьXMLФайл.ЗаписатьБезОбработки(ЗаписьXMLСтрока.Закрыть());
            ЗаписьXMLФайл.Закрыть()
        КонецЦикла;    
  
КонецПроцедуры
4 mxs089
 
21.09.16
16:05
(3) спасибо!
5 mxs089
 
21.09.16
16:42
(3) подскажи, как схему прочитать?
ПостроительDOM = Новый ПостроительDOM;
    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.ОткрытьФайл(ИмяФайла);
    
    СхемаXML = Новый СхемаXML;
    СхемаXML.ДокументDOM = ПостроительDOM.Прочитать(ЧтениеXML);
    СхемаXML.ПространствоИмен = URIПространстваИмен;
    
    ЧтениеXML.Закрыть();
    
    НаборСхемXML = Новый НаборСхемXML;
    НаборСхемXML.Добавить(СхемаXML);
    
    Фабрика = Новый ФабрикаXDTO(НаборСхемXML);
Программист всегда исправляет последнюю ошибку.