Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r66501 -r68233
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 66501)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 68233)
@@ -702,11 +702,11 @@
  . . Set LadeType = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefProduktType(ProdLoop)
  . . Set LadeTypes = ##class(DOM.PM.enu.ProductType.AutoComplete).%New()
  . . Set GeenLade = $$$Not( ##class(TECH.StringUtils).Equals(LadeType,LadeTypes.Tandembox,LadeTypes.Legrabox,LadeTypes.TAORbox,LadeTypes.Merivobox))
- . . If GeenLade || $$$Not(##class(TECH.StringUtils).Equals($Piece($Get(^ORDW("D",ConsNr)),"\",1),"25868","24315","23112","6780")) Do   ;geen fallback voor KVIK,DKG,De Decker JB
+ . . If GeenLade || $$$Not(##class(TECH.StringUtils).Equals($Piece($Get(^ORDW("D",ConsNr)),"\",1),"25868","24315","23112","6780","3626")) Do   ;geen fallback voor KVIK,DKG,De Decker JB, OL Beslag
  . . . $$$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  Do   
- . . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL,produkt is maatwerk en geen fallback voor KVIK,DKG, De Decker JB ########################")
+ . . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL,produkt is maatwerk en geen fallback voor KVIK,DKG, De Decker JB, OL Beslag ########################")
  . . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
  . . .  $$$WriteToLog("################### fallback ook mislukt ########################")
  . . .  Set ErrorOccured=1
@@ -837,11 +837,12 @@
 	Set PalletList = ##class(%ListOfDataTypes).%New()
 	$$$WriteToLog("Ophalen Orders van Consolidatie "_ ConsolidatieNr _ " Klant "_$Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1))
 	; voorlopig alleen KVIK,DKG,De Decker JB : lege lijst maakt dat we op de oude manier palletten voorstellen.
-	If $$$Not(##class(TECH.StringUtils).Equals($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")
+	; 4/7/2022 : OL Beslag (3626) toevoegen. verkoopt de spt van kvik aan kvik denemarken
+	If $$$Not(##class(TECH.StringUtils).Equals($Piece($Get(^ORDW("D",ConsolidatieNr)),"\",1),"25868","24315","23112","6780","3626")){ ;geen fallback voor 
+		$$$WriteToLog("Geen Filtering van de palletten op basis van EWPAL en Ordernummer, voorlopig alleen KVIK,DKG,De Decker JB,OL Beslag")
 		Quit PalletList
 	} else {
-		$$$WriteToLog("KVIK,DKG,De DeckerJB : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
+		$$$WriteToLog("KVIK,DKG,De DeckerJB,OLBeslag : Filtering van de palletten op basis van EWPAL en Ordernummer. ")
 	}	
 	Set ConsOrder = ""
 	For  Set ConsOrder=$Order(^ORDW("D",ConsolidatieNr,"D",ConsOrder)) Quit:(ConsOrder="")  Do