Index: MagazijnVrijgaveVHOSS.csp
===================================================================
diff -u -r191 -r192
--- MagazijnVrijgaveVHOSS.csp	(.../MagazijnVrijgaveVHOSS.csp)	(revision 191)
+++ MagazijnVrijgaveVHOSS.csp	(.../MagazijnVrijgaveVHOSS.csp)	(revision 192)
@@ -35,15 +35,25 @@
 		Set %session.Data("Foutmelding") = "Foutief VHoss Nr " _ VHOSSID 
 	} else {
 		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
+		
 		Set VrijTeGegevenID = VHossService.GeefGeregistreerdeVHossIDVoorVHossID(VHOSSID)
-		if $Length(VrijTeGegevenID){
-			do ##class(vhLib.Logger).%New().Info(%request.PageName, "VHoss nr " _ VHOSSID _ " was geregistreerd met nr " _ VrijTeGegevenID)
+		
+		If $Length(VrijTeGegevenID){
+			
+			Do ##class(vhLib.Logger).%New().Info(%request.PageName, "VHoss nr " _ VHOSSID _ " was geregistreerd met nr " _ VrijTeGegevenID)
+			
 			Do VHossService.RecepteerVHoss(VrijTeGegevenID) 
-			do ##class(vhLib.Logger).%New().Info(%request.PageName, "VHoss nr " _ VrijTeGegevenID _ " vrijgegeven")
-		} else { ; indien VrijTeGevenID leeg, was er geen info beschikbaar, en beschouwen we de VHoss als vrijgegeven
+			Do ##class(vhLib.Logger).%New().Info(%request.PageName, "VHoss nr " _ VrijTeGegevenID _ " vrijgegeven")
+			
+		} Else { 
+			
 			Set %session.Data("Resultaat") = VHOSSID _ " reeds vrij"
-			do ##class(vhLib.Logger).%New().Info(%request.PageName, "Geen gegevens over "_ VHOSSID _ ", was reeds vrij")
+			Do ##class(vhLib.Logger).%New().Info(%request.PageName, "Geen gegevens over "_ VHOSSID _ ", was reeds vrij")
+
 		}
+
+		Do VHossService.LeenUitVHoss(##class(DOM.VKP.enu.Klant).VanHoecke(), VHOSSID)
+		
 	}
 </script>