Index: APPS/EC/impl/KlantInstellingenServicePavanello.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServicePavanello.cls.xml (revision 0)
+++ APPS/EC/impl/KlantInstellingenServicePavanello.cls.xml (revision 55478)
@@ -0,0 +1,22 @@
+
+
+
+APPS.common.impl.KlantInstellingenService
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+%Boolean
+
+
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType
+%Boolean
+
+
+
+
+
+
Index: APPS/EC/impl/KlantInstellingenServiceFerexpert.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceFerexpert.cls.xml (revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceFerexpert.cls.xml (revision 55478)
@@ -0,0 +1,22 @@
+
+
+
+APPS.common.impl.KlantInstellingenService
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+%Boolean
+
+
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType
+%Boolean
+
+
+
+
+
+
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r55206 -r55478
--- APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 55206)
+++ APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 55478)
@@ -108,6 +108,10 @@
Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceZweygart).%New()
} ElseIf (Personality.GeefID() = ..Personality.Galimberti) {
Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceGalimberti).%New()
+ } ElseIf (Personality.GeefID() = ..Personality.Pavanello) {
+ Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServicePavanello).%New()
+ } ElseIf (Personality.GeefID() = ..Personality.Ferexpert) {
+ Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceFerexpert).%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."))
}