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>