Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r58872 -r58891
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58872)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58891)
@@ -3,14 +3,31 @@
 <Class name="APPS.VisiDot.impl.VHossService">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.VisiDot.IVHossService,%RegisteredObject</Super>
+<Super>APPS.VisiDot.IVHossService,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
 <Parameter name="VHossProductID">
 <Type>%String</Type>
 <Default>709565</Default>
 </Parameter>
 
+<Property name="LocationsService">
+<Type>BL.EWMS.Locationsservice</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LocationsService:BL.EWMS.Locationsservice</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LocationsService = $$$Inject(LocationsService,##class(BL.EWMS.Locationsservice).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="IsVHossGeregistreerd">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VHossID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -123,11 +140,10 @@
 </Method>
 
 <Method name="CheckVhossOpMeerdereLocaties">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>VhossStartsWith:%String="O1"</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set MeerdereLocaties = ##class(EWMS.Locations).VhossOpMeerdereLocaties(VhossStartsWith)
+	Set MeerdereLocaties = ..LocationsService.HeeftVhossOpMeerdereLocaties(VhossStartsWith)
 	Quit MeerdereLocaties
 ]]></Implementation>
 </Method>