Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r65864 -r66381
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 65864)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 66381)
@@ -673,6 +673,7 @@
  $$$WriteToLog("*** ProcessUnFinishedZeroPalletIDs ***")
  
  New RS   //Zonet gemaakte pallets inlezen in array ZeroPallets
+ New GeenMaatwerk
  Set RS=##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetUnFinishedZeroPalletIDs")
  Do RS.Execute(ConsNr,Magazijn)
  New ZeroPallets
@@ -698,11 +699,12 @@
  . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID,ConsolidatiePalletten)
  . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
  . . $$$WriteToLog("################### reservatie niet gelukt met info uit EWPAL, fallback hier nodig ########################")
- . . 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 = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsMaatwerkProduct(ProdLoop)
+ . . 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 ########################")
  . . .  Set ErrorOccured=1