Index: BL/MB/UGLYPicking/OrderReservatieImpl.cls.xml
===================================================================
diff -u -r29059 -r58667
--- BL/MB/UGLYPicking/OrderReservatieImpl.cls.xml	(.../OrderReservatieImpl.cls.xml)	(revision 29059)
+++ BL/MB/UGLYPicking/OrderReservatieImpl.cls.xml	(.../OrderReservatieImpl.cls.xml)	(revision 58667)
@@ -28,7 +28,7 @@
 </Method>
 
 <Method name="BuildPalletsPerProdNr">
-<FormalSpec><![CDATA[ProdNr:%String,&PalletList:%String,&Pallet:%String,&PalletGroup:%String,&PalletGroupCnt:%String,&PalletGroupSom:%String]]></FormalSpec>
+<FormalSpec><![CDATA[ProdNr:%String,&PalletList:%String,&Pallet:%String,&PalletGroup:%String,&PalletGroupCnt:%String,&PalletGroupSom:%String,ConsolidatiePalletten:%ListOfDataTypes=##class(%ListOfDataTypes).%New()]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#Dim ResultSetFPallets As %ResultSet = ..GeefQuery(ProdNr) 
@@ -38,47 +38,49 @@
 		#Dim LocM As %Integer = ResultSetFPallets.Data("LocM")
 		#Dim QtyPcs As %Float = ResultSetFPallets.Data("QtyPcs")
 		#Dim QtyRes As %Float = ResultSetFPallets.Data("QtyRes")
+		#Dim LocID As %String = ResultSetFPallets.Data("LocID")
+		if (ConsolidatiePalletten.Count() = 0) || (ConsolidatiePalletten.Count() && ConsolidatiePalletten.Find(LocID)) {
 	
-		If ((+QtyPcs > +QtyRes) && (+QtyPcs > 0)) {
-		
-			If (##class(Prod.Product).GetMagViaOpslagzone(LocM) '= "CONS") {
-				#Dim InsertTime As %String = ResultSetFPallets.Data("InsertTime")
-				#Dim IsFull As %Boolean = ResultSetFPallets.Data("IsFull")
-				#Dim LocID As %String = ResultSetFPallets.Data("LocID")
-				#Dim Sectie As %String = ResultSetFPallets.Data("Sectie")
-				#Dim LLocM As %Integer = ResultSetFPallets.Data("LLocM")
-				#Dim LocG As %Integer = ResultSetFPallets.Data("LocG")
-				#Dim LocX As %Integer = ResultSetFPallets.Data("LocX")
-				#Dim LocY As %Integer = ResultSetFPallets.Data("LocY")
-				#Dim LocZ As %Integer = ResultSetFPallets.Data("LocZ")
-				#Dim State As %String = ResultSetFPallets.Data("State")
-				#Dim Batch As %String = ResultSetFPallets.Data("Batch")
-				#Dim Quality As %String = ResultSetFPallets.Data("Quality")
-				#Dim Owner As %String = ResultSetFPallets.Data("Owner")
-				#Dim TransLoc As %String = ResultSetFPallets.Data("TransLoc")
-				#Dim IsPickbaar As %Boolean = ResultSetFPallets.Data("IsPickbaar")
-						 
-				#Dim IDList As %String
-				#Dim InsertDate As %String
-				#Dim PLNode As %List
-				#Dim PalletIndex As %Integer
+			If ((+QtyPcs > +QtyRes) && (+QtyPcs > 0)) {
 			
-				If '($DATA(IDList(LocID))) { // Vermijden van dubbels
-					Set IDList(LocID) = "" //Lijst bijhouden van Ids
-					
- 					Set InsertDate = $ZDATEH($EXTRACT(InsertTime, 1, 10), 3)
- 					
- 					Do ..PostProcessPalletInfo(.InsertTime, .IsFull, TransLoc, IsPickbaar)
- 				
- 					Set PLNode = $LISTBUILD(Sectie, QtyPcs, QtyRes, LLocM, LocG, LocX, LocY, LocZ, State, InsertDate, IsFull, Batch, Quality, Owner, LocID, ProdNr, 0)  //0: QtyBooked, wo later ingevuld
- 				
- 					Set PalletIndex = $INCREMENT(PalletIndex)
- 					Set Pallet(PalletIndex) = $LISTBUILD(LocID _ "." _ Sectie, PLNode) //Volgende arrays worden gebruikt bij picking algorithms (exact, approx, ...)
- 				
- 					If (IsFull) {
-	 					//Grouping wordt enkel gebruikt bij FULL PALLET algo
- 						Set PalletGroup(+QtyPcs-QtyRes) = $GET(PalletGroup(+QtyPcs-QtyRes)) _ $LISTBUILD(LocID _ "." _ Sectie)
- 					}
+				If (##class(Prod.Product).GetMagViaOpslagzone(LocM) '= "CONS") {
+					#Dim InsertTime As %String = ResultSetFPallets.Data("InsertTime")
+					#Dim IsFull As %Boolean = ResultSetFPallets.Data("IsFull")
+					#Dim Sectie As %String = ResultSetFPallets.Data("Sectie")
+					#Dim LLocM As %Integer = ResultSetFPallets.Data("LLocM")
+					#Dim LocG As %Integer = ResultSetFPallets.Data("LocG")
+					#Dim LocX As %Integer = ResultSetFPallets.Data("LocX")
+					#Dim LocY As %Integer = ResultSetFPallets.Data("LocY")
+					#Dim LocZ As %Integer = ResultSetFPallets.Data("LocZ")
+					#Dim State As %String = ResultSetFPallets.Data("State")
+					#Dim Batch As %String = ResultSetFPallets.Data("Batch")
+					#Dim Quality As %String = ResultSetFPallets.Data("Quality")
+					#Dim Owner As %String = ResultSetFPallets.Data("Owner")
+					#Dim TransLoc As %String = ResultSetFPallets.Data("TransLoc")
+					#Dim IsPickbaar As %Boolean = ResultSetFPallets.Data("IsPickbaar")
+							 
+					#Dim IDList As %String
+					#Dim InsertDate As %String
+					#Dim PLNode As %List
+					#Dim PalletIndex As %Integer
+				
+					If '($DATA(IDList(LocID))) { // Vermijden van dubbels
+						Set IDList(LocID) = "" //Lijst bijhouden van Ids
+						
+	 					Set InsertDate = $ZDATEH($EXTRACT(InsertTime, 1, 10), 3)
+	 					
+	 					Do ..PostProcessPalletInfo(.InsertTime, .IsFull, TransLoc, IsPickbaar)
+	 				
+	 					Set PLNode = $LISTBUILD(Sectie, QtyPcs, QtyRes, LLocM, LocG, LocX, LocY, LocZ, State, InsertDate, IsFull, Batch, Quality, Owner, LocID, ProdNr, 0)  //0: QtyBooked, wo later ingevuld
+	 				
+	 					Set PalletIndex = $INCREMENT(PalletIndex)
+	 					Set Pallet(PalletIndex) = $LISTBUILD(LocID _ "." _ Sectie, PLNode) //Volgende arrays worden gebruikt bij picking algorithms (exact, approx, ...)
+	 				
+	 					If (IsFull) {
+		 					//Grouping wordt enkel gebruikt bij FULL PALLET algo
+	 						Set PalletGroup(+QtyPcs-QtyRes) = $GET(PalletGroup(+QtyPcs-QtyRes)) _ $LISTBUILD(LocID _ "." _ Sectie)
+	 					}
+					}
 				}
 			}
 		}
@@ -189,7 +191,6 @@
  	Set Query = Query _ "WHERE product = ? "
  	Set Query = Query _ "AND I.loc_m < 5 AND NOT (L.loc_m = 4 AND L.loc_g = 2 and L.loc_x = 1 and L.loc_y = 1) "
  	Set Query = Query _ "ORDER BY IsPickbaar DESC, IsFull ASC, InsertTime ASC "
- 
  	Quit ..QueryAPI.GetDynamicResultSet(Query, $LISTBUILD(ProductID))
 ]]></Implementation>
 </Method>
Index: vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r44393 -r58667
--- vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 44393)
+++ vhUnitTest/BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 58667)
@@ -5,10 +5,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.MAG.Inventaris.Base</Super>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Parameter Type As %String = "I";
+*/
+]]></Content>
+</UDLText>
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
@@ -88,6 +91,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test FPalletsPerProdNr filtert palletten volgens meegegevenlijst">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New Pallet,Status,Sectie,PalletInfo1,PalletInfo2,PalletInfo3,PalletInfo4, ConsolidatiePalletten
+	set ConsolidatiePalletten = ##class(%ListOfDataTypes).%New()
+	Do ConsolidatiePalletten.Insert("EWMS0001")
+	;Do ConsolidatiePalletten.Insert("EWMS0002")
+	Do ConsolidatiePalletten.Insert("EWMS0003")
+	
+	set Status = ##class(BL.MB.UGLYPicking.OrderReservatie).FPalletsPerProdNr(1000,ConsolidatiePalletten)
+	
+	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,3,"Aantal gevonden en gefilterde palletten is correct")
+		#dim PalletInfo1 As %List = ..GeefPalletInfo(.Pallet,1)
+		#dim PalletInfo2 As %List = ..GeefPalletInfo(.Pallet,2)
+		#dim PalletInfo3 As %List = ..GeefPalletInfo(.Pallet,3)
+		
+		do $$$AssertEquals($listget(PalletInfo1,15),"EWMS0003","Eerste de oudste,niet volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(PalletInfo1,1),Sectie,"De juiste sectie is gevonden")
+		do $$$AssertEquals($listget(PalletInfo2,15),"EWMS0001","volgende niet volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(PalletInfo2,1),Sectie,"De juiste sectie is gevonden")
+		do $$$AssertEquals($listget(PalletInfo3,15),"EWMS0002","Volle pallet op pickbare locatie")
+		do $$$AssertEquals($listget(PalletInfo3,1),Sectie,"De juiste sectie is gevonden")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletInfo">
 <FormalSpec><![CDATA[&Pallet:%String,Index:%Integer]]></FormalSpec>
 <Private>1</Private>
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[
Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r44390 -r58667
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 44390)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 58667)
@@ -402,7 +402,7 @@
 
 <Method name="FPalletsPerProdNr">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ProdNr:%Library.Integer</FormalSpec>
+<FormalSpec>ProdNr:%Library.Integer,ConsolidatiePalletten:%ListOfDataTypes=##class(%ListOfDataTypes).%New()</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
@@ -416,7 +416,7 @@
  New Impl
  #Dim Impl As BL.MB.UGLYPicking.OrderReservatieImpl = ##class(BL.MB.UGLYPicking.OrderReservatieImpl).%New()
  
- Quit Impl.BuildPalletsPerProdNr(ProdNr, .PalletList, .Pallet, .PalletGroup, .PalletGroupCnt, .PalletGroupSom)
+ Quit Impl.BuildPalletsPerProdNr(ProdNr, .PalletList, .Pallet, .PalletGroup, .PalletGroupCnt, .PalletGroupSom, ConsolidatiePalletten)
 ]]></Implementation>
 </Method>
 
