Index: APPS/MAG/UglyPickingService.cls.xml
===================================================================
diff -u -r1650 -r1748
--- APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1650)
+++ APPS/MAG/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1748)
@@ -84,6 +84,17 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="StartBon">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<Implementation><![CDATA[	Do ..Service.StartBon(BonNr)
+]]></Implementation>
+</Method>
+
+<Method name="StopHuidigeBon">
+<Implementation><![CDATA[	Do ..Service.StopHuidigeBon()
+]]></Implementation>
+</Method>
+
 <Method name="StelUit">
 <FormalSpec>BonNr:%Integer,UitstelOptie:APPS.MAG.UGLYPicking.enu.UitstelOptie</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
@@ -97,5 +108,12 @@
 <Implementation><![CDATA[	Quit ..Service.VoerPickingUit(Product)
 ]]></Implementation>
 </Method>
+
+<Method name="IsBonInGebruik">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Service.IsBonInGebruik(BonNr)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r1169 -r1748
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1169)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1748)
@@ -19,6 +19,11 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ComputerNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context.RuntimeContext</ReturnType>
@@ -46,6 +51,66 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefComputerNaam">
+<Description>
+Werkt wanneer oproep via webservice of telnet binnenkomt binnen het netwerk.
+Oproepen van buiten het netwerk kunnen mogelijks problemen opleveren.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (..ComputerNaam = "")
+	{
+		Set IP = ""
+		Set ComputerNaam = ""
+		If ($D(%request))
+		{
+			Set IP = %request.CgiEnvs("REMOTE_HOST")
+		}
+		Else
+		{
+			Set IONaam = $I
+			If ($E(IONaam,1,5) = "|TNT|")
+			{
+				Set DeviceID = $P($E(IONaam,6,99),":",1)
+				If (DeviceID?3(1.3N1".")1.3N) // Controle op IP-formaat
+				{
+					Set IP = DeviceID
+				}
+				Else
+				{
+					Set ..ComputerNaam = DeviceID
+				}
+			}
+		}
+		
+		// Als we enkel het IP kennen dan gaan we proberen de pc-naam op te zoeken
+		If (IP '= "")
+		{
+			Set FileName="PING"_$J_$$UPTRIMAN^vhRtn1(IP)
+			Set Exec="NSLOOKUP "_IP_" > c:\"_FileName  // ping vervangen door nslookup 
+			Set Ok=$ZF(-1,"NSLOOKUP "_IP_" > c:\"_FileName)
+			
+			Set Stream=##class(%FileCharacterStream).%New()
+			Set Stream.Filename="c:\"_FileName
+			
+			Do Stream.ReadLine()
+			Do Stream.ReadLine()
+			Do Stream.ReadLine()
+			Set ComputerNaamOutput = Stream.ReadLine()
+			
+			Set PiecesIterator = ##class(TECH.PiecesIterator).%New(ComputerNaamOutput," ")
+			While (PiecesIterator.HasNext())
+			{
+				Set ..ComputerNaam = PiecesIterator.Next()
+			}
+			
+			Do ##class(%File).Delete("c:\"_FileName)
+		}
+	}
+	
+	Quit ..ComputerNaam
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: WS/MAG/UGLYPicking/UGLYPickingService.cls.xml
===================================================================
diff -u -r1650 -r1748
--- WS/MAG/UGLYPicking/UGLYPickingService.cls.xml	(.../UGLYPickingService.cls.xml)	(revision 1650)
+++ WS/MAG/UGLYPicking/UGLYPickingService.cls.xml	(.../UGLYPickingService.cls.xml)	(revision 1748)
@@ -52,6 +52,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StartBon">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.MAG.UglyPickingService).%New().StartBon(BonNr)
+]]></Implementation>
+</Method>
+
+<Method name="StopHuidigeBon">
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.MAG.UglyPickingService).%New().StopHuidigeBon()
+]]></Implementation>
+</Method>
+
 <Method name="StelUit">
 <FormalSpec>BonNr:%Integer,UitstelOptie:APPS.MAG.UGLYPicking.enu.UitstelOptie</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
