Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37835 -r37842
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37835)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37842)
@@ -23,6 +23,21 @@
 <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[
@@ -49,20 +64,28 @@
 	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")
@@ -83,6 +106,10 @@
 	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>
 
@@ -91,10 +118,8 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/123489dnf9")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("123456")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/123489dnf9")
 ]]></Implementation>
 </Method>
@@ -104,20 +129,16 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#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[
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.RelatieType,"3")
 ]]></Implementation>
 </Method>
@@ -126,10 +147,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"1")
 ]]></Implementation>
 </Method>
@@ -138,10 +157,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -150,10 +167,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -162,10 +177,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Architect")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950000")
 ]]></Implementation>
 </Method>
@@ -174,10 +187,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
 ]]></Implementation>
 </Method>
@@ -186,10 +197,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950021")
 ]]></Implementation>
 </Method>
@@ -198,10 +207,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
 ]]></Implementation>
 </Method>
@@ -210,10 +217,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950014")
 ]]></Implementation>
 </Method>
@@ -222,10 +227,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("AR/BP A")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
 ]]></Implementation>
 </Method>
@@ -234,10 +237,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"969950001")
 ]]></Implementation>
 </Method>
@@ -246,13 +247,34 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = ..Converter.Convert(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende betalingsgedraggegevens">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
 	
+	#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>