Index: vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml
===================================================================
diff -u -r63827 -r64266
--- vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml (.../TestGeefKlantInstellingenService.cls.xml) (revision 63827)
+++ vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml (.../TestGeefKlantInstellingenService.cls.xml) (revision 64266)
@@ -59,6 +59,22 @@
]]>
+
+
+
+
+
+
+
+
+
+
+APPS.common.impl.KlantInstellingenService
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+%Boolean
+
+
+
+
+
+
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r63827 -r64266
--- APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 63827)
+++ APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 64266)
@@ -146,6 +146,10 @@
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.HaefeleIT) {
+ Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleIT).%New()
+ } ElseIf (Personality.GeefID() = ..Personality.HaefeleAT) {
+ Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleAT).%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/KlantInstellingenServiceHaefeleAT.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceHaefeleAT.cls.xml (revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceHaefeleAT.cls.xml (revision 64266)
@@ -0,0 +1,15 @@
+
+
+
+APPS.common.impl.KlantInstellingenService
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+%Boolean
+
+
+
+
+
+