Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r2142 -r2359
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2142)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2359)
@@ -7,6 +7,29 @@
 <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()
+	do ##class(APPS.MAG.UGLYPicking.impl.Sessie).%DeleteId(..RuntimeContext.GeefComputerNaam())
+	set sc= ..VerwijderBestaandeReservaties()
+	if '$$$ISERR(sc) Set %TECHContextRuntimeContext = ##class(vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock).%New()
+ 	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set %TECHContextRuntimeContext = ..RuntimeContext
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefProductenOpPallet">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.InventarisService).%New()
@@ -319,6 +342,53 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefBijTeLadenProducten">
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.MAG.InventarisService).%New()
+	
+	Set TransLoc1 = "98D98C98"
+	Set TransLoc2 = "99D99C99"
+	Set ProductID = 154599
+	
+	Set KlantID = 1000
+	Set BonID = 1234
+	Do ..MaakBon(BonID)
+	
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar(TransLoc1,1)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar(TransLoc2,0)
+	
+	
+	Set UglyService = ##class(APPS.MAG.UglyPickingService).%New()
+	Do UglyService.StartBon(BonID)
+	
+	Set ProductGevonden = 0
+	
+	Set BijTeLadenProducten = Service.GeefBijTeLadenProducten(##class(TECH.DateTime).CurrentTimeStamp())
+	Set BijTeLadenProductenIt = ##class(TECH.ListIterator).%New(BijTeLadenProducten)
+	While BijTeLadenProductenIt.HasNext() {
+		Set BijTeLadenProduct = BijTeLadenProductenIt.Next()	
+		If BijTeLadenProduct.ProductID = ProductID {
+			Set ProductGevonden = 1	
+			
+			Do $$$AssertEquals(BijTeLadenProduct.AantalTePicken,5002,"Aantal producten te picken is OK.")
+			Do $$$AssertEquals(BijTeLadenProduct.AantalPickbaar,895,"Aantal producten die pickbaar zijn, is OK.")
+		}
+	}
+	
+	Do $$$AssertTrue(ProductGevonden,"Product "_ProductID_" is in bij te laden producten gevonden.")
+	
+	Set ProductLijnen = UglyService.GeefProductLijnen(BonID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
+	
+	Do $$$AssertEquals(ProductLijnen.Lijst.Count(),1,"Er is 1 productlijn te picken")
+	
+	Set ProductLijn = ProductLijnen.Lijst.GetAt(1)
+	
+	Do $$$AssertEquals(ProductLijn.Aantal,5000,"Het aantal producten te picken")
+	
+	Do UglyService.StopHuidigeBon()
+]]></Implementation>
+</Method>
+
 <Method name="MaakToReceivePallet">
 <Implementation><![CDATA[
 	Set ^RCP("D",1234) = ""
@@ -358,6 +428,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakBon">
+<FormalSpec>ID:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^ORDW("IW",ID) = ""
+	
+	Set ^ORDW("D",ID) = ""
+	
+	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(ID)
+	Set OrderHoofding.StatusWMS = "P"
+	Do OrderHoofding.KlantSetObjectId(1000)
+	Set OrderHoofding.DueOutTime = "62276,48446"
+	Do OrderHoofding.%Save()
+	
+	Set ^ORDW("D",ID,"S","A") = "" // Markeren dat deze voorkomt in het Avento
+	
+	Set ^ORDW("D",ID,"D",119047,100) = "154599\B\\5000\0\\\A\\200"
+	Set ^ORDW("D",ID,"D",119047,100,100) = "154599\W\5000\0\\62210,53942\\\\00218051\\FVS\A\U"
+	
+	Set Pickbaar = 1
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B25A03",Pickbaar)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderInventory">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -465,5 +561,18 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderBestaandeReservaties">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+
+	set rsPalletReservatie = ##class(%ResultSet).%New("")
+	set sc = rsPalletReservatie.Prepare("DELETE FROM Flow_OrderWMS.PalletReservatie")
+	if 'sc { 
+		set sc = rsPalletReservatie.Execute()
+	}
+	quit sc
+]]></Implementation>
+</Method>
 </Class>
 </Export>