@@ -565,7 +565,7 @@
 
 <Method name="FStartReservePallets">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ConsolidatieNr:%Library.Integer,Magazijn:%Library.String,ProductNr:%Library.String,AantalTePicken:%Library.Integer,AssociatedZeroPalletID:%String</FormalSpec>
+<FormalSpec>ConsolidatieNr:%Library.Integer,Magazijn:%Library.String,ProductNr:%Library.String,AantalTePicken:%Library.Integer,AssociatedZeroPalletID:%String,ConsolidatiePalletten:%ListOfDataTypes=##class(%ListOfDataTypes).%New()</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
@@ -580,7 +580,7 @@
  Set MAXReserveCount=5
 
  For  Quit:(ReserveSuccess || (ReserveCount=MAXReserveCount) || (tmpResult'=""))  Do
- . Set tmpResult=..FPalletsPerProdNr(ProductNr)   //Creatie PalletList met palletten bevattende product (met ProductNr)
+ . Set tmpResult=..FPalletsPerProdNr(ProductNr,ConsolidatiePalletten)   //Creatie PalletList met palletten bevattende product (met ProductNr)
  . If $$$ISERR(tmpResult) Do  Quit
  ..  Set tmpResult=$$ParseStatus^vhLib(tmpResult)
  . Else  Do
@@ -686,20 +686,29 @@
  New ProdLoop,tmpStatus,AantalTePicken,ZeroPalletID,ErrorOccured
  #Define tmpAantalTePicken 1
  #Define tmpZeroPalletID   2
+  ; Bepaal mogelijke palleten via EWPAL, picking producten van de juiste order
+ New ConsolidatiePalletten
+ Set ConsolidatiePalletten = ..GeefPallettenVoorConsolidatie(ConsNr)
 
  Set ProdLoop="", ErrorOccured=0
  For  Set ProdLoop=$O(ZeroPallets(ProdLoop)) Quit:(ProdLoop="")  Do
  . Set AantalTePicken=$LI(ZeroPallets(ProdLoop),$$$tmpAantalTePicken)
  . Quit:(AantalTePicken=0)
  . Set ZeroPalletID=$LI(ZeroPallets(ProdLoop),$$$tmpZeroPalletID)
- . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID)
+ . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID,ConsolidatiePalletten)
  . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
