Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r59345 -r59396
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 59345)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 59396)
@@ -142,6 +142,8 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceLayer).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.DeceuninckDeforce) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceDeceuninckDeforce).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HahleOy) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHahleOy).%New()
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor Personality '" _ $Select($IsObject(Personality):Personality.GeefID(),1:"[geen object]") _ "' bestaat geen KlantInstellingenService."))
 	}
Index: APPS/EC/impl/KlantInstellingenServiceHahleOy.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceHahleOy.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceHahleOy.cls.xml	(revision 59396)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceHahleOy">
+<Super>APPS.common.impl.KlantInstellingenService</Super>
+
+<Method name="MagKlantLBXVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1())
+]]></Implementation>
+</Method>
+
+<Method name="MagKlantTAORVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((VerpakkingType = ..TaxVerpakkingType.V1) || (VerpakkingType = ..TaxVerpakkingType.Probox) || (VerpakkingType = ..TaxVerpakkingType.FlatpackV1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>