Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37835 -r37842
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37835)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37842)
@@ -95,6 +95,18 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="AantalFacturen">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalFacturenVervallen">
+<Type>%String</Type>
+</Property>
+
+<Property name="PercentageVervallenFacturen">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -163,6 +175,18 @@
 <Value name="21">
 <Value>FacturatieFrequentie</Value>
 </Value>
+<Value name="22">
+<Value>AantalFacturen</Value>
+</Value>
+<Value name="23">
+<Value>AantalVervallenFacturen</Value>
+</Value>
+<Value name="24">
+<Value>PercentageVervallenFacturen</Value>
+</Value>
+<Value name="25">
+<Value>AantalFacturenVervallen</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
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>
 
 
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37835 -r37842
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37835)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37842)
@@ -33,13 +33,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BetalingsgedragOpbouw">
+<Type>APPS.VKP.Betalingsgedrag.impl.OpbouwData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BetalingsgedragBerekenaar">
+<Type>APPS.VKP.Betalingsgedrag.impl.Berekenaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,BetalingsgedragOpbouw:APPS.VKP.Betalingsgedrag.impl.OpbouwData,BetalingsgedragBerekenaar:APPS.VKP.Betalingsgedrag.impl.Berekenaar</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..PartijAPI = $$$Inject(PartijAPI,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..BetalingsgedragOpbouw = BetalingsgedragOpbouw
+	Set ..BetalingsgedragBerekenaar = BetalingsgedragBerekenaar
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -58,6 +70,7 @@
 	Do ..ConvertAdminSegmentering()
 	Do ..ConvertPrijsInformatie()
 	Do ..ConvertFinancieleInformatie()
+	Do ..ConvertBetalingsgedragInformatie()
 	
 	Quit ..Customer
 ]]></Implementation>
@@ -167,6 +180,21 @@
 	Set ..Customer.FacturatieFrequentie = ..Klant.GeefFacturatieFrequentie()
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertBetalingsgedragInformatie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..BetalingsgedragOpbouw = $$$LazyLoad(..BetalingsgedragOpbouw,##class(APPS.VKP.Betalingsgedrag.impl.OpbouwData).%New(##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID()),$H-365,$H))
+	Set ..BetalingsgedragBerekenaar = $$$LazyLoad(..BetalingsgedragBerekenaar,##class(APPS.VKP.Betalingsgedrag.impl.Berekenaar).%New(##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(..Klant.GeefID())))
+	Set ..Customer.AantalFacturen = ..BetalingsgedragBerekenaar.GeefAantalFacturen()
+	Set ..Customer.AantalFacturenVervallen = ..BetalingsgedragBerekenaar.GeefAantalVervallenFacturen()
+	If ..Customer.AantalFacturen = 0 {
+		Set ..Customer.PercentageVervallenFacturen = 0
+	} Else {
+		Set ..Customer.PercentageVervallenFacturen = ##class(TECH.Math).Round((..Customer.AantalFacturenVervallen / ..Customer.AantalFacturen)*100,2)
+	}
+]]></Implementation>
+</Method>
 </Class>