Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r58718 -r58719
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 58719)
@@ -371,8 +371,11 @@
 
 <Method name="TestGeefProductLijnen voor KVIK limiteert aantal palletten via EWPAL situatie waar ewpal één terechte pallet teruggeeft en het is die uit EWPAL">
 <Implementation><![CDATA[
-	#dim PalletID as %String = "00422806"
-	Do ##class(Tools.Wlip).%New(207).String("###############################")
+	; ik wil hier eigenlijk een andere pallet id, eentje die door de test zelf opgezet wordt. nog niet gedaan wegens tijds gebrek.
+	; nu lukken de testen omdat 'toevallig' pallet 00284119 in alle relevante EWMS databases bestaat.
+	; begin van setup code  in method ZetEWMSDataOp
+	#dim PalletID as %String = "00284119"
+
 	Do ..MaakBon(1234,"25868")
 	Do ..ZetEWPALOp(PalletID)
 	Do ..VerwijderBestaandeReservaties()
@@ -388,7 +391,6 @@
 	Do ..UglyPickingService.StopHuidigeBon()
 	Do ..VerwijderBon(1234)
 	Do ..KuisEWPALOp()
-	Do ##class(Tools.Wlip).%New(207).String("###############################")
 ]]></Implementation>
 </Method>
 
@@ -455,7 +457,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AssertEWMSData">
+<Method name="ZetEWMSDataOp">
 <Implementation><![CDATA[
 	Do ##class(EWMS.Locations).BezetLocation($lb("4","9","6","6","6"),"UT000001")
 	Do ##class(EWMS.Locations).BezetLocation($lb("4","9","6","6","6"),"UT000002")