Create Cursor f_w( ;
 code v( 9 ), ;
 name_service v( 254 ), ;
 price b( 3 ) ;
 )


* Файл ворда сохранен в юникоде. Поэтому при чтении этого файла в переменную сразу конвертируем в нужную кодировку
* и т.к. файл в чистом юникоде первым символом идет BOM. После преобразования этот BOM вырезаем, иначе он мешает 
обрабатывать XML
xm(SUBSTR(Strconv(Strconv(Strtran(FILETOSTR("C:\1_1\3т_first.xml"), [encoding="UTF-8"], 
[encoding="windows-1251"]), 11 ), 2 ), 2 ))
* Или-же скармливать XMLю путь к файлу и тогда он сам корректно его загружает
*xm("C:\1_1\3т_first.xml")


***************************************************************
Procedure xm
Lparameters sXml As String

Local transformXML As String
Local XML As MSXML2.DOMDocument, xsl As MSXML2.DOMDocument
Local oXA As Xmladapter, oXT As Xmltable

oXA = Createobject("XMLAdapter")

xsl = Createobject("MSXML2.DOMDocument")
XML = Createobject("MSXML2.DOMDocument")
* Загружаем полученный XML
XML.Async = .F.
XML.LoadXML(sXml)
* Это если путь к файлу передаем
* XML.Load(sXml)

* Проверяйтесь на ошибки! Не игнорируйте их! Иначе они(ошибки) будут СИЛЬНО любить вас :)))
If XML.parseError.errorCode !=  0  Then
 Messagebox("Ошибка загрузки XML-документа: " + XML.parseError.reason + Chr( 10 )+Chr( 13 ) + ;
  " srcText: " + XML.parseError.srcText + Chr( 10 )+Chr( 13 ) + ;
  " line: " + Transform(XML.parseError.Line) + Chr( 10 )+Chr( 13 ) + ;
  " linepos: " + Transform(XML.parseError.linepos) + Chr( 10 )+Chr( 13 ))
 Return
Endif
* Загружаем схему преобразования для получения данных из XML
xsl.Async = .F.
xsl.Load("C:\1_1\3t_2.xsl")

* Проводим трансформацию и получаем нужный XML
transformXML = XML.transformNode(xsl)
* После трансформации заменяем кодировку в самом xml'е и делаем преобразование из utf-8 в windows-1251
* Если преобразовывали при чтении XML'я в переменную, тогда здесь преобразовывать не нужно.
*transformXML = Strconv(Strconv(Strtran(transformXML, [encoding="UTF-16"], [encoding="windows-1251"]), 11 ), 2 )
Strtofile(transformXML, "c:\1_1\transformXML.xml")

* Загружаем полученный XML
oXA.LoadXML(transformXML,.F.)
* Присоединяем курсор, в который нужно получить результат
oXA.AddTableSchema("f_w",.T.,Strconv("f_w", 5 ))
* Выгружаем данные
oXT=oXA.Tables( 1 )
oXT.ToCursor(.T.)
* Очмщаем объект от предыдущих данных
oXA.ReleaseXML()


* Освобождаем объекты преобразования
Release oXT
Release oXA
Release XML
Release xsl

* Преобразование прошло, курсоры подготовленны, сохраняем полученные курсоры на сервере
Select f_w
Browse
Endproc