Index: vhUnitTest/APPS/MAG/UGLYPicking/UglyPickingServiceMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/MAG/UGLYPicking/UglyPickingServiceMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/MAG/UGLYPicking/UglyPickingServiceMock.cls.xml	(revision 1748)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.MAG.UGLYPicking.UglyPickingServiceMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.MAG.UGLYPicking.impl.UglyPickingService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefSessie">
+<ReturnType>APPS.MAG.UGLYPicking.impl.Sessie</ReturnType>
+<Implementation><![CDATA[	Quit ##super()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r1649 -r1748
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1649)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 1748)
@@ -7,6 +7,27 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="RuntimeContext">
+<Type>TECH.Context.RuntimeContext</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	Set %TECHContextRuntimeContext = ##class(vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock).%New()
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set %TECHContextRuntimeContext = ..RuntimeContext
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefMagazijnen">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
@@ -33,13 +54,17 @@
 	
 	Do ..MaakBon(1234)
 	
+	Do Service.StartBon(1234)
+	
 	Set Bon = Service.GeefBon(1234)
 	
 	Do $$$AssertTrue($IsObject(Bon),"De bon werd teruggegeven")
 	Do $$$AssertEquals(Bon.BonNr,1234,"De bon nummer")
 	Do $$$AssertEquals(Bon.DueOut,"2011-07-04 13:27:26","De dueout")
 	Do $$$AssertEquals(Bon.Land,"BE","Het land")
 	
+	Do Service.StopHuidigeBon()
+	
 	Do ..VerwijderBon(1234)
 ]]></Implementation>
 </Method>
@@ -51,6 +76,8 @@
 	Do ..MaakProducten()
 	Do ..MaakPalletReservatie()
 	
+	Do ..MaakBon(999999)
+	Do Service.StartBon(999999)
 	
 	set dtoPallet = Service.GeefPalletPickingOpdracht(999999,1000,1234)
 	
@@ -64,6 +91,12 @@
 	do $$$AssertEquals(dtoPallet.StukVerpakking.AantalTePicken,1,"Controle aantal te picken")
 	do $$$AssertEquals(dtoPallet.StukVerpakking.AantalResterend,1,"Controle aantal resterend")
 	
+	Do Service.StopHuidigeBon()
+	Do ..VerwijderBon(999998)
+	
+	Do ..MaakBon(999998)
+	Do Service.StartBon(999998)
+	
 	set dtoPallet = Service.GeefPalletPickingOpdracht(999998,1001,1235)
 	
 	do $$$AssertEquals(dtoPallet.GrootVerpakking.AantalInVerpakking,10,"Controle AantalInVerpakking")
@@ -76,6 +109,9 @@
 	do $$$AssertEquals(dtoPallet.StukVerpakking.AantalTePicken,5,"Controle aantal te picken")
 	do $$$AssertEquals(dtoPallet.StukVerpakking.AantalResterend,5,"Controle aantal resterend")
 	
+	Do Service.StopHuidigeBon()
+	Do ..VerwijderBon(999998)
+	
 	Do ..VerwijderPalletReservatie()
 	Do ..VerwijderProducten()
 	
@@ -88,6 +124,9 @@
 	Do ..MaakBon(1234)
 	
 	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
+	
+	Do Service.StartBon(1234)
+	
 	Set ProductLijnen = Service.GeefProductLijnen(1234,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
 	
 	Do $$$AssertEquals(ProductLijnen.Lijst.Count(),1,"Er is 1 productlijn te picken")
@@ -107,6 +146,8 @@
 	/*Do $$$AssertTrue($Length(ProductLijn.PalletID),"De pallet id is ingevuld")
 	Do $$$AssertTrue($Length(ProductLijn.LocatieID),"De locatie id is ingevuld")*/
 	
+	Do Service.StopHuidigeBon()
+	
 	Do ..VerwijderBon(1234)
 ]]></Implementation>
 </Method>
@@ -119,6 +160,8 @@
 	
 	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
 	
