Суть вопроса в том как импортировать данные из Xml в существующий объект

У меня есть класс, он передается с сервера на клиент в виде Xml, затем на клиенте Xml может быть модифицирован и в окончании цикла передается обратно на сервер, где он должен быть загружен в объект из которого был сформирован изначально.

Однако я не могу загрузить Xml в уже существующий объект

У меня есть класс
Class Test.XmlSupporter Extends (%Persistent, %XML.Adaptor)
{

Property A As %String [ InitialExpression = "GGG" ];

Property B As %String [ InitialExpression = "HHH" ];

/// Экспортируем класс в Xml
ClassMethod TestExportInstanceToXml()
{
  #Dim obj As XmlSupporter = ##class(XmlSupporter).%New()
  #Dim xmlView As %String = ""
  #Dim status As %Status = obj.XMLExportToString(.xmlView)
  if (status = $$$OK){
    Write "XmlView = ",xmlView,!
  }
  /// Это работает как надо (!!!) - объект экспортировался
  /// XmlView = <XmlSupporter><A>GGG</A><B>HHH</B></XmlSupporter>
}

/// Создаем новый объект из Xml
/// (!) Согласно BestPractice InterSystems
ClassMethod TestImportNewInstanceFromXml()
{
  #Dim obj As XmlSupporter = $$$NULLOREF
  #Dim xmlReader As %XML.Reader = ##class(%XML.Reader).%New()
  #Dim status As %Status = xmlReader.OpenString("<XmlSupporter><A>CCC</A><B>DDD</B></XmlSupporter>")
  if (status = $$$OK){
    Do xmlReader.Correlate("XmlSupporter","Test.XmlSupporter")
    if (xmlReader.Next(.obj,.status)){
      if (status = $$$OK){
        // Объект успешно создан
        Write obj," A = ",obj.A," B = ",obj.B,!
      }
    }
  } 
  /// Это работает как надо (!!!) - объект импортирован и создан
  /// 3@Test.XmlSupporter A = CCC B = DDD
}

/// Экспортируем объект в Xml, изменяем его Xml, пытаемся загрузить изменения обратно в объект
ClassMethod TestSyncronizeObjectAndXml()
{
  #Dim obj As XmlSupporter = ##class(XmlSupporter).%New()
  #Dim xmlView As %String = ""
  #Dim status As %Status = obj.XMLExportToString(.xmlView)
  if (status = $$$OK){
    Set xmlView = $Replace(xmlView,"HHH","KKK") // изменяем один из атрибутов
    Write "XmlView = ",xmlView,!
    #Dim xmlReader As %XML.Reader = ##class(%XML.Reader).%New()
    set status = xmlReader.OpenString(xmlView)
    if (status = $$$OK){
      Set status = obj.XMLImport("XmlSupporter",,,xmlReader.Document) // Вот тут мы спотыкаемся
      if (status = $$$OK){
        Write obj,!," B = ",obj.B,!
      } else {
        Do $system.Status.DisplayError(%objlasterror)
      }
    }
  }
  // А вот тут ТРАБЛА
  // XmlView = <XmlSupporter><A>GGG</A><B>HHH</B></XmlSupporter>
  // ОШИБКА #5002: Ошибка: <UNDEFINED>zXMLImport+4^%XML.Adaptor.1 *node
}
}
Кстати такая фишка - InterSystems не рекомендует вызывать XMLImport напрямую, но альтернативы никакой другой я не нашел.

Кто можеть помочь? - буду весьма признателен

servit , спасибо за ответ
А пример с Correlate() разве не подходит?
Дело в том что в примере с Correlate он не загружает Xml в переданный методу объект, а банально присваивает ссылке новый объект и уже в него загружает Xml (т.е. это уже не тот объект который нужно синхронизировать)

Нашел какое-никакое решение, унаследовав %XmlReader и изъяв из метода Next все лишнее (пересоздание объекта)
Вроде даже работает. Код: