Index: EWORDSW.mac.rou
===================================================================
diff -u -r31456 -r31513
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31456)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31513)
@@ -199,7 +199,7 @@
  ..Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
  ..Set ProductID = $Piece(OLRec,"\",1)
  ..Set lbBevat = $$Bevat(CONSNr)
- ..Set lbBevat = $Select(($LL(lbBevat)=2)&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).TaorIndeling())&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).Orgalux()):lbBevat,1:##class(BL.Legacy.EWORDSW).GeefProductBevatTypeList(ProductID))
+ ..Set:('(($LL(lbBevat)=2)&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).TaorIndeling())&&$LF(lbBevat,##class(BL.Legacy.enu.ProductBevatType).Orgalux()))) lbBevat = ##class(BL.Legacy.EWORDSW).GeefProductBevatTypeList(ProductID)
  ..Quit:$P(OLRec,D,2)'=""  ; Reeds verwerkt (doorgestuurd), terugname, manueel of zonder WMS
  ..For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
  ...Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)