Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r58719 -r58857
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 58719)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 58857)
@@ -21,6 +21,19 @@
 <Type>APPS.MAG.UGLYPicking.impl.UglyPickingService</Type>
 </Property>
 
+<Property name="MagHelper">
+<Type>vhUnitTest.APPS.MAG.Helper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..MagHelper = ##class(vhUnitTest.APPS.MAG.Helper).%New()
+	Quit ##super(AManager)
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -345,6 +358,13 @@
 	Do ..VerwijderBestaandeReservaties()
 	Do ..UglyPickingService.StartBon(1234)
 	
+	;EWMS setup	
+	#dim PalletID as %String = "UTKVIK01"
+	Do ..MagHelper.MaakEWMSProduct(154599,PalletID,1,2,,,3)
+	Do ##class(EWMS.Locations).CreateEmpty(3,66,1,1,1,PalletID)
+	do ##class(EWMS.TransLoc).Create(3,66,"1","1","66x66x66",1)
+
+
 	#Dim ProductLijnen As APPS.MAG.UGLYPicking.dto.ProductLijnen = ..UglyPickingService.GeefProductLijnen(1234, ##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
 	
 	Do $$$AssertEquals(ProductLijnen.Lijst.Count(), 1, "Er is 1 productlijn te picken")
@@ -358,29 +378,36 @@
 	Do $$$AssertTrue($Length(ProductLijn.LeverancierReferentie), "De leverancierreferentie is ingevuld")	
 	Do $$$AssertFalse(ProductLijn.IsLocatieEenTransitZone)
 	
-	// Omdat niet bij iedereen de WMS databank gekoppeld staat is het niet betrouwbaar om volgende properties te controleren
-	
-	/*Do $$$AssertTrue($Length(ProductLijn.PalletID),"De pallet id is ingevuld")
-	Do $$$AssertTrue($Length(ProductLijn.LocatieID),"De locatie id is ingevuld")*/
-	
+	Do $$$AssertEquals(ProductLijn.PalletID,PalletID,"De pallet id is correct ingevuld met de fallback waarde")
+	Do $$$AssertTrue($Length(ProductLijn.LocatieID),"De locatie id is ingevuld")
+
 	Do ..UglyPickingService.StopHuidigeBon()
 	Do ..VerwijderBon(1234)
 	Do ..KuisEWPALOp()
+	Do ##class(EWMS.Locations).DeleteEmpty(3,66,1,1,1)
+	
+	#dim Query as %String = "DELETE EWMS.Inventory WHERE loc_id %STARTSWITH('UTKVIK')" 
+	do ExecDynQuery^vhLib.Query(Query,$listbuild())
+	
+	Set Query = "DELETE EWMS.TransLoc WHERE Loc_Trans = '66x66x66'"
+	do ExecDynQuery^vhLib.Query(Query,$listbuild())
 ]]></Implementation>
 </Method>
 
 <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[
-	; 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"
+	#dim PalletID as %String = "UTKVIK01"
 
 	Do ..MaakBon(1234,"25868")
 	Do ..ZetEWPALOp(PalletID)
 	Do ..VerwijderBestaandeReservaties()
 	Do ..UglyPickingService.StartBon(1234)
 	
+	;EWMS setup	
+	Do ..MagHelper.MaakEWMSProduct(154599,PalletID,1,2,,,3)
+	Do ##class(EWMS.Locations).CreateEmpty(3,66,1,1,1,PalletID)
+	do ##class(EWMS.TransLoc).Create(3,66,"1","1","66x66x66",1)
+	
 	#Dim ProductLijnen As APPS.MAG.UGLYPicking.dto.ProductLijnen = ..UglyPickingService.GeefProductLijnen(1234, ##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos())
 	
 	Do $$$AssertEquals(ProductLijnen.Lijst.Count(), 1, "Er is 1 productlijn te picken")
@@ -391,6 +418,11 @@
 	Do ..UglyPickingService.StopHuidigeBon()
 	Do ..VerwijderBon(1234)
 	Do ..KuisEWPALOp()
+	Do ##class(EWMS.Locations).DeleteEmpty(3,66,1,1,1)
+	#dim Query as %String = "DELETE EWMS.Inventory WHERE loc_id %STARTSWITH('UTKVIK')" 
+	do ExecDynQuery^vhLib.Query(Query,$listbuild())	
+	Set Query = "DELETE EWMS.TransLoc WHERE Loc_Trans = '66x66x66'"
+	do ExecDynQuery^vhLib.Query(Query,$listbuild())
 ]]></Implementation>
 </Method>