Index: BL/MB/UGLYPicking/OrderReservatie.cls.xml =================================================================== diff -u -r66381 -r66391 --- BL/MB/UGLYPicking/OrderReservatie.cls.xml (.../OrderReservatie.cls.xml) (revision 66381) +++ BL/MB/UGLYPicking/OrderReservatie.cls.xml (.../OrderReservatie.cls.xml) (revision 66391) @@ -673,7 +673,7 @@ $$$WriteToLog("*** ProcessUnFinishedZeroPalletIDs ***") New RS //Zonet gemaakte pallets inlezen in array ZeroPallets - New GeenMaatwerk + New GeenLade,LadeType,LadeTypes Set RS=##class(%ResultSet).%New("Flow.OrderWMS.PalletReservatie:GetUnFinishedZeroPalletIDs") Do RS.Execute(ConsNr,Magazijn) New ZeroPallets @@ -699,8 +699,10 @@ . 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 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 + . . Set LadeType = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefProduktType(ProdLoop) + . . Set LadeTypes = ##class(DOM.PM.enu.ProductType.AutoComplete).%New() + . . Set GeenLade = $$$Not( ##class(TECH.StringUtils).Equals(LadeType,LadeTypes.Tandembox,LadeTypes.Legrabox,LadeTypes.TAORbox,LadeTypes.Merivobox)) + . . If GeenLade || $$$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