Index: EWORDS3.mac.rou
===================================================================
diff -u -r734 -r1418
--- EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 734)
+++ EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 1418)
@@ -3,13 +3,14 @@
  ; Order mag gegroepeerd worden
 CUMORD(Ref) 
  New R,CumOrd,EenOPerB,ORDNr,LevAdr,FaktAdr,LevVw,Munt,Export,NetBrut
- New DeurOrd,Bewaar,OrdTyp,VerwTyp,IsOrgal,VerpTyp
+ New DeurOrd,Bewaar,OrdTyp,VerwTyp,IsOrgal,VerpTyp,AventosAppart
  New VNode
  Kill:'$D(^HULP(%J,KLNr,"M","A")) ^HULP(%J,KLNr,"C")
  Set R=^HULP(%J,KLNr,"O",Ref),ORDNr=$P(R,D)
  Quit:$D(^HULP(%J,KLNr,"M","A",ORDNr)) 1
  Set CumOrd=1,Bewaar=""
  Do EENOPERB
+ If CumOrd,'$L(Bewaar) Do AventosAppart
  If CumOrd,'$L(Bewaar) Do LEVADR
  If CumOrd,'$L(Bewaar) Do LEVVW
  If CumOrd,'$L(Bewaar) Do FAKTADR
@@ -46,6 +47,18 @@
  .Set CumOrd=$S($L(Bewaar):1,1:"")
  Quit
  ;
+ ; Een Aventosorder per bon
+AventosAppart 
+ New TempORDNr
+ Set R=^HULP(%J,KLNr,"K",1),AventosAppart=$G(^AventosAppart(KLNr)) ;$P(R,D,??)
+ If AventosAppart Do
+ .Quit:'$D(^HULP(%J,KLNr,"M","A"))  Quit:$D(^HULP(%J,KLNr,"M","A",ORDNr))
+ .Set TempORDNr=$O(^HULP(%J,KLNr,"M","A",""))
+ .If '$$BevatAventos^FLOW("O",ORDNr),'$$BevatAventos^FLOW("O",TempORDNr) Quit
+ .Set Bewaar=$$^vhTXTPOP("EWORDS","AventosAppart")
+ .Set CumOrd=$S($L(Bewaar):1,1:"")
+ Quit
+ ;
  ; Leveringsadres
 LEVADR 
  New Param1,Param2,Param3,Param4,Param5,Param6