Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r50155 -r50158
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50155)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50158)
@@ -51,14 +51,8 @@
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
-	
-	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
+	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -88,14 +82,8 @@
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
-	
-	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
+	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -128,14 +116,8 @@
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevensIndienGeenHoofdadres(PartijMock, ..GeefLeegAdres())
-	
-	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
+	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
@@ -167,14 +149,8 @@
 	Do Adres.ZetVerzendingWijze("")
 
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
-	
-	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
+	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -287,6 +263,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwachtZetKlantgegevens">
+<FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlant">
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>