Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37843 -r37845
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37843)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37845)
@@ -23,21 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BetalingsgedragBerekenaar">
-<Type>vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.Berekenaar</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="BetalingsgedragOpbouw">
-<Type>vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.OpbouwData</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Converter">
-<Type>AXimpl.BizTalkMessage.Converter.CustomerConverter</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -64,28 +49,20 @@
 	Do ..Klant.IndienMethodCall("GeefFacturatieFrequentie").DanReturn("D2")
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
-	
-	Set ..BetalingsgedragOpbouw = ##class(vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.OpbouwData).%New(##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID()),$H-1000,$H,1)
-	Do ..BetalingsgedragOpbouw.IndienMethodCall("OpbouwCache",).DanDoeNiks()
-	
-	Set ..BetalingsgedragBerekenaar = ##class(vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.Berekenaar).%New(##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID()), 1)
-	Do ..BetalingsgedragBerekenaar.IndienMethodCall("BerekenMaximumOpenstaandeBedrag",$$$ElkeWaarde).DanDoeNiks()
-	Do ..BetalingsgedragBerekenaar.IndienMethodCall("GeefAantalFacturen").DanReturn(60)
-	Do ..BetalingsgedragBerekenaar.IndienMethodCall("GeefAantalVervallenFacturen").DanReturn(18)
-	
-	Set ..Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI, ..BetalingsgedragOpbouw, ..BetalingsgedragBerekenaar)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: properties die 1 op 1 worden overgenomen (wel met een maxlen)">
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
 	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)	
+	
 	Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("eenFaxNummer")
 	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"K||1234")
 	Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
@@ -106,10 +83,6 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveringsvoorwaarde,"30")
 	Do $$$AssertEquals(GeconverteerdeKlant.Kredietlimiet,"1000")
 	Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"D2")
-	
-	Do $$$AssertEquals(GeconverteerdeKlant.AantalFacturen,"60")
-	Do $$$AssertEquals(GeconverteerdeKlant.AantalFacturenVervallen,"18")
-	Do $$$AssertEquals(GeconverteerdeKlant.PercentageVervallenFacturen,"30")
 ]]></Implementation>
 </Method>
 
@@ -118,8 +91,10 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/123489dnf9")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("123456")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/123489dnf9")
 ]]></Implementation>
 </Method>
@@ -129,16 +104,20 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/987654")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: iedereen altijd als klant">
 <Implementation><![CDATA[
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.RelatieType,"3")
 ]]></Implementation>
 </Method>
@@ -147,8 +126,10 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"1")
 ]]></Implementation>
 </Method>
@@ -157,8 +138,10 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -167,8 +150,10 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -177,8 +162,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Architect")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950000")
 ]]></Implementation>
 </Method>
@@ -187,8 +174,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
 ]]></Implementation>
 </Method>
@@ -197,8 +186,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
 ]]></Implementation>
 </Method>
@@ -207,8 +198,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
 ]]></Implementation>
 </Method>
@@ -217,8 +210,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
 ]]></Implementation>
 </Method>
@@ -227,8 +222,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("AR/BP A")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
 ]]></Implementation>
 </Method>
@@ -237,8 +234,10 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"969950001")
 ]]></Implementation>
 </Method>
@@ -247,24 +246,13 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
 ]]></Implementation>
 </Method>
-
-<Method name="Test: 0 facturen">
-<Implementation><![CDATA[
-	Do ..BetalingsgedragBerekenaar.IndienMethodCall("GeefAantalFacturen").DanReturn(0)
-	
-	Set ..Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI, ..BetalingsgedragOpbouw, ..BetalingsgedragBerekenaar)
-	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
-	
-	Do $$$AssertEquals(GeconverteerdeKlant.AantalFacturen,0)
-	Do $$$AssertEquals(GeconverteerdeKlant.PercentageVervallenFacturen,0)
-]]></Implementation>
-</Method>
 </Class>