Index: DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml
===================================================================
diff -u -r35534 -r36638
--- DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 35534)
+++ DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 36638)
@@ -79,7 +79,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;9382;7606;18417;9197;8869;11171;6261;9905;10387;12983"
+	#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;9382;7606;18417;9197;8869;11171;6261;9905;10387;12983;9798"
 	#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 -r35534 -r36638
--- APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 35534)
+++ APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 36638)
@@ -48,6 +48,7 @@
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).MiwaInterieurs())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).FransenMarius())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).Strakk())
+	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).LenssenProduktie())
 	
 	// Nog enkele testklanten : 
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).TestklantVanHoecke())