Index: EWORDS6.mac.rou
===================================================================
diff -u -r49859 -r49860
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 49859)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 49860)
@@ -705,7 +705,15 @@
  
  ; Orgaluxcode orders steeds afzonderlijk?
 Orgalux(ORDNr,CumulORDNr)
- Quit $$$Not(##class(BL.Legacy.EWORDS6).%New().BevatOrderOrgalux(ORDNr))
+ New MagCumuleren, LegacyEwords6
+ 
+ #dim LegacyEwords6 As BL.Legacy.EWORDS6 = ##class(BL.Legacy.EWORDS6).%New()
+ #dim MagCumuleren As %Boolean = $$$False
+ 
+ Set MagCumuleren = $$$Not(LegacyEwords6.BevatOrderOrgalux(ORDNr))
+ Set:(MagCumuleren) MagCumuleren = $$$Not(LegacyEwords6.BevatOrderOrgalux(CumulORDNr))
+ 
+ Quit MagCumuleren
 
 TaorIndeling(ORDNr,CumulORDNr)
  New CumulTaorIndeling