Index: vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml
===================================================================
diff -u -r35472 -r35503
--- vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 35472)
+++ vhUnitTest/AXimpl/AifMessage/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 35503)
@@ -18,7 +18,6 @@
 <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)
 
@@ -29,7 +28,6 @@
 <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"
 		
 	#dim MessageParts As AXaif.Message.MessageParts = ..Converter.Convert(Request)
@@ -41,20 +39,51 @@
 <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)
+		set CreateConverterStub = ##class(vhTest.Mock.AXimpl.AifMessage.Converter.CustomerCreateConverter).%New()
+		do CreateConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde).DanReturn(..GetMessageParts())
+		set Converter = ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter).%New(CreateConverterStub)
+		#dim MessageParts As AXaif.Message.MessageParts = Converter.Convert(Request)
 
 		do $$$AssertEmptyList(MessageParts.Customer.CustTable.GetAt(1).DefaultDimension.Values)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Klantnaam kan al gewijzigd worden">
+<Implementation><![CDATA[
+	set Request = ##class(AXimpl.AifMessage.Request).%New("Customer/UpdatePart2","K||1234")
+	set Request.Message.Body.MessageParts.Customer.DocPurpose = "DocPurpose"
+	set CustTableRead = ##class(AXaif.Customer.AxdEntityCustTable).%New()
+	set CustTableRead.Name = "OriginalName"
+	do Request.Message.Body.MessageParts.Customer.CustTable.Insert(CustTableRead)
+	
+	set CreateConverterStub = ##class(vhTest.Mock.AXimpl.AifMessage.Converter.CustomerCreateConverter).%New()
+	do CreateConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde).DanReturn(..GetMessageParts())
+	set Converter = ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter).%New(CreateConverterStub)
+	
+	#dim MessageParts As AXaif.Message.MessageParts = Converter.Convert(Request)
+	do $$$AssertEquals(MessageParts.Customer.CustTable.GetAt(1).Name,"UpdatedName")
+]]></Implementation>
+</Method>
+
+<Method name="GetMessageParts">
+<ReturnType>AXaif.Message.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	set MessagePartsCreate = ##class(AXaif.Message.MessageParts).%New()
+	set CustTableCreate = ##class(AXaif.Customer.AxdEntityCustTable).%New()
+	set CustTableCreate.Name = "UpdatedName"
+	set CustTableCreate.CustGroup = "EU"
+	do MessagePartsCreate.Customer.CustTable.Insert(CustTableCreate)
+	quit MessagePartsCreate
+]]></Implementation>
+</Method>
 </Class>