класс p5.Xml/// Метод для создания XML-файла из специально сформированной глобали
Class p5.Xml Extends %RegisteredObject [ ClassType = "", ProcedureBlock ]
{

Property At As %String(CAPTION = "Ссылка на глобаль с данными", TRUNCATE = 1);

Property Filename As %String(TRUNCATE = 1);

Property Xmlns As %String(MAXLEN = 1000) [ InitialExpression = " xmlns:xsi="" http://www.w3.org/2001/XMLSchema-instance"" xsi:noNamespaceSchemaLocation=""ДОХОД_2НДФЛ_01.XSD"""  ];

Property Data As %Stream;

Method Export() As %Status
{
  set sc=$$$OK
  set stream=##class(%File).%New(..Filename)
  set sc=stream.Open("WSN")
  if $$$ISERR(sc) quit sc
  set sc=stream.Write("<?xml version=""1.0"" encoding=""windows-1251""?>")
  if $$$ISERR(sc) quit sc
  $$$QuitOnError(..PutNode(.stream,..At,,..Xmlns))
  if $$$ISERR(sc) quit sc  
  set sc=stream.%Close()
  quit sc
}

Method WriteStream() As %Status
{
  set sc=$$$OK
  //set stream=##class(%File).%New(..Filename)
  //set sc=stream.Open("WSN")
  //if $$$ISERR(sc) quit sc
  Write "<?xml version=""1.0"" encoding=""windows-1251""?>"
  
  $$$QuitOnError(..PutNode(,..At,,..Xmlns,1))
  if $$$ISERR(sc) quit sc  
  //set sc=stream.%Close()
  quit sc
}

Method PutNode(ByRef stream As %Stream, at, indent = "", xmlns = "", isWrite = 0) As %Status [ PublicList = at ]
{
  set sc=$$$OK
  set name=$order(@at@(""))
  while name]"" {
    set xmlns=$piece(name,"|",3)
    if xmlns["^" {
      if isWrite {
        Write $c(13,10)_indent_"<"_$piece(name,"|",2)_" "_@xmlns_">"
      } else {
        set sc=stream.Write($c(13,10)_indent_"<"_$piece(name,"|",2)_" "_@xmlns_">")
      }
    } else {
      if isWrite {
        Write $c(13,10)_indent_"<"_$piece(name,"|",2)_" "_xmlns_">"
      } else {
        set sc=stream.Write($c(13,10)_indent_"<"_$piece(name,"|",2)_" "_xmlns_">")
      }
    }
    if $$$ISERR(sc) quit
    set subname=$order(@at@(name,""))
    if subname]"" {
      set subAt=$e(at,1,$length(at)-1)_","""_name_""")"
      set subxmlns = $piece(subname,"|",3)
      
      if subxmlns["^" {
        if isWrite {
          set sc=..PutNode(,subAt,indent_" ",@subxmlns,1)
        } else {
          set sc=..PutNode(.stream,subAt,indent_" ",@subxmlns)
        }
      }else {
        if isWrite {
          set sc=..PutNode(,subAt,indent_" ",subxmlns,1)
        } else {
          set sc=..PutNode(.stream,subAt,indent_" ",subxmlns)
        }
      }
      if $$$ISERR(sc) quit
    }
    set value=$get(@at@(name))
    if isWrite {
      if value]"" Write value
      if subname]"" Write $c(13,10)_indent_"</"_$piece(name,"|",2)_">"
      else  Write "</"_$piece(name,"|",2)_">"
    } else {
      if value]"" set sc=stream.Write(value)
      if $$$ISERR(sc) quit
      if subname]"" set sc=stream.Write($c(13,10)_indent_"</"_$piece(name,"|",2)_">")
      else  set sc=stream.Write("</"_$piece(name,"|",2)_">")
    }
    if $$$ISERR(sc) quit
    set name=$order(@at@(name))
  }
  quit sc
}

}