Index: vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml
===================================================================
diff -u -r2363 -r2382
--- vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2363)
+++ vhUnitTest/APPS/MAG/Inventaris/TestInventarisService.cls.xml	(.../TestInventarisService.cls.xml)	(revision 2382)
@@ -15,7 +15,10 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
-	do ##class(APPS.MAG.UGLYPicking.impl.Sessie).%DeleteId(..RuntimeContext.GeefComputerNaam())
+	Do ##class(APPS.MAG.UGLYPicking.impl.Sessie).%DeleteId(..RuntimeContext.GeefComputerNaam())
+	
+	&SQL(delete from Flow_OrderWMS.Sub where Product  = 154598)
+	
 	set sc= ..VerwijderBestaandeReservaties()
 	if '$$$ISERR(sc) Set %TECHContextRuntimeContext = ##class(vhUnitTest.APPS.MAG.UGLYPicking.RuntimeContextMock).%New()
  	Quit sc
@@ -25,6 +28,7 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	&SQL(delete from Flow_OrderWMS.Sub where Product  = 154598)
 	Set %TECHContextRuntimeContext = ..RuntimeContext
 	Quit $$$OK
 ]]></Implementation>
@@ -345,19 +349,13 @@
 <Method name="TestGeefBijTeLadenProducten">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.MAG.InventarisService).%New()
-	
-	Set TransLoc1 = "98D98C98"
-	Set TransLoc2 = "99D99C99"
+
 	Set ProductID = 154598
 	
 	Set KlantID = 1000
-	Set BonID = 1234
-	Do ..MaakBon(BonID)
+	Set BonID = 1235
+	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)
 	
@@ -370,7 +368,7 @@
 		If BijTeLadenProduct.ProductID = ProductID {
 			Set ProductGevonden = 1	
 			
-			Do $$$AssertEquals(BijTeLadenProduct.AantalTePicken,600,"Aantal producten te picken is OK.")
+			Do $$$AssertEquals(BijTeLadenProduct.AantalTePicken,5000,"Aantal producten te picken is OK.")
 			Do $$$AssertEquals(BijTeLadenProduct.AantalPickbaar,0,"Aantal producten die pickbaar zijn, is OK.")
 		}
 	}
@@ -379,14 +377,13 @@
 	
 	Set ProductLijnen = UglyService.GeefProductLijnen(BonID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
 	
-	Do $$$AssertEquals(ProductLijnen.Lijst.Count(),3,"Er zijn 2 productlijn te picken")
+	Do $$$AssertEquals(ProductLijnen.Lijst.Count(),1,"Er is 1 productlijn te picken")
 	
 	Set ProductLijn = ProductLijnen.Lijst.GetAt(1)
 	
-	Do $$$AssertEquals(ProductLijn.Aantal,288,"Het aantal producten te picken")
+	Do $$$AssertEquals(ProductLijn.Aantal,5000,"Het aantal producten te picken")
 	
 	Do UglyService.StopHuidigeBon()
-	Do ..VerwijderBon(BonID)
 ]]></Implementation>
 </Method>
 
@@ -445,11 +442,19 @@
 	
 	Set ^ORDW("D",ID,"S","A") = "" // Markeren dat deze voorkomt in het Avento
 	
-	Set ^ORDW("D",ID,"D",119049,100) = "154598\B\\600\0\\\A\\200"
-	Set ^ORDW("D",ID,"D",119049,100,100) = "154598\W\600\0\\62210,53942\\\\00218051\\FVS\A\U"
+	Set ^ORDW("D",ID,"D",119048,100) = "154598\B\\5000\0\\\A\\200"
+	Set ^ORDW("D",ID,"D",119048,100,100) = "154598\W\5000\0\\62210,53942\\\\00218051\\FVS\A\U"
 	
 	Set Pickbaar = 1
-	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B25A03",Pickbaar)
+	Set NietPickbaar = 0
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B20B04",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04C24C04",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04C23B02",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B23C04",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04B21C03",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04C25B03",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04C22C04",NietPickbaar)
+	Do ##class(EWMS.TransLoc).ZetIsPickbaar("04C24B03",NietPickbaar)
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -575,17 +580,5 @@
 	quit sc
 ]]></Implementation>
 </Method>
-
-<Method name="VerwijderBon">
-<FormalSpec>ID:%Integer</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Kill ^ORDW("D",ID)
-	Kill ^ORDW("IW",ID)
-	Do ##class(BL.MB.UGLYPicking.OrderReservatie).RollbackReservations(ID,##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>
 </Export>