Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r59213 -r59232
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 59213)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 59232)
@@ -65,23 +65,24 @@
 - PalletID van de VHoss uit de Inventory halen van EWMS databank</Description>
 <FormalSpec>VHossID:%String</FormalSpec>
 <Implementation><![CDATA[
-		#dim ID As %String = ""
-		#dim KlantNr As %String = ""
+	#dim ID As %String = ""
+	#dim KlantNr As %String = ""
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID, KlantID FROM APPS_VisiDot_data.VHossUitlening WHERE VHossID = ? ")
+	Do ResultSet.Execute(VHossID)	
+	While (ResultSet.Next()){
+		Set ID = ResultSet.Data("ID")
+		Set KlantNr = ResultSet.Data("KlantID")
 		
-		Set ResultSet = ##class(%ResultSet).%New()
-		Do ResultSet.Prepare("SELECT ID, KlantID FROM APPS_VisiDot_data.VHossUitlening WHERE VHossID = ? ")
-		Do ResultSet.Execute(VHossID)	
-		If (ResultSet.Next()){
-			Set ID = ResultSet.Data("ID")
-			Set KlantNr = ResultSet.Data("KlantID")
-			
-			#dim AantalVHossen As %Integer = 1
-			#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
-			Do ..VulAanHistPak(KlantID, VHossID, AantalVHossen)
-			Do ..VerwijderVHossUitInventory(VHossID)
-			
-			Do ##class(APPS.VisiDot.data.VHossUitlening).DeleteId(ID)
-		}
+		#dim AantalVHossen As %Integer = 1
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
+		Do ..VulAanHistPak(KlantID, VHossID, AantalVHossen)
+		Do ..VerwijderVHossUitInventory(VHossID)
+		
+		Do ##class(APPS.VisiDot.data.VHossUitlening).DeleteId(ID)
+	}
+	Do ResultSet.Close()
 ]]></Implementation>
 </Method>