
loResponse = FILETOSTR(getfile('xml'))
oXML = CREATEOBJECT('MSXML2.DomDocument')

*WAIT WINDOW VARTYPE(oXML )

oXML.ASYNC = .F.
oXml.loadXML(loResponse)		
oRootNode 	= oXML.documentElement

? iNode (oRootNode,'estado')
? iNode (oRootNode,'numeroAutorizacion')
? iNode (oRootNode,'fechaAutorizacion')
?


oNodeList = oRootNode.getElementsByTagName("comprobante")
oNode = oNodeList.ITEM(0)
loComp = oNode.firstChild.nodeValue
oXml.loadXML(loComp)		
oRootNode 	= oXML.documentElement

? iNode (oRootNode,'ambiente')
? iNode (oRootNode,'tipoEmision')
? iNode (oRootNode,'razonSocial')
? iNode (oRootNode,'nombreComercial')
? iNode (oRootNode,'ruc')
? iNode (oRootNode,'claveAcceso')
? iNode (oRootNode,'codDoc')
? iNode (oRootNode,'estab')
? iNode (oRootNode,'ptoEmi')
? iNode (oRootNode,'secuencial')
? iNode (oRootNode,'dirMatriz')
? iNode (oRootNode,'fechaEmision')





FUNCTION iNode (oNode,cTag)
RETURN oNode.getElementsByTagName(cTag).ITEM(0).firstChild.nodeValue