Index: vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml
===================================================================
diff -u -r51708 -r58842
--- vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 51708)
+++ vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58842)
@@ -12,17 +12,17 @@
 <Default>cat</Default>
 </Parameter>
 
-<Method name="TestFlowVHoss">
+<Method name="Test: Flow VHoss">
 <Implementation><![CDATA[
-		Set KlantID = "K||1000"
-		Set VHossID = 8888
+		#dim KlantID As %String = "K||1000"
+		#dim VHossID As %String = 8888
 		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
 		Do VHossService.LeenUitVHoss(KlantID, VHossID)
 		
-		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		#dim IsVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
 		Do $$$AssertTrue(IsVHossGeregistreerd,"VHoss is correct uitgeleend aan klant.")
 		
-		Set IsAndereVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
+		#dim IsAndereVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
 		Do $$$AssertFalse(IsAndereVHossGeregistreerd,"Andere VHoss is niet uitgeleend aan klant.")
 		
 		Do VHossService.RecepteerVHoss(VHossID)
@@ -32,22 +32,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestFlowVHoss3DagenTussen">
+<Method name="Test: Flow VHoss 3 Dagen Tussen">
 <Implementation><![CDATA[
 		#dim AantalDagenTussen = 3
 	
-		Set KlantID = "K||1000"
-		Set VHossID = 8888
+		#dim KlantID As %String = "K||1000"
+		#dim VHossID As %String = 8888
 		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
 		Do VHossService.LeenUitVHoss(KlantID, VHossID)
 		
-		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		#dim IsVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
 		Do $$$AssertTrue(IsVHossGeregistreerd,"VHoss is correct uitgeleend aan klant.")
 		
 		#dim DatumLaatsteOntlening As %Date = VHossService.GeefDatumLaatsteOntlening(VHossID)
 		Do $$$AssertEquals(DatumLaatsteOntlening,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate(),"VHoss is niet meer uitgeleend aan klant.")
 		
-		Set IsAndereVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
+		#dim IsAndereVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
 		Do $$$AssertFalse(IsAndereVHossGeregistreerd,"Andere VHoss is niet uitgeleend aan klant.")
 		
 		Set DatumLaatsteOntlening = VHossService.GeefDatumLaatsteOntlening(VHossID)
Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r51518 -r58842
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 51518)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58842)
@@ -77,7 +77,7 @@
 Te raadplegen via Admin menu Klanten (1.3) (vb keller : 1239)
 Via F11 -> Orders -> Recupereerbare Verpakking
 Afdalen tot VHoss, dan op 'H' duwen voor Historiek]]></Description>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,FrameID:%String,AantalVHossen:%Integer</FormalSpec>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VHossID:%String,AantalVHossen:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
@@ -91,7 +91,7 @@
 	If (AantalVHossen < 0) Set HistPakBeweging = ##class(APPS.VisiDot.enu.HistPakBeweging).Uitgaand()
 	
 	Set ^HISTPAK("D",KlantNr,..#VHossProductID) = Saldo_"\"_$h	
-	Set ^HISTPAK("D",KlantNr,..#VHossProductID,"H",$h_","_HistPakBeweging) = Saldo_"\"_AantalVHossen_"\F\"_HistPakBeweging_"\\VHoss "_FrameID_"\"
+	Set ^HISTPAK("D",KlantNr,..#VHossProductID,"H",$h_","_HistPakBeweging) = Saldo_"\"_AantalVHossen_"\F\"_HistPakBeweging_"\\VHoss "_VHossID_"\"
 ]]></Implementation>
 </Method>
 
@@ -125,30 +125,6 @@
 <Implementation><![CDATA[	Quit VHossID?1"O"1(1"1",1"2")1(1"1",1"2")7N
 ]]></Implementation>
 </Method>
-
-<Method name="GeefGeregistreerdeVHossIDVoorVHossID">
-<FormalSpec>MyVHossID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim GeregistreerdeVHossID as %String = ""
-	#dim VHossID1A as %String = MyVHossID
-	#dim VHossID1B as %String = MyVHossID
-	#dim VHossID2A as %String = MyVHossID
-	#dim VHossID2B as %String = MyVHossID
-	Set $E(VHossID1A,2,3)=11 ; Type 1 A kant
-	Set $E(VHossID1B,2,3)=12 ; Type 1 B kant
-	Set $E(VHossID2A,2,3)=21 ; Type 2 A kant
-	Set $E(VHossID2B,2,3)=22 ; Type 2 B kant
-	
-	#dim Query As %String = "SELECT VHossID FROM APPS_VisiDot_data.VHossUitlening where ((VHossID = ?) or (VHossID = ?) or (VHossID = ?) or (VHossID = ?))"
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(VHossID1A,VHossID1B,VHossID2A,VHossID2B))
-	if (ResultSet.Next()) {
-		Set GeregistreerdeVHossID = ResultSet.Data("VHossID")
-	}	
-	
-	Quit GeregistreerdeVHossID
-]]></Implementation>
-</Method>
 </Class>