Index: EWORDSW.mac.rou
===================================================================
diff -u -r31358 -r31363
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31358)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 31363)
@@ -198,7 +198,8 @@
  .For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
  ..Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
  ..Set ProductID = $Piece(OLRec,"\",1)
- ..Set lbBevat = ##class(BL.Legacy.EWORDSW).GeefProductBevatTypeList(ProductID)
+ ..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))
  ..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)