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>