xml - 09 05 09 - 08:47

cImpXMLNavigator &= cImpExch.getNavigator()
cImpXMLNavigator.goToRoot()
bImpXmlRet = cImpXMLNavigator.goToFirstChild()
Loop
  If bImpXmlRet <> CPXMLErr:NoError
    Break
  End
  If cImpXMLNavigator.getNodeName() = 'Orders'
    cImpXMLNavigator.setXMLExchangeNode()      
    ! Set the node back into the Exchange object
    bImpXmlRet = cImpExch.FromXML( cImpWrapperOD )  
    !And read in the set of OrderDetails for this order
    If bImpXmlRet <> CPXMLErr:NoError
      Message( 'An Error Occurred while Converting the XML Input. ' &|
               'The error returned was: ' & bImpXmlRet,|
               'Error Converting XML Output',|
               ICON:Hand, BUTTON:OK )
    End
  End
  bImpXmlRet = cImpXMLNavigator.goToNextSibling()
End
cImpExch.Close()