INT _doc1
INT _doc2
INT _listOfElements
INT _elementToCopy
INT _parentElement
INT _copyOfElement
INT _freeDoc1
INT _freeDoc2
_doc1 := %XML_ExportD2ObjToDocument(objectName1\HBJ,"")
_doc2 := %XML_ExportD2ObjToDocument(objectName2\HBJ,"")
_listOfElements := %XML_GetElementsByTagName(_doc1, "HOBJ_REF")
_elementToCopy := %XML_Item(_listOfElements,0)
_listOfElements := %XML_GetElementsByTagName(_doc2,"REFERENCES")
_parentElement := %XML_Item(_listOfElements,0>)
_copyOfElement := %XML_AddElementByCopy(_parentElement, _elementToCopy)
Pridať komentár