Index: vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml	(revision 42249)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter.Convert.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..Converter = ##class(AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het resultaat van de conversie is een nieuwe instantie">
+<Implementation><![CDATA[
+	#dim Request As AXimpl.Request = ..GetUpdatePart2Request()
+		
+	#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[
+	#dim Request As AXimpl.Request = ..GetUpdatePart2Request()
+	set Request.Message.Body.MessageParts.Customer.DocPurpose = "DocPurpose"
+		
+	#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.Request).%New("Customer/UpdatePart2","K||1234")
+	
+	set CustTable = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdEntityCustTable).%New()
+	set CustTable.DefaultDimension = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdTypeDimensionAttributeValueSet).%New()
+	do CustTable.DefaultDimension.Values.Insert(##class(AXif.Dynamics.CustomerOut.MessageParts.AxdTypeDimensionAttributeValue).%New("Account","01234"))
+	do Request.Message.Body.MessageParts.Customer.CustTable.Insert(CustTable)
+		
+	if $$$AssertEquals(Request.Message.Body.MessageParts.Customer.CustTable.Count(),1) {
+		set CreateConverterStub = ##class(vhTest.Mock.AXimpl.AifMessage.Converter.CustomerCreateConverter).%New()
+		do CreateConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde).DanReturn(..GetMessageParts())
+		set Converter = ##class(AXimpl.Dynamics.CustomerUpsertOut.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.Request).%New("Customer/UpdatePart2","K||1234")
+	set Request.Message.Body.MessageParts.Customer.DocPurpose = "DocPurpose"
+	set CustTableRead = ##class(AXif.Dynamics.CustomerOut.MessageParts.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.Dynamics.CustomerUpsertOut.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="Test: Als klant niet gegenereerd moet worden, worden de gegevens in AX gebruikt en wordt de klant als geblokkeerd geplaatst ">
+<Implementation><![CDATA[
+	set Request = ##class(AXimpl.Request).%New("Customer/UpdatePart2","K||1234")
+	set Request.Message.Body.MessageParts.Customer.DocPurpose = "DocPurpose"
+	set CustTableRead = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdEntityCustTable).%New()
+	do Request.Message.Body.MessageParts.Customer.CustTable.Insert(CustTableRead)
+	
+	set CreateConverterStub = ##class(vhTest.Mock.AXimpl.AifMessage.Converter.CustomerCreateConverter).%New()
+	do CreateConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde).DanException(##class(AXimpl.NoConversionNeededException).%New(##this.%ClassName(),"K||1234"))
+	
+	set Converter = ##class(AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter).%New(CreateConverterStub)
+
+	#dim MessageParts As AXaif.Message.MessageParts = Converter.Convert(Request)
+	do $$$AssertEquals(MessageParts.Customer.CustTable.GetAt(1).Blocked,"All")
+	
+	do $$$AssertEquals(MessageParts.Customer.CustTable.GetAt(1).action,"update")
+]]></Implementation>
+</Method>
+
+<Method name="GetUpdatePart2Request">
+<Private>1</Private>
+<ReturnType>AXimpl.Request</ReturnType>
+<Implementation><![CDATA[
+	set Request = ##class(AXimpl.Request).%New("Customer/UpdatePart2","K||1234")
+	set CustTable = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdEntityCustTable).%New()
+	set CustTable.DefaultDimension = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdTypeDimensionAttributeValueSet).%New()
+	do CustTable.DefaultDimension.Values.Insert(##class(AXif.Dynamics.CustomerOut.MessageParts.AxdTypeDimensionAttributeValue).%New("Account","01234"))
+	do Request.Message.Body.MessageParts.Customer.CustTable.Insert(CustTable)
+	quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GetMessageParts">
+<Private>1</Private>
+<ReturnType>AXaif.Message.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	set MessagePartsCreate = ##class(AXaif.Message.MessageParts).%New()
+	set CustTableCreate = ##class(AXif.Dynamics.CustomerOut.MessageParts.AxdEntityCustTable).%New()
+	set CustTableCreate.Name = "UpdatedName"
+	set CustTableCreate.CustGroup = "EU"
+	do MessagePartsCreate.Customer.CustTable.Insert(CustTableCreate)
+	quit MessagePartsCreate
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml
===================================================================
diff -u -r42247 -r42249
--- vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml	(.../AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml)	(revision 42247)
+++ vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml	(.../vhUnitTest/AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml)	(revision 42249)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter.Convert.TestContactInfo">
+<Class name="vhUnitTest.AXimpl.Dynamics.CustomerUpsertOut.Converter.CustomerUpdatePart2Converter.Convert.TestContactInfo">
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: Telefoon1 wordt toegevoegd">
FishEye: Tag 42249 refers to a dead (removed) revision in file `AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/TestContactInfo.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 42249 refers to a dead (removed) revision in file `AXimpl/Dynamics/CustomerUpsertOut/Converter/CustomerUpdatePart2Converter/Convert/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?