- ..  Set ErrorOccured=1
- ..  $$$WriteToLog("ERROR: "_tmpStatus)
- ..  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)
+ . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL, fallback hier nodig ########################")
+ . . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID) ; om fallback te activeren, laatste parameter laten defaulten.
+ . . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
+ . . .  $$$WriteToLog("################### fallback ook mislukt ########################")
+ . . .  Set ErrorOccured=1
+ . . .  $$$WriteToLog("ERROR: "_tmpStatus)
+ . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)
+ . . Else  Do
+ . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
  . Else  Do
- ..  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
-
+ . . Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,1)   //Reservation=OK
+ 
  $$$WriteToLog("ProcessUnFinishedZeroPalletIDs "_$S(ErrorOccured:"failed",1:"success")_".") 
 
  Quit 'ErrorOccured
@@ -803,6 +812,38 @@
 	Quit ErrStr
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPallettenVoorConsolidatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ConsolidatieNr:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	New PalletList 
+	Set PalletList = ##class(%ListOfDataTypes).%New()
+	$$$WriteToLog("Ophalen Orders van Consolidatie "_ ConsolidatieNr _ " Klant "_$Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1))
+	; voorlopig alleen KVIK (25868), lege lijst maakt dat we op de oude manier palletten voorstellen.
+	If $$$Not($Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1)=25868) {
+		$$$WriteToLog("Geen Filtering van de palletten op basis van EWPAL en Ordernummer, voorlopig alleen KVIK")
+		Quit PalletList
+	} else {
+		$$$WriteToLog("KVIK : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
+	}	
+	Set ConsOrder = ""
+	For  Set ConsOrder=$Order(^ORDW("D",ConsolidatieNr,"D",ConsOrder)) Quit:(ConsOrder="")  Do
+	. $$$WriteToLog("   Order " _ ConsOrder)
+	. Set result=##class(%Library.ResultSet).%New("%DynamicQuery:SQL")
+	. Do result.Prepare("SELECT distinct dragerID PalletCode FROM DOM_MAG_impl_DataM.DragerInhoudEnDoel where OrderID = '"_ ConsOrder _"'")
+	. Do result.Execute()
+	. For  Quit:'result.Next()  Do
+	. . $$$WriteToLog("      Pallet " _ result.Get("PalletCode"))
+	. . Do:('PalletList.Find(result.Get("PalletCode"))  ) PalletList.Insert(result.Get("PalletCode"))
+	. Do result.%Close()
+	. Set result=""
+
+	$$$WriteToLog("Aantal palletten volgens EWPAL teruggegeven : " _ PalletList.Count())
+	Quit PalletList
+]]></Implementation>
+</Method>
 </Class>