Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r66499 -r68231
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 66499)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 68231)
@@ -588,11 +588,12 @@
 	New PalletList 
 	Set PalletList = ##class(%ListOfDataTypes).%New()
 	; 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,OL Beslag : 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 +754,11 @@
  . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID,ConsolidatiePalletten)
  . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
  . . Set GeenMaatwerk = $$$Not(##class(TECH.StringUtils).Equals($$PRODGRP^PRODUKT(ProdLoop),"TBX","LBX","TA.B","MVX"))
- . . If GeenMaatwerk || $$$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 GeenMaatwerk || $$$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 (nvt voor KVIK) ########################")
  . . .  Set ErrorOccured=1