Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1748 -r1759
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1748)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1759)
@@ -69,19 +69,57 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVolgendeVrijeBon">
+<Method name="GeefBonVrijUitSessie">
+<FormalSpec>DeviceNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Sessie = ##class(APPS.MAG.UGLYPicking.impl.Sessie).%OpenId(DeviceNaam)
+	
+	If ('$IsObject(Sessie))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Device "_DeviceNaam_" bezit geen sessie!"))
+	}
+	
+	Do Sessie.ZetGebruiktBonNr("")
+	Set Status = Sessie.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de bon niet vrijgeven omdat de sessie niet kon worden opgeslagen!",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="StartVolgendeVrijeBon">
 <FormalSpec>MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.Bon</ReturnType>
 <Implementation><![CDATA[
-	Set Bon = ""
+	Set VolgendeBon = ""
 	Set Bonnen = ..GeefBonnen(MagazijnID)
 	
-	If (Bonnen.Lijst.Count() > 0)
+	Set BonIterator = ##class(TECH.ListIterator).%New(Bonnen.Lijst)
+	While (('$IsObject(VolgendeBon)) && BonIterator.HasNext())
 	{
-		Set Bon = Bonnen.Lijst.GetAt(1)
+		Set Bon = BonIterator.Next()
+		If (Bon.Status '= ##class(APPS.MAG.UGLYPicking.enu.BonStatus).InGebruik())
+		{
+			Set $ZTRAP = "Locked"
+			Do ..StartBon(Bon.BonNr)
+			Set VolgendeBon = Bon
+			Set $ZTRAP = ""
+			Goto Finally
+Locked
+			Set $ZTRAP = ""
+			Set LockedException = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.LockedException")
+Finally
+		}
 	}
 	
-	Quit Bon
+	If ('$IsObject(VolgendeBon))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er is geen volgende vrije bon voor magazijn "_##class(APPS.MAG.UGLYPicking.enu.Magazijn).LogicalToDisplay(MagazijnID)))
+	}
+	
+	Quit VolgendeBon
 ]]></Implementation>
 </Method>
 
@@ -96,7 +134,7 @@
 	{
 		Set BonNr = Iterator.Next()
 		Set Bon = ..GeefBonBasis(BonNr)
-		If ((..IsBonInGebruik(BonNr) || ($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))) && (..GeefSessie().GeefGebruiktBon() '= BonNr))
+		If ((..IsBonInGebruik(BonNr) || ($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))) && (..GeefSessie().GeefGebruiktBonNr() '= BonNr))
 		{
 			Set Bon.Status = ##class(APPS.MAG.UGLYPicking.enu.BonStatus).InGebruik()
 		}
@@ -216,8 +254,24 @@
 </Method>
 
 <Method name="GeefOpenstaandeSessies">
-<ReturnType>APPS.MAG.UGLYPicking.impl.Sessie</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<ReturnType>APPS.MAG.UGLYPicking.dto.Sessies</ReturnType>
+<Implementation><![CDATA[
+	Set Sessies = ##class(APPS.MAG.UGLYPicking.dto.Sessies).%New()
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID, GewijzigdOp, GebruiktBonNr FROM APPS_MAG_UGLYPicking_impl.Sessie ORDER BY GewijzigdOp DESC")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set Sessie = ##class(APPS.MAG.UGLYPicking.dto.Sessie).%New()
+		Set Sessie.DeviceNaam = ResultSet.Data("ID")
+		Set Sessie.LaatstGebruiktOp = ResultSet.Data("GewijzigdOp")
+		Set Sessie.GebruiktBonNr = ResultSet.Data("GebruiktBonNr")
+		Do Sessies.Insert(Sessie)
+	}
+	
+	Quit Sessies
+]]></Implementation>
 </Method>
 
 <Method name="GeefPalletPickingOpdracht">
@@ -484,6 +538,12 @@
 	}
 	
 	Set Sessie = ..GeefSessie()
+	
+	If (..IsBonInGebruik(BonNr) && (Sessie.GeefGebruiktBonNr() '= BonNr))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Bon met nummer "_BonNr_" kan niet gestart worden omdat deze reeds in gebruik is."))
+	}
+	
 	Do Sessie.ZetGebruiktBonNr(BonNr)
 	Set Status = Sessie.%Save()