Index: APPS/TRANSP/impl/OfferteService.cls.xml
===================================================================
diff -u -r34514 -r36118
--- APPS/TRANSP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 34514)
+++ APPS/TRANSP/impl/OfferteService.cls.xml	(.../OfferteService.cls.xml)	(revision 36118)
@@ -3,13 +3,32 @@
 <Class name="APPS.TRANSP.impl.OfferteService">
 <Super>TECH.RegisteredObject,APPS.TRANSP.OfferteService</Super>
 
+<Property name="ObjectAPI">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ObjectAPI = ##class(TECH.Context).Instance().GeefObjectAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BerekenOfferte">
 <FormalSpec>TransportFirma:APPS.TRANSP.enu.TransportFirma,BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput=""</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
 <Implementation><![CDATA[
 	If TransportFirma = ##class(APPS.TRANSP.enu.TransportFirma).UPS() {
 		if BerekenInput '= "" {
-			Quit ##class(APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar).%New().Bereken(BerekenInput)
+			#dim KlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar.Klassenaam")
+ 			#dim UPSOfferteBerekenaar As APPS.TRANSP.Offerte.impl.UPS.OfferteBerekenaar = ..ObjectAPI.New(KlasseNaam)
+			Quit UPSOfferteBerekenaar.%New().Bereken(BerekenInput)
 		}
 	} ElseIf TransportFirma = ##class(APPS.TRANSP.enu.TransportFirma).DHL() {
 		if BerekenInput '= "" {