Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml =================================================================== diff -u -r61998 -r65227 --- BL/MB/UGLYPicking/OrderReservatie.cls.xml (.../OrderReservatie.cls.xml) (revision 61998) +++ BL/MB/UGLYPicking/OrderReservatie.cls.xml (.../OrderReservatie.cls.xml) (revision 65227) @@ -698,7 +698,11 @@ . 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 ########################") . . . Set ErrorOccured=1