Index: vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml
===================================================================
diff -u -r58850 -r58872
--- vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58850)
+++ vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58872)
@@ -5,7 +5,7 @@
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VisiDot.impl.TestVHossService")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.APPS.MAG.Inventaris.Base,vhUnitTest.TestCase</Super>
 
 <Parameter name="GekendeMemoryLeaks">
 <Type>%String</Type>
@@ -62,6 +62,26 @@
 		Do $$$AssertTrue(DatumLaatsteOntlening < (##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()-3),"VHoss is niet meer uitgeleend aan klant.")
 ]]></Implementation>
 </Method>
+
+<Method name="TestVhosServiceCheckVhossOpMeerdereLocatiesFalse">
+<Implementation><![CDATA[
+	Set VhossOpMeerdereLocaties = ##class(APPS.VisiDot.impl.VHossService).CheckVhossOpMeerdereLocaties()
+	Do $$$AssertEquals(VhossOpMeerdereLocaties, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestVhosServiceCheckVhossOpMeerdereLocatiesTrue">
+<Implementation><![CDATA[
+	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('TT000000',4,98,97,98,98,'0000-00-00-00.00.00.000000',2)")	
+	Do ..MagHelper.ExecEWMSQuery("INSERT INTO ewms.dbo.locations (loc_id,loc_m,loc_g,loc_x,loc_y,loc_z,insert_time,state) VALUES ('TT000000',4,98,98,98,98,'0000-00-00-00.00.00.000000',2)")	
+	
+	Set VhossWelOpMeerdereLocaties = ##class(APPS.VisiDot.impl.VHossService).CheckVhossOpMeerdereLocaties("TT")
+	Do $$$AssertEquals(VhossWelOpMeerdereLocaties, $$$True)
+
+	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 98")
+	Do ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.locations WHERE loc_g = 97")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r58849 -r58872
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58849)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58872)
@@ -121,6 +121,16 @@
 <Implementation><![CDATA[	Quit VHossID?1"O"1(1"1",1"2")1(1"1",1"2")7N
 ]]></Implementation>
 </Method>
+
+<Method name="CheckVhossOpMeerdereLocaties">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VhossStartsWith:%String="O1"</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set MeerdereLocaties = ##class(EWMS.Locations).VhossOpMeerdereLocaties(VhossStartsWith)
+	Quit MeerdereLocaties
+]]></Implementation>
+</Method>
 </Class>