Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r65865 -r66380
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 65865)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 66380)
@@ -725,6 +725,7 @@
  
  New RS   //Zonet gemaakte pallets inlezen in array ZeroPallets
  Set RS=##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetUnFinishedZeroPalletIDs")
+ New GeenMaatwerk
  Do RS.Execute(ConsNr,Magazijn)
  New ZeroPallets
  For  Quit:'RS.Next()  Do
@@ -751,11 +752,12 @@
  . 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(##class(TECH.StringUtils).Equals($Piece($Get(^ORDW("D",ConsNr)),"\",1),"25868","24315","23112","6780")) ;geen fallback voor KVIK,DKG,De Decker JB
+ . . Set GeenMaatwerk = $$$Not(##class(TECH.StringUtils).Equals($$PRODGRP^PRODUKT(ProdLoop),"HAL","TBX"))
+ . . If GeenMaatwerk || $$$Not(##class(TECH.StringUtils).Equals($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,DKG,De Decker JB ########################")
+ . . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL,produkt is maatwerk, 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