Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r69131 -r69311
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 69131)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 69311)
@@ -21,8 +21,7 @@
 
 <Method name="VerwerkMartens">
 <FormalSpec>MartensPersonality:DOM.common.MartensPersonality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkBeslagteknikk">
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r68207 -r69311
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 68207)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69311)
@@ -28,7 +28,16 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dupont, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleBE, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleNL, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDE, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleAT, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleCH, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.SFS, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.OPO, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Kisch, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.BiemarBois, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.CampeTonny, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Rini, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Furnifit, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.VanHoecke, VerwachteLadetypes)
 ]]></Implementation>
 </Method>
@@ -38,16 +47,9 @@
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "OL")
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Noteborn, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Rini, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.YachtSupplier, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Kisch, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.SFS, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.VanRaemdonck, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.BiemarBois, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.CampeTonny, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Furnifit, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDE, VerwachteLadetypes)
 ]]></Implementation>
 </Method>
 
@@ -59,14 +61,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Personalities waarvoor enkel ladetypes TAX en MVX toegelaten zijn">
-<Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("TAX", "MVX", "OL")
-	
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleCH, VerwachteLadetypes)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Personalities waarvoor enkel ladetype TAX toegelaten is">
 <Implementation><![CDATA[
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("TAX", "OL")
@@ -89,7 +83,6 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleIT, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFR, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDK, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleAT, VerwachteLadetypes)
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r69131 -r69311
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 69131)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 69311)
@@ -92,14 +92,6 @@
 
 <Method name="VerwerkHaefeleDE">
 <FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleSE">
@@ -144,12 +136,6 @@
 
 <Method name="VerwerkHaefeleAT">
 <FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleFR">
@@ -174,13 +160,6 @@
 
 <Method name="VerwerkHaefeleCH">
 <FormalSpec>HaefeleCHPersonality:DOM.common.HaefeleCHPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("MVX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkHein">
@@ -195,14 +174,6 @@
 
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkNoteborn">
@@ -219,14 +190,6 @@
 
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkOPO">
@@ -362,50 +325,18 @@
 
 <Method name="VerwerkBiemarBois">
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkRini">
 <FormalSpec>RiniPersonality:DOM.common.RiniPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkFurnifit">
 <FormalSpec>FurnifitPersonality:DOM.common.FurnifitPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkYachtSupplier">