Index: vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml
===================================================================
diff -u -r35470 -r35472
--- vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 35470)
+++ vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 35472)
@@ -3,19 +3,58 @@
 <Class name="vhUnitTest.AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter.Convert.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Property name="Converter">
+<Type>AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
+	do ##super()
+	set ..Converter = ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het resultaat van de conversie is een nieuwe instantie">
+<Implementation><![CDATA[
 	set Request = ##class(AXimpl.AifMessage.Request).%New("Customer/UpdatePart2","K||1234")
 	set Request.Message = ##class(AXaif.Message.Envelope).%New()
+
+	#dim MessageParts As AXaif.Message.MessageParts = ..Converter.Convert(Request)
+
+	do $$$AssertNotEquals(MessageParts,Request.Message.Body.MessageParts)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Een veld niet door ons aangepast blijft bestaan">
+<Implementation><![CDATA[
+	set Request = ##class(AXimpl.AifMessage.Request).%New("Customer/UpdatePart2","K||1234")
+	set Request.Message = ##class(AXaif.Message.Envelope).%New()
 	set Request.Message.Body.MessageParts.Customer.DocPurpose = "DocPurpose"
 		
-	set Converter = ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter).%New()
-	#dim MessageParts As AXaif.Message.MessageParts = Converter.Convert(Request)
-	
-	do $$$AssertNotEquals(MessageParts,Request.Message.Body.MessageParts)
+	#dim MessageParts As AXaif.Message.MessageParts = ..Converter.Convert(Request)
+
 	do $$$AssertEquals(MessageParts.Customer.DocPurpose,"DocPurpose")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Default dimensions worden niet mee geëxporteerd ook al wordt het niet door ons aangepast">
+<Implementation><![CDATA[
+	set Request = ##class(AXimpl.AifMessage.Request).%New("Customer/UpdatePart2","K||1234")
+	set Request.Message = ##class(AXaif.Message.Envelope).%New()
+	
+	set CustTable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
+	set CustTable.DefaultDimension = ##class(AXaif.Customer.AxdTypeDimensionAttributeValueSet).%New()
+	do CustTable.DefaultDimension.Values.Insert(##class(AXaif.Customer.AxdTypeDimensionAttributeValue).%New("Account","01234"))
+	do Request.Message.Body.MessageParts.Customer.CustTable.Insert(CustTable)
+		
+	if $$$AssertEquals(Request.Message.Body.MessageParts.Customer.CustTable.Count(),1) {
+		#dim MessageParts As AXaif.Message.MessageParts = ..Converter.Convert(Request)
+
+		do $$$AssertEmptyList(MessageParts.Customer.CustTable.GetAt(1).DefaultDimension.Values)
+	}
+]]></Implementation>
+</Method>
 </Class>