Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r70344 -r70464
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70344)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70464)
@@ -50,6 +50,7 @@
 	Do ToegelatenLadetypes.Insert("TBX")
 	Do ToegelatenLadetypes.Insert("MVX")
 	Do ToegelatenLadetypes.Insert("OL")
+	Do ToegelatenLadetypes.Insert("MAT")
 	
 	Quit ToegelatenLadetypes
 ]]></Implementation>
@@ -68,30 +69,10 @@
 
 <Method name="VerwerkDestil">
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("MVX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-	Do ..ToegelatenLadetypes.Insert("MAT")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
-<Implementation><![CDATA[
-	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
-	
-	Do ..ToegelatenLadetypes.Insert("LBX")
-	Do ..ToegelatenLadetypes.Insert("TAX")
-	Do ..ToegelatenLadetypes.Insert("TBX")
-	Do ..ToegelatenLadetypes.Insert("MVX")
-	Do ..ToegelatenLadetypes.Insert("OL")
-	Do ..ToegelatenLadetypes.Insert("MAT")
-]]></Implementation>
 </Method>
 
 <Method name="VerwerkHaefeleBE">
@@ -113,6 +94,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -123,6 +105,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -133,6 +116,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -143,6 +127,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -157,6 +142,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -167,6 +153,7 @@
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 	Do ..ToegelatenLadetypes.Insert("OL")
+	Do ..ToegelatenLadetypes.Insert("MAT")
 ]]></Implementation>
 </Method>
 
@@ -186,6 +173,15 @@
 
 <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("MVX")
+	Do ..ToegelatenLadetypes.Insert("OL")
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkNoteborn">
@@ -202,10 +198,28 @@
 
 <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("MVX")
+	Do ..ToegelatenLadetypes.Insert("OL")
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkOPO">
 <FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("LBX")
+	Do ..ToegelatenLadetypes.Insert("TAX")
+	Do ..ToegelatenLadetypes.Insert("TBX")
+	Do ..ToegelatenLadetypes.Insert("MVX")
+	Do ..ToegelatenLadetypes.Insert("OL")
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkSeefelder">
@@ -337,18 +351,54 @@
 
 <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("MVX")
+	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("MVX")
+	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("MVX")
+	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("MVX")
+	Do ..ToegelatenLadetypes.Insert("OL")
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkYachtSupplier">
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r70349 -r70464
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70349)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70464)
@@ -21,35 +21,35 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Personalities waarvoor de default ladetypes LBX, TAX, MVX, TBX en OL toegelaten zijn">
+<Method name="Test: Personalities waarvoor de default ladetypes LBX, TAX, MVX, TBX, OL en MAT toegelaten zijn">
 <Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "MVX", "OL")
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "MVX", "OL", "MAT")
 	
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
+	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.VanHoecke, VerwachteLadetypes)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personalities waarvoor de ladetypes LBX, TAX, MVX, TBX en OL toegelaten zijn">
+<Implementation><![CDATA[
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "MVX", "OL")
+	
 	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>
 
-<Method name="Test: Personalities waarvoor de ladetypes LBX, TAX, MVX, TBX, OL en MAT toegelaten zijn">
-<Implementation><![CDATA[
-	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "MVX", "OL", "MAT")
-	
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dupont, VerwachteLadetypes)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Personalities waarvoor enkel ladetypes LBX, TAX, TBX en OL toegelaten zijn">
 <Implementation><![CDATA[
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX", "OL")
@@ -68,6 +68,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Personalities waarvoor enkel ladetypes TAX, OL en MAT toegelaten zijn">
+<Implementation><![CDATA[
+	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("TAX", "OL", "MAT")
+	
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleSE, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFI, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleNO, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleIT, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFR, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDK, VerwachteLadetypes)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Personalities waarvoor enkel ladetypes TAX en OL toegelaten zijn">
 <Implementation><![CDATA[
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("TAX", "OL")
@@ -84,12 +97,6 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Seefelder, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Beslagteknikk, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HahleOy, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleSE, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFI, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleNO, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleIT, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFR, VerwachteLadetypes)
-	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDK, VerwachteLadetypes)
 ]]></Implementation>
 </Method>