Index: APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml
===================================================================
diff -u -r29059 -r37841
--- APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(.../Berekenaar.cls.xml)	(revision 29059)
+++ APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(.../Berekenaar.cls.xml)	(revision 37841)
@@ -10,7 +10,7 @@
   s blBerekenaar=##class(APPS.VKP.Betalingsgedrag.impl.Berekenaar).%New(KLNr)
   w ..blBerekenaar.MaxOpenstaandBedrag
   w ..blBerekenaar.GemiddeldeBetaalTermijn</Description>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="KLNr">
 <Type>%String</Type>
@@ -94,15 +94,21 @@
 <Method name="%OnNew">
 <Description>
 s x=##class(APPS.VKP.Betalingsgedrag.impl.Berekenaar).%New(1239) s rs=x.GeefResultSet()</Description>
-<FormalSpec>KLNr:%String</FormalSpec>
+<FormalSpec>KLNr:%String,DelayedInit:%Boolean=0</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set ..KLNr=KLNr
+		Do:$$$Not(DelayedInit) ..Init()
+		Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[
 		Set ..VervalVglDatum=+$H
 		Do ..BerekenMaximumOpenstaandeBedrag()
 		Do ..BerekenBetalingsTermijn()
 		do ..Dump()
-		Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -261,6 +267,18 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalFacturen
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVervallenFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalVervallenFacturen
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml	(revision 37841)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.OpbouwData">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Betalingsgedrag.impl.OpbouwData,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="DeleteOudeData">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("DeleteOudeData")
+]]></Implementation>
+</Method>
+
+<Method name="GeefBetaling">
+<FormalSpec>JournaalCode:%String,VentilatieRec:%String,Periode:%String,JournaalNr:%String,JournaalVolgNr:%String</FormalSpec>
+<ReturnType>APPS.VKP.Betalingsgedrag.Betaling</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBetaling",JournaalCode,VentilatieRec,Periode,JournaalNr,JournaalVolgNr)
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeFactuur">
+<FormalSpec>dtoFactuur:APPS.VKP.Betalingsgedrag.Facturen</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("IsGeldigeFactuur",dtoFactuur)
+]]></Implementation>
+</Method>
+
+<Method name="OpbouwCache">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("OpbouwCache")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOpenstaandeFactuur">
+<FormalSpec>KLId:%String,FactuurNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkOpenstaandeFactuur",KLId,FactuurNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml
===================================================================
diff -u -r29059 -r37841
--- APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml	(.../OpbouwData.cls.xml)	(revision 29059)
+++ APPS/VKP/Betalingsgedrag/impl/OpbouwData.cls.xml	(.../OpbouwData.cls.xml)	(revision 37841)
@@ -8,7 +8,7 @@
 Code snippet :
    s blOpbouw=##class(APPS.VKP.Betalingsgedrag.impl.OpbouwData).%New(KLNr,FacturenVanafDatum)
 Na opbouw kan je de opbouwde structuur via SQL benaderen of via de voorgedefinieerde queries</Description>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="KLNr">
 <Type>%String</Type>
@@ -27,7 +27,7 @@
 <Method name="%OnNew">
 <Description>
 s x=##class(APPS.VKP.Betalingsgedrag.impl.OpbouwData).%New(1239,$H-1000,+$H)</Description>
-<FormalSpec>KLNr:%String,VanDatum:%Date,TotDatum:%Date</FormalSpec>
+<FormalSpec>KLNr:%String,VanDatum:%Date,TotDatum:%Date,DelayedInit:%Boolean=0</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set ..KLNr=KLNr
@@ -39,11 +39,16 @@
 			
 		}
 		Set ..TotDatum=$G(TotDatum)
-		Do ..OpbouwCache()
+		Do:$$$Not(DelayedInit) ..Init()
 		Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="Init">
+<Implementation><![CDATA[	Do ..OpbouwCache()
+]]></Implementation>
+</Method>
+
 <Query name="qFacturen">
 <Type>%SQLQuery</Type>
 <FormalSpec>KLNr:%String</FormalSpec>
Index: vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(revision 37841)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Betalingsgedrag.impl.Berekenaar">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Betalingsgedrag.impl.Berekenaar,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalMaxOpen">
+<FormalSpec><![CDATA[&Cache:%String]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BepaalMaxOpen",.Cache)
+]]></Implementation>
+</Method>
+
+<Method name="BerekenBetalingsTermijn">
+<FormalSpec><![CDATA[&Cache:%String]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BerekenBetalingsTermijn",.Cache)
+]]></Implementation>
+</Method>
+
+<Method name="BerekenMaximumOpenstaandeBedrag">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BerekenMaximumOpenstaandeBedrag")
+]]></Implementation>
+</Method>
+
+<Method name="Dump">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Dump")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalFacturen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVervallenFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalVervallenFacturen")
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Init")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Betalingsgedrag/impl/Berekenaar.cls.xml	(revision 37841)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Betalingsgedrag.impl.Berekenaar">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Betalingsgedrag.impl.Berekenaar</Super>
+
+<Method name="BepaalMaxOpen">
+<FormalSpec><![CDATA[&Cache:%String]]></FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="BerekenBetalingsTermijn">
+<FormalSpec><![CDATA[&Cache:%String]]></FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="BerekenMaximumOpenstaandeBedrag">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="Dump">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefAantalFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefAantalVervallenFacturen">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>