+	Do Service.StartBon(1234)
+	
 	Set DueOut = Hoofding.DueOutTime
 	Do Service.StelUit(1234,##class(APPS.MAG.UGLYPicking.enu.UitstelOptie).VijftienMinutenUitstellen())
 	
@@ -133,6 +176,8 @@
 	Do Service.StelUit(1234,##class(APPS.MAG.UGLYPicking.enu.UitstelOptie).NaDiensten())
 	Do $$$AssertEquals(DueOutVerwacht,Hoofding.DueOutTime,"De tijd werd ingesteld op 14:31")
 	
+	Do Service.StopHuidigeBon()
+	
 	Do ..VerwijderBon(1234)
 ]]></Implementation>
 </Method>
@@ -248,6 +293,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestBonIsInGebruik">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.UGLYPicking.impl.UglyPickingService).%New()
+	
+	Do ##class(APPS.MAG.UGLYPicking.impl.Sessie).%DeleteId("UnitTestDevice")
+	Set Sessie = ##class(APPS.MAG.UGLYPicking.impl.Sessie).%New("UnitTestDevice")
+	Do Sessie.ZetGebruiktBonNr(1234)
+	Do Sessie.%Save()
+	
+	Do $$$AssertTrue(Service.IsBonInGebruik(1234),"De bon is in gebruik")
+	
+	Do Sessie.%DeleteId(Sessie.%Id())
+	
+	Do $$$AssertFalse(Service.IsBonInGebruik(1234),"De bon is niet meer in gebruik")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefSessie">
+<Implementation><![CDATA[
+	Set Service = ##class(vhUnitTest.APPS.MAG.UGLYPicking.UglyPickingServiceMock).%New()
+	
+	Set Sessie = Service.GeefSessie()
+	
+	Do $$$AssertTrue($IsObject(Sessie),"De sessie is geïnstantieerd")
+	
+	Do Sessie.%DeleteId(Sessie.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="MaakBon">
 <FormalSpec>ID:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
Index: TECH/Exceptions/GeneralErrorException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/GeneralErrorException.cls.xml	(revision 0)
+++ TECH/Exceptions/GeneralErrorException.cls.xml	(revision 1748)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.GeneralErrorException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/MAG/UGLYPicking/impl/Sessie.cls.xml
===================================================================
diff -u -r1578 -r1748
--- APPS/MAG/UGLYPicking/impl/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 1578)
+++ APPS/MAG/UGLYPicking/impl/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 1748)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.MAG.UGLYPicking.impl.Sessie">
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.ChangeInfo</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -10,19 +11,29 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IP">
-<Type>%String</Type>
+<Property name="GebruiktBonNr">
+<Type>%Integer</Type>
 <Private>1</Private>
 </Property>
 
+<Index name="IdxGebruiktBonNr">
+<Properties>GebruiktBonNr</Properties>
+</Index>
+
+<Index name="IdxDeviceNaam">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>DeviceNaam</Properties>
+<Unique>1</Unique>
+</Index>
+
 <Method name="%OnNew">
-<FormalSpec>DeviceNaam:%String,IP:%String</FormalSpec>
+<FormalSpec>DeviceNaam:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..DeviceNaam = DeviceNaam
-	Set ..IP = IP
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -33,10 +44,47 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIP">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..IP
+<Method name="ZetGebruiktBonNr">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..GebruiktBonNr = BonNr
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGebruiktBonNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..GebruiktBonNr
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.MAG.UGLYPicking84B.SessieD</DataLocation>
+<DefaultData>SessieDefaultData</DefaultData>
+<IdLocation>^APPS.MAG.UGLYPicking84B.SessieD</IdLocation>
+<IndexLocation>^APPS.MAG.UGLYPicking84B.SessieI</IndexLocation>
+<StreamLocation>^APPS.MAG.UGLYPicking84B.SessieS</StreamLocation>
+<Data name="SessieDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GebruiktBonNr</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="6">
+<Value>GewijzigdOp</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 </Export>
Index: CSC Ugly Picking.prj.xml
===================================================================
diff -u -r1696 -r1748
--- CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1696)
+++ CSC Ugly Picking.prj.xml	(.../CSC Ugly Picking.prj.xml)	(revision 1748)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Ugly Picking" LastModified="2011-07-15 13:01:13">
+<Project name="CSC Ugly Picking" LastModified="2011-08-04 15:16:09">
   <Items>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bon" type="CLS"/>
     <ProjectItem name="APPS.MAG.UGLYPicking.dto.Bonnen" type="CLS"/>
