Index: EWORDS6.mac.rou
===================================================================
diff -u -r1023 -r1418
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 1023)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 1418)
@@ -508,7 +508,8 @@
  
 CheckCumul(ORDNr,CumulORDNr)
  New Cumul
- Set Cumul=$$LevAdr(ORDNr,CumulORDNr)
+ Set Cumul=$$AventosAppart(ORDNr,CumulORDNr)
+ Set:Cumul Cumul=$$LevAdr(ORDNr,CumulORDNr)
  Set:Cumul Cumul=$$LevVoorw(ORDNr,CumulORDNr)
  Set:Cumul Cumul=$$FactAdr(ORDNr,CumulORDNr)
  Set:Cumul Cumul=$$Munt(ORDNr,CumulORDNr)
@@ -529,6 +530,15 @@
  Set:EenOPerB=3 EenOPerB=0 ; Meerdere orders per bon, een bon per factuur
  Quit ''EenOPerB
  
+ ; Een Aventosorder per bon
+AventosAppart(ORDNr,CumulORDNr)
+ New CumulOk,AventosAppart
+ Set CumulOk=1,AventosAppart=$G(^AventosAppart(KLNr)) ;$P(R,D,??)
+ Do:AventosAppart
+ . Set CumulOk=0
+ . If '$$BevatAventos^FLOW("O",ORDNr),'$$BevatAventos^FLOW("O",CumulORDNr) Set CumulOk=1
+ Quit CumulOk
+ 
  ; Leveringsadres gelijk?
 LevAdr(ORDNr,CumulORDNr)
  New R,KLNr,LevAdr,CumulLevAdr