Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r65225 -r65850
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 65225)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 65850)
@@ -587,14 +587,12 @@
 <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) || ($Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1)=24315) ) {
-		$$$WriteToLog("Geen Filtering van de palletten op basis van EWPAL en Ordernummer, voorlopig alleen KVIK")
+	; voorlopig alleen KVIK,DKG,De Decker JB : lege lijst maakt dat we op de oude manier palletten voorstellen.
+	If $$$Not(##class(TECH.StringUtils).Contains($Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1),"25868","24315","23112","6780")){ ;geen fallback voor 
+		$$$WriteToLog("Geen Filtering van de palletten op basis van EWPAL en Ordernummer, voorlopig alleen KVIK,DKG,De Decker JB")
 		Quit PalletList
 	} else {
-		$$$WriteToLog("KVIK : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
-
+		$$$WriteToLog("KVIK,DKG,De DeckerJB : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
 	}	
 	Set ConsOrder = ""
 	For  Set ConsOrder=$Order(^ORDW("D",ConsolidatieNr,"D",ConsOrder)) Quit:(ConsOrder="")  Do
@@ -753,11 +751,11 @@
  . Set ZeroPalletID=$LI(ZeroPallets(ProdLoop),$$$tmpZeroPalletID)
  . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID,ConsolidatiePalletten)
  . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
- . . If $$$Not(($Piece($Get(^ORDW("D",ConsNr)),"\",1)=25868) || ($Piece($Get(^ORDW("D",ConsNr)),"\",1)=24315) ) ;geen fallback voor KVIK
+ . . If $$$Not(##class(TECH.StringUtils).Contains($Piece($Get(^ORDW("D",ConsNr)),"\",1),"25868","24315","23112","6780")) ;geen fallback voor KVIK,DKG,De Decker JB
  . . . $$$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.
  . . else
- . . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL, en geen fallback voor KVIK ########################")
+ . . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL, en geen fallback voor KVIK,DKG,De Decker JB ########################")
  . . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
  . . .  $$$WriteToLog("################### fallback ook mislukt (nvt voor KVIK) ########################")
  . . .  Set ErrorOccured=1