Index: vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml
===================================================================
diff -u -r46321 -r58667
--- vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 46321)
+++ vhUnitTest/APPS/MAG/UGLYPicking/TestUglyPickingService.cls.xml	(.../TestUglyPickingService.cls.xml)	(revision 58667)
@@ -338,6 +338,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefProductLijnen voor KVIK limiteert aantal palletten via EWPAL situatie waar ewpal brol teruggeeft en dus fallback naar de standaard">
+<Implementation><![CDATA[
+	Do ..MaakBon(1234,"25868") 
+	Do ..ZetEWPALOp("BROLPALLET")
+	Do ..VerwijderBestaandeReservaties()
+	Do ..UglyPickingService.StartBon(1234)
+	
+	#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")
+	
+	#Dim ProductLijn As APPS.MAG.UGLYPicking.dto.ProductLijn = ProductLijnen.Lijst.GetAt(1)
+	
+	Do $$$AssertEquals(ProductLijn.Aantal, 2, "Het aantal producten te picken")
+	Do $$$AssertEquals(ProductLijn.ProductData.ID, 154599,"Het te picken product")
+	Do $$$AssertFalse((ProductLijn.IsPickbaar = ""), "IsPickbaar is ingevuld.")
+	Do $$$AssertEquals(ProductLijn.MagazijnID, ##class(APPS.MAG.UGLYPicking.enu.Magazijn).TandemAventos(), "Aventos magazijn")
+	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 ..UglyPickingService.StopHuidigeBon()
+	Do ..VerwijderBon(1234)
+	Do ..KuisEWPALOp()
+]]></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[
+	Do ..MaakBon(1234,"25868")
+	Do ..ZetEWPALOp("00422806")
+	Do ..VerwijderBestaandeReservaties()
+	Do ..UglyPickingService.StartBon(1234)
+	
+	#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")
+	
+	#Dim ProductLijn As APPS.MAG.UGLYPicking.dto.ProductLijn = ProductLijnen.Lijst.GetAt(1)
+	Do $$$AssertEquals(ProductLijn.PalletID,"00422806","De palletid is juist")
+		
+	Do ..UglyPickingService.StopHuidigeBon()
+	Do ..VerwijderBon(1234)
+	Do ..KuisEWPALOp()
+]]></Implementation>
+</Method>
+
 <Method name="MaakPalletReservatie">
 <FormalSpec>ConsolidatieNr:%Integer,PalletID:%String,ProductObjectID:%Integer,AantalTePicken:%Integer,AantalOpPallet:%Integer</FormalSpec>
 <Private>1</Private>
@@ -366,26 +417,41 @@
 </Method>
 
 <Method name="MaakBon">
-<FormalSpec>ID:%Integer</FormalSpec>
+<FormalSpec>ID:%Integer,KlantNr:%String="1000"</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ^ORDW("IW", ID) = ""
 	Set ^ORDW("D", ID) = "\OD1"
 	
 	Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(ID)
 	Set OrderHoofding.StatusWMS = "W"
-	Do OrderHoofding.KlantSetObjectId(1000)
+	Do OrderHoofding.KlantSetObjectId(KlantNr)
 	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\\2\0\\\A\\200"
 	Set ^ORDW("D", ID, "D", 119047, 100, 100) = "154599\W\2\0\\62210,53942\\\\00218051\\FVS\A\U"
 	
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEWPALOp">
+<FormalSpec>PalletNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ^EWPAL("D",154599)	=	"0;0;0;0"
+	Set ^EWPAL("D",154599,PalletNummer)	=	"2\002008007002001\65287\65287,57251\00000001\\\\\"
+	Set ^EWPAL("D",154599,PalletNummer,119047,100)	=	""
+]]></Implementation>
+</Method>
+
+<Method name="KuisEWPALOp">
+<Implementation><![CDATA[	Kill ^EWPAL("D",154599)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderBestaandeReservaties">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[