How do I add node values from one document into another?

[winkimjr2]

I have been stuck on this one for days. I hope to get help from you great people.

What I am trying to do in VB.NET is use a variable named strCourtNCIC to hold a value. Then I want to use the strCourtNCIC value to look inside object objXmlSimpleTypeDoc and find an EnumerationValue node that have @code value that matches the value in strCourtNCIC variable.

In this question strCourtNCIC = MN010015J. This can be a different value but I already got the value from some other document.

After I find the correct EnumerationValue node, I want to get the values for children and add them to my objXmlResponseDoc. The result should look like the one I posted here.

The objXmlResponseDoc should look like this

<GetCaseInformationResponseMessage>
    <CourtLocation>
        <CourtName>Emily</CourtName>
        <ORINumber>MN010015J</ORINumber>
        <MNCISNodeID>111</MNCISNodeID>
        <PhoneNumber>724-820-7123</PhoneNumber>
    </CourtLocation>
</GetCaseInformationResponseMessage>

Here is the objXmlSimpleTypeDoc that need to get the EnumerationValue with @code that matches strCourtNCIC value (MN010015J). Then get value for CountyName, ORINumber, MNCISNodeID and PhoneNumber then add them to my new object named objXmlResponseDoc.

<SimpleTypeCompanion enumerates="CourtLocationTextType">
	<EnumerationValue code="MN010015J">
		<Text>Emily County</Text>
		<AssociatedValue type="MNCISNodeID">
			<Text>111</Text>
		</AssociatedValue>
		<AssociatedValue type="CountyName">
			<Text>Emily</Text>
		</AssociatedValue>
		<AssociatedValue type="PhoneNumber">
			<Text>724-820-7123</Text>
		</AssociatedValue>
	</EnumerationValue>
	<EnumerationValue code="DC19DAKDC">
		<Text>Pope County</Text>
		<AssociatedValue type="MNCISNodeID">
			<Text>112</Text>
		</AssociatedValue>
		<AssociatedValue type="CountyName">
			<Text>Pope</Text>
		</AssociatedValue>
	</EnumerationValue>
</SimpleTypeCompanion>

Here is the VB.NET code that I need help with to add the node values from correct EnumerationValue node.

'Produce the response message
objXmlResponseDoc = New XmlDocument
objXmlResponseDoc.AppendChild(objXmlResponseDoc.CreateElement("GetCaseInformationResponseMessage"))
objXmlMNCISData = Library.v4.Case.GetIxmlForCaseNumber(strCaseNumber, "CourtCaseHeaderGroup", False)
'CourtNCIC = MN010015J
strCourtNCIC = objXmlMNCISData.DocumentElement.SelectSingleNode("Case/Court/CourtNCIC").InnerText
'New CourtNCIC as xml element
objXmlCourtNCICElement = objXmlMNCISData.DocumentElement.SelectSingleNode("Case/Court/CourtNCIC")
'Access the CourtLocationTextType simple type. 
objXmlSimpleTypeDoc = Msc.Integration.CourtXml.Library.v4.SimpleType.GetCompanionFile("CourtLocationTextType")
'Court location
objXmlCourtLocationNode = objXmlResponseDoc.CreateElement("CourtLocation")
objXmlResponseDoc.DocumentElement.AppendChild(objXmlCourtLocationNode)
'CourtName
objXmlCourtNameElement = objXmlResponseDoc.CreateElement("CourtName")
strCourtName = objXmlCourtLocationNode.SelectSingleNode("EnumerationValue[@code=" + strCourtNCIC + "]/Test").InnerText
objXmlCourtLocationNode.AppendChild(objXmlCourtNameElement)
'ORINumber
objXmlORINumberElement = objXmlResponseDoc.CreateElement("ORINumber")
objXmlCourtLocationNode.AppendChild(objXmlORINumberElement)
'MNCISNode ID
objXmlMNCISNodeIDElement = objXmlResponseDoc.CreateElement("MNCISNodeID")
objXmlCourtLocationNode.AppendChild(objXmlMNCISNodeIDElement)
'PhoneNumber 
objXmlPhoneNumberElement = objXmlResponseDoc.CreateElement("PhoneNumber")
objXmlCourtLocationNode.AppendChild(objXmlPhoneNumberElement)

[techgnome]

So what's the question? What part are you having an issue with?

-tg