Index: HADVUL.mac.rou
===================================================================
diff -u -r39194 -r44291
--- HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 39194)
+++ HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 44291)
@@ -148,11 +148,12 @@
  . For  Set Sort=$O(Sort(Sort)) Quit:Sort=""  Do
  .. Set Y=Y+1,Y(Y)=Sort(Sort)
  . Set Y=Y+1,Y(Y)="&S&C Bestaande "
- For  Set GVORDNr2=$O(^HADPR("GVB",GVORDNr2)) Quit:GVORDNr2=""  Do
+ For  Set GVORDNr2=$O(^HADPR("GVB",GVORDNr2),-1) Quit:GVORDNr2=""  Do
  . If Optie["A" Quit:$P(^HADPR("GVB",GVORDNr2),D,3)
  . If Optie["N",GVORDNr2'=150 Quit
  . Set Rec=^HADPR("GVB",GVORDNr2)
  . Set Ref=$P($G(^RES("HADVUL","PI","GLASLEV","D",$P(Rec,D))),"`",2)
+ . Quit:$P(Rec,D,2)<($H-60)
  . Set Ref=$E(Ref_$J("",15-$L(Ref)),1,15)_"| "_$$EXTDATE^vhLib.DataTypes($P(Rec,D,2),"DK")_" "_$S($P(Rec,D,4):"B",1:"")
  . Set Y=Y+1,Y(Y)=GVORDNr2_D_Ref
  Set X=$$WILD^vhPOPUP("C;C","KO2-"_$S(Optie["M":"M",1:""),"Glasbestelling",.Y,$S(Optie["N":"",1:GVORDNr))