Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r64411 -r64686
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64411)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64686)
@@ -118,12 +118,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r64411 -r64686
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64411)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64686)
@@ -16,203 +16,243 @@
 
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleAT">
-<FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
+<Method name="VerwerkBeslagteknikk">
+<FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleFI">
-<FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleIT">
-<FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleSE">
-<FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
+<Method name="VerwerkDSGroup">
+<FormalSpec>DSGroupPersonality:DOM.common.DSGroupPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkOPO">
-<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkHahleOy">
-<FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkDeBisschop">
+<FormalSpec>DeBisschopPersonality:DOM.common.DeBisschopPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleDE">
-<FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkDeceuninckDeforce">
+<FormalSpec>DeceuninckDeforcePersonality:DOM.common.DeceuninckDeforcePersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkKleiner">
-<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkLayer">
-<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkBeslagteknikk">
-<FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkFerexpert">
+<FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkBiemarBois">
-<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkFurnifit">
+<FormalSpec>FurnifitPersonality:DOM.common.FurnifitPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkCampeTonny">
-<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkGalimberti">
+<FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDSGroup">
-<FormalSpec>DSGroupPersonality:DOM.common.DSGroupPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleAT">
+<FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDeBisschop">
-<FormalSpec>DeBisschopPersonality:DOM.common.DeBisschopPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDeceuninckDeforce">
-<FormalSpec>DeceuninckDeforcePersonality:DOM.common.DeceuninckDeforcePersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleDE">
+<FormalSpec>HaefeleDEPersonality:DOM.common.HaefeleDEPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkFurnifit">
-<FormalSpec>FurnifitPersonality:DOM.common.FurnifitPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkJBarth">
-<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleFI">
+<FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkPierard">
-<FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkRini">
-<FormalSpec>RiniPersonality:DOM.common.RiniPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleIT">
+<FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkYachtSupplier">
-<FormalSpec>YachtSupplierPersonality:DOM.common.YachtSupplierPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkteknikkDesign">
-<FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHaefeleSE">
+<FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkFerexpert">
-<FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHahleOy">
+<FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkPavanello">
-<FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDaro">
-<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkGalimberti">
-<FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkZweygart">
-<FormalSpec>SeefelderPersonality:DOM.common.ZweygartPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDestil">
-<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkDupont">
-<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleBE">
-<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkOPO">
+<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkHaefeleNL">
-<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkPavanello">
+<FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkHein">
-<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkPierard">
+<FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkKisch">
-<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VerwerkRini">
+<FormalSpec>RiniPersonality:DOM.common.RiniPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="VerwerkNoteborn">
-<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkSeefelder">
 <FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanHoeckeVoorHalux">
 <FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
 <Method name="VerwerkVanRaemdonck">
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
+
+<Method name="VerwerkYachtSupplier">
+<FormalSpec>YachtSupplierPersonality:DOM.common.YachtSupplierPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZweygart">
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r64682 -r64686
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64682)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 64686)
@@ -113,6 +113,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("TAX")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("TAX")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r64682 -r64686
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64682)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64686)
@@ -69,6 +69,8 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFI, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleIT, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleAT, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleFR, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.HaefeleDK, VerwachteLadetypes)
 ]]></Implementation>
 </Method>