Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml
===================================================================
diff -u -r59201 -r65225
--- BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 59201)
+++ BL/MB/UGLYPicking/OrderReservatie.cls.xml	(.../OrderReservatie.cls.xml)	(revision 65225)
@@ -753,10 +753,13 @@
  . Set ZeroPalletID=$LI(ZeroPallets(ProdLoop),$$$tmpZeroPalletID)
  . 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 ########################")
- . . Set tmpStatus=..FStartReservePallets(ConsNr,Magazijn,ProdLoop,AantalTePicken,ZeroPalletID) ; om fallback te activeren, laatste parameter laten defaulten.
+ . . If $$$Not(($Piece($Get(^ORDW("D",ConsNr)),"\",1)=25868) || ($Piece($Get(^ORDW("D",ConsNr)),"\",1)=24315) ) ;geen fallback voor KVIK
+ . . . $$$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 ########################")
  . . If tmpStatus'="" Do    //Indien '="" is er een fout opgetreden
- . . .  $$$WriteToLog("################### fallback ook mislukt ########################")
+ . . .  $$$WriteToLog("################### fallback ook mislukt (nvt voor KVIK) ########################")
  . . .  Set ErrorOccured=1
  . . .  $$$WriteToLog("ERROR: "_tmpStatus)
  . . .  Do ##class(Flow.OrderWMS.PalletReservatie).SetReservationIsDone(ConsNr,Magazijn,ProdLoop,0,tmpStatus)