@@ -53,6 +53,9 @@
     <ProjectItem name="BL.MB.UGLYPicking.sub.pxLocationLabel" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.PalletReservatie" type="CLS"/>
     <ProjectItem name="Flow.OrderWMS.Sub" type="CLS"/>
+    <ProjectItem name="TECH.Context.RuntimeContext" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.GeneralErrorException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.SaveFailedException" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.MainForm" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgCC" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgCCLocationsSummary" type="CLS"/>
@@ -87,7 +90,9 @@
     <ProjectItem name="UI.MB.UGLYPicking.dlgZendAutoList" type="CLS"/>
     <ProjectItem name="UI.MB.UGLYPicking.dlgZendAutoOptions" type="CLS"/>
     <ProjectItem name="WS.MAG.UGLYPicking.UGLYPickingService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.TestUglyPickingService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.MAG.UGLYPicking.UglyPickingServiceMock" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1741 -r1748
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1741)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1748)
@@ -16,14 +16,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBon">
+<Method name="ControleerSessie">
 <FormalSpec>BonNr:%Integer</FormalSpec>
-<ReturnType>APPS.MAG.UGLYPicking.dto.Bon</ReturnType>
+<Private>1</Private>
 <Implementation><![CDATA[
-	If ($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))
+	If (..GeefSessie().GeefGebruiktBonNr() '= BonNr) //($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bon met nummer "_BonNr_" is reeds in gebruik."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bon met nummer "_BonNr_" werd niet gereserveerd voor dit toestel."))
 	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBon">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<ReturnType>APPS.MAG.UGLYPicking.dto.Bon</ReturnType>
+<Implementation><![CDATA[
+	Do ..ControleerSessie(BonNr)
 	
 	Set Bon = ..GeefBonBasis(BonNr)
 	
@@ -88,7 +96,7 @@
 	{
 		Set BonNr = Iterator.Next()
 		Set Bon = ..GeefBonBasis(BonNr)
-		If ($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))
+		If ((..IsBonInGebruik(BonNr) || ($$IsLocked^vhLib("^UGLYOrderPick("_BonNr_")"))) && (..GeefSessie().GeefGebruiktBon() '= BonNr))
 		{
 			Set Bon.Status = ##class(APPS.MAG.UGLYPicking.enu.BonStatus).InGebruik()
 		}
@@ -216,6 +224,7 @@
 <FormalSpec>BonNr:%String,ProductID:%String,PalletID:%String</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.PalletPickingOpdracht</ReturnType>
 <Implementation><![CDATA[
+	Do ..ControleerSessie(BonNr)
 	
 	set dtoPalletPickingOpdracht = ##class(APPS.MAG.UGLYPicking.dto.PalletPickingOpdracht).%New()
 
@@ -297,6 +306,8 @@
 <FormalSpec>BonNr:%Integer,MagazijnID:APPS.MAG.UGLYPicking.enu.Magazijn</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.ProductLijnen</ReturnType>
 <Implementation><![CDATA[
+	Do ..ControleerSessie(BonNr)
+	
 	Do ##class(vhLib.OldSchool).InitVars()
 	
 	Set ProductLijnen = ##class(APPS.MAG.UGLYPicking.dto.ProductLijnen).%New()
@@ -447,10 +458,61 @@
 <ReturnType>%Status</ReturnType>
 </Method>
 
+<Method name="StartBon">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonNr,0)
+	
+	If ('$IsObject(OrderHoofding))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bon met nummer "_BonNr_" bestaat niet."))
+	}
+	
+	If (OrderHoofding.StatusWMS = "W")
+	{
+		Set OrderHoofding.StatusWMS = "P"
+		Set Status = OrderHoofding.%Save()
+		
+		If ($$$ISERR(Status))
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de bon niet starten omdat de status van de orderhoofding niet kon worden gewijzigd!",Status))
+		}
+	}
+	ElseIf (OrderHoofding.StatusWMS '= "P")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bon met nummer "_BonNr_" kan niet gestart worden omdat deze zich niet in de juiste status bevindt."))
+	}
+	
+	Set Sessie = ..GeefSessie()
+	Do Sessie.ZetGebruiktBonNr(BonNr)
+	Set Status = Sessie.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de bon niet starten omdat de sessie niet kon worden opgeslagen!",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="StopHuidigeBon">
+<Implementation><![CDATA[
+	Set Sessie = ..GeefSessie()
+	Do Sessie.ZetGebruiktBonNr("")
+	Set Status = Sessie.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de bon niet stoppen omdat de sessie niet kon worden opgeslagen!",Status))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="StelUit">
 <FormalSpec>BonNr:%Integer,UitstelOptie:APPS.MAG.UGLYPicking.enu.UitstelOptie</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[
+	Do ..ControleerSessie(BonNr)
+	
 	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonNr,0)
 	
 	If ('$IsObject(OrderHoofding))
@@ -490,6 +552,8 @@
 <FormalSpec>GepickedProduct:APPS.MAG.UGLYPicking.dto.GepickedProduct</FormalSpec>
 <ReturnType>APPS.MAG.UGLYPicking.dto.PickingResultaat</ReturnType>
 <Implementation><![CDATA[
+	Do ..ControleerSessie(GepickedProduct.BonNr)
+	
 	set dtoPickingResultaat = ##class(APPS.MAG.UGLYPicking.dto.PickingResultaat).%New()
 	
 	if '##class(Flow.OrderWMS.Hoofding).%ExistsId(GepickedProduct.BonNr) {
@@ -592,5 +656,56 @@
  	quit dtoPickingResultaat
 ]]></Implementation>
 </Method>
+
+<Method name="IsBonInGebruik">
+<FormalSpec>BonNr:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsInGebruik = 0
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT Count(1) As IsInGebruik FROM APPS_MAG_UGLYPicking_impl.Sessie WHERE GebruiktBonNr = ?")
+	Do ResultSet.Execute(BonNr)
+	
+	If (ResultSet.Next())
+	{
+		Set IsInGebruik = ResultSet.Data("IsInGebruik")
+	}
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("De sessies konden niet worden uitgelezen!"))
+	}
+	
+	Quit IsInGebruik
+]]></Implementation>
+</Method>
+
+<Method name="GeefSessie">
+<Private>1</Private>
+<ReturnType>APPS.MAG.UGLYPicking.impl.Sessie</ReturnType>
+<Implementation><![CDATA[
+	Set DeviceNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	
+	If (DeviceNaam = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon geen sessie starten omdat de devicenaam niet achterhaald kon worden!"))
+	}
+	
+	Set Sessie = ##class(APPS.MAG.UGLYPicking.impl.Sessie).%OpenId(DeviceNaam)
+	
+	If ('$IsObject(Sessie))
+	{
+		Set Sessie = ##class(APPS.MAG.UGLYPicking.impl.Sessie).%New(DeviceNaam)
+		Set Status = Sessie.%Save()
+		
+		If ($$$ISERR(Status))
+		{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de aangemaakte sessie niet opslaan!",Status))
+		}
+	}
+	
+	Quit Sessie
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: TECH/Exceptions/SaveFailedException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/SaveFailedException.cls.xml	(revision 0)
+++ TECH/Exceptions/SaveFailedException.cls.xml	(revision 1748)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.SaveFailedException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Status">
+<Type>%Status</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String,Status:%Status</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Status = Status
+	Quit ##super(Omschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).SaveFailed()
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##super()_" ("_$$ParseStatus^vhLib(..Status)_")"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/MAG/UGLYPicking/RuntimeContextMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/MAG/UGLYPicking/RuntimeContextMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/MAG/UGLYPicking/RuntimeContextMock.cls.xml	(revision 1748)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Context.RuntimeContext</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefComputerNaam">
+<Description>
+Werkt wanneer oproep via webservice of telnet binnenkomt binnen het netwerk.
+Oproepen van buiten het netwerk kunnen mogelijks problemen opleveren.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "UnitTestDevice"
+]]></Implementation>
+</Method>
+</Class>
+</Export>