Index: MagazijnVrijgaveVHOSS.csp
===================================================================
diff -u -r184 -r246
--- MagazijnVrijgaveVHOSS.csp	(.../MagazijnVrijgaveVHOSS.csp)	(revision 184)
+++ MagazijnVrijgaveVHOSS.csp	(.../MagazijnVrijgaveVHOSS.csp)	(revision 246)
@@ -27,22 +27,33 @@
 <script language="Cache" method="VrijgaveVHOSS" arguments="VHOSSID:%String" returntype="">
 	Set %session.Data("Resultaat") = ""
 	Set %session.Data("Foutmelding") = "" 
+	Set VHOSSID = ##class(TECH.StringUtils).ToUpper(VHOSSID)
 	do ##class(vhLib.Logger).%New().Info(%request.PageName, "Vrijgave VHoss " _ VHOSSID)
 	
 	if $$$Not(##class(APPS.VisiDot.impl.VHossService).IsCorrectID(VHOSSID)){
-		do ##class(vhLib.Logger).%New().Info(%request.PageName, "Foutief VHoss Nr" _ VHOSSID)
+		do ##class(vhLib.Logger).%New().Info(%request.PageName, "Foutief VHoss Nr : " _ VHOSSID)
 		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)
+		
+		Set VrijTeGegevenID =  ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(VHOSSID)
+		
+		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(), VrijTeGegevenID)
+		
 	}
 </script>