доброго всем времени суток.
необходимо отправить дату в xyz.xml формат прилагаетса.

вроде игрался раньше и получалось, а сейчас ну никак и всё ...

пишем:

OleObject ole_xml_main, ole_xml_column, ole_node
string s_dir, s_file, s_client_number, s_association_id
int i_rc
long l_row

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

IF i_rc = 0 THEN // Cancel ...
RETURN
END IF

// Check for open file ...
i_rc = FileOpen (s_file, StreamMode!, Write!, LockReadWrite!)

IF i_rc > 0 THEN
FileClose(i_rc)
FileDelete(s_file)
END IF

s_client_number = '00000'

SetPointer(Hourglass!)
SetMicrohelp(Processing)


ole_xml_main = CREATE oleobject

ole_xml_main.connectToNewObject('Msxml2.DOMDocument')

ole_xml_main.loadXML('<?xml version="1.0" encoding="ISO-8859-1"?>' + '~n' + &
'<Order FileVersion="1" xmlns:xsi="http://www.w3.org/2001/XMLSchemainstance">' + &
'<Software Name="SoftwareName" Version="2.0" />' + &
'<Client>' + &
'<ClientNumber>' + s_client_number + '</ClientNumber>' + &
'<Group>' + &
'</Group>' + &
'</Client>' + &
'</Order>');

// сначала к "Goup" хочу добавить "AssnID", "Product", "Records" ...
// dw_1 имеет лист "AssnID"

ole_xml_column = ole_xml_main.SelectSingleNode('Group')

for l_row = 1 to dw_1.rowcount()
s_association_id = dw_1.getitemstring(l_row, 'association_id')
ole_node = ole_xml_main.CreateNode (1, 'AssnID', '')
оlе_node.text = s_association_id
ole_xml_main.appendChild(ole_node)
// бабах !!!
// Error calling external object function appendchild at line 48 in ue_runsp event of object w_sd_export.

next


destroy ole_xml_main

SetPointer(Arrow!)
SetMicrohelp('Done')

MessageBox(This.Title + ' Status', 'File Exported: ' + s_dir )

Примного благодарен за любую наводку.