Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r59396 -r67229
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 59396)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 67229)
@@ -84,6 +84,8 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceVanHoecke).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.SFS) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceSFS).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.OPO) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceOPO).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.HaefeleBE) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleBE).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.HaefeleNL) {
@@ -127,13 +129,9 @@
 	} ElseIf (Personality.GeefID() = ..Personality.YachtSupplier) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.DSGroup) {
-		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
-	} ElseIf (Personality.GeefID() = ..Personality.YachtSupplier) {
-		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
-	} ElseIf (Personality.GeefID() = ..Personality.YachtSupplier) {
-		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
-	} ElseIf (Personality.GeefID() = ..Personality.YachtSupplier) {
-		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceDSGroup).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.DeBisschop) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceDeBisschop).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.HaefeleDE) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleDE).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.Kleiner) {
@@ -142,8 +140,26 @@
 		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.Pierard) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServicePierard).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.HahleOy) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHahleOy).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleSE) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleSE).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleFI) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleFI).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleNO) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleNO).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleIT) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleIT).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleAT) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleAT).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleFR) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleFR).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleDK) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleDK).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.HaefeleCH) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleCH).%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."))
 	}