Index: vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r5644 -r5651
--- vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 5644)
+++ vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 5651)
@@ -6,6 +6,8 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="magHelper">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","BL.MB.UGLYPicking.OrderReser")</Description>
 <Type>vhUnitTest.APPS.MAG.Helper</Type>
 <Private>1</Private>
 </Property>
@@ -31,5 +33,33 @@
 	quit ##super()
 ]]></Implementation>
 </Method>
+
+<Method name="Test">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New Pallet,Status
+	set Status = ##class(BL.MB.UGLYPicking.OrderReservatie).FPalletsPerProdNr(1000)
+	
+	if $$$AssertEquals(Status,$$$OK,"Verwerking is goed verlopen") {
+		new Aantal
+		new idxPallet set idxPallet = ""
+		for { set idxPallet = $order(Pallet(idxPallet)) Quit:idxPallet=""
+			set Aantal = $increment(Aantal)
+		}
+		
+		set Sectie=##class(TECH.StringUtils).AddTrailingSpace("1",8)
+		
+		do $$$AssertEquals(Aantal,4,"Aantal gevonden palletten is correct")
+		do $$$AssertEquals($listget(Pallet(1),15),"EWMS0003","Eerste de oudste,niet volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(Pallet(1),1),Sectie,"De juiste sectie is gevonden")
+		do $$$AssertEquals($listget(Pallet(2),15),"EWMS0001","volgende niet volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(Pallet(2),1),Sectie,"De juiste sectie is gevonden")
+		do $$$AssertEquals($listget(Pallet(3),15),"EWMS0002","Volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(Pallet(3),1),Sectie,"De juiste sectie is gevonden")
+		do $$$AssertEquals($listget(Pallet(4),15),"EWMS0004","Pallet op niet pickbare locatie")
+		do $$$AssertEquals($listget(Pallet(4),1),Sectie,"De juiste sectie is gevonden")
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>