Index: APPS/EC/impl/ECommerceAPI.cls.xml =================================================================== diff -u -r55478 -r57714 --- APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 55478) +++ APPS/EC/impl/ECommerceAPI.cls.xml (.../ECommerceAPI.cls.xml) (revision 57714) @@ -112,6 +112,8 @@ Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServicePavanello).%New() } ElseIf (Personality.GeefID() = ..Personality.Ferexpert) { Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceFerexpert).%New() + } ElseIf (Personality.GeefID() = ..Personality.Beslagteknikk) { + Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBeslagteknikk).%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/KlantInstellingenServiceBeslagteknikk.cls.xml =================================================================== diff -u --- APPS/EC/impl/KlantInstellingenServiceBeslagteknikk.cls.xml (revision 0) +++ APPS/EC/impl/KlantInstellingenServiceBeslagteknikk.cls.xml (revision 57714) @@ -0,0 +1,15 @@ + + + +APPS.common.impl.KlantInstellingenService + + +KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType +%Boolean + + + + + +