Index: APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml
===================================================================
diff -u -r36638 -r39614
--- APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 36638)
+++ APPS/EC/impl/KlantInstellingenServiceVanHoecke.cls.xml	(.../KlantInstellingenServiceVanHoecke.cls.xml)	(revision 39614)
@@ -35,8 +35,8 @@
 <Implementation><![CDATA[
 	Set KlantIDs = ##class(%ListOfDataTypes).%New()
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).HeylenJos())
-	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).VanLaer())
-	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).WilsInterieurbouw())
+	;Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).VanLaer())
+	;Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).WilsInterieurbouw())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).Jongen())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).VOLUX())
 	Do KlantIDs.Insert(##class(DOM.VKP.enu.Klant).DiboDesign())
Index: DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml
===================================================================
diff -u -r37512 -r39614
--- DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 37512)
+++ DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 39614)
@@ -79,7 +79,8 @@
 <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;9798"
+	 ; WilsInterieurbouw (18417) en VanLaer (9382) mogen geen VHoss voor LBX meer bestellen. Hier voor TBX ??? 
+	#dim KastKlanten As %String = "10;18417;9382;"_"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"
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..KlantID)
 	Quit $Find(";"_KastKlanten_";" , ";"_KlantNr_";")>0
 ]]></Implementation>