Index: DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml
===================================================================
diff -u -r49966 -r51473
--- DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 49966)
+++ DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 51473)
@@ -75,7 +75,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	 ; 10 staat er bij om de IntegratieTesten
-	#dim KastKlanten As %String = "10;"_"1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;6751;11211;15862;1879;2247;6260;7606;9197;8869;11171;6261;9905;10387;12983;9798;9082"
+	#dim KastKlanten As %String = "10;"_"1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;6751;11211;15862;1879;2247;6260;7606;9197;8869;11171;6261;9905;10387;12983;9798;9082;2595"
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..KlantID)
 	Quit $Find(";"_KastKlanten_";" , ";"_KlantNr_";")>0
 ]]></Implementation>
Index: APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml
===================================================================
diff -u -r49966 -r51473
--- APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 49966)
+++ APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 51473)
@@ -50,6 +50,7 @@
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).Strakk())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).LenssenProduktie())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).Cullimaat())
+	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).VanDiessen())
 	
 	// Nog enkele testklanten : 
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).TestklantVanHoecke())