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 + + + + + +