Доброго всем времени суток.

Имеетса файл (прилагаетса), его нужно затянуть в datawindow.

Не получаетса построить datawindow чтобы использовать dw.ImportFile(XML!, c:\xyz.xml)

Буду благодарен за помощь.

Спасибо

Спасибо комрад, но файл нельзя трогать.

Вообщем затащил через скрипт, так что "война окончена, всем спасибо" (c).

медленно, но может кому и пригодитса

i_rc = GetFileOpenName('Select File', s_dir, s_file, 'XML','XML Files, *.xml')

IF i_rc <> 1 THEN
Close(This)
RETURN
END IF

SetPointer(hourglass!)
SetMicrohelp('Loading XML File')

ole_xml_doc = CREATE OLEobject

i_rc = ole_xml_doc.ConnectToNewObject('Microsoft.XMLDOM')

IF i_rc <> 0 THEN
DESTROY ole_xml_doc
messagebox(this.title, 'System error. ConnectToNewObject()=' + string(i_rc), exclamation!)
close(this)
RETURN
END IF

ole_xml_doc.async = FALSE
ole_xml_doc.load (s_dir)

i_rc = ole_xml_doc.parseError.errorCode

if isnull(i_rc) then
i_rc = -99
end if

IF i_rc = 0 THEN
ole_xml_rowset = ole_xml_doc.GetElementsByTagName ('ROW')

i_rc = ole_xml_rowset.Length

IF i_rc > 0 THEN
l_node_knt = i_rc - 1

setnull(s_error)

FOR l_row = 0 TO l_node_knt
ole_xml_row = ole_xml_rowset.NextNode()

if NOT IsNull(ole_xml_row) then
s_sort_code = trim(ole_xml_row.getattribute("SortCode"))

if isnull(s_sort_code) or s_sort_code = '' then
s_error = 'System error. SortCode = null'
exit
else
s_file_code = ole_xml_row.getattribute("FileCode")

if isnull(s_file_code) or s_file_code = '' then
s_error = 'System error. FileCode = null'
exit
else
l_row = dw_1.fu_insert(0)

dw_1.setitem(l_row, 'sortcode', s_sort_code)
end if
end if
else
s_error = 'System error. ole_xml_row = null'
exit
end if
NEXT
else
DESTROY ole_xml_doc
messagebox(this.title, 'System error. ole_xml_rowset.Length=' + string(i_rc), exclamation!)
this.triggerevent('ue_cancel')
return
end if
else
DESTROY ole_xml_doc
messagebox(this.title, 'System error. ole_xml_doc.parseError.errorCode=' + string(i_rc), exclamation!)
this.triggerevent('ue_cancel')
return
end IF

DESTROY ole_xml_doc