Index: RPLKL2.mac.rou
===================================================================
diff -u -r50372 -r50381
--- RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 50372)
+++ RPLKL2.mac.rou	(.../RPLKL2.mac.rou)	(revision 50381)
@@ -353,10 +353,13 @@
  ;
  ;Leveringen
 BON 
- N STUPD,Format,Bold,IsOrgal,IsComm,PRNr
+ N STUPD,Format,Bold,IsOrgal,IsComm,PRNr,LevDatum,MaxDatum
  S (BON(9),VNR)=0,UR=-1,(URX,PRNr)=""
+ Set MaxDatum=$$CALCDATE^vhLib.DataTypes($H,"A",-3)
  For  Set UR=$O(^KUL(KC,"F",UR)) Quit:UR=""  Do 
  .S U2=^(UR,1),UVM=$P(U2,D,18)
+ .S LevDatum=$$INTDATE^vhLib.DataTypes($P(U2,"\",2),"DK")
+ .Quit:('$G(MaxLevering))&&(LevDatum<MaxDatum)
  .S U2X=UR_D_$P(U2,D,2)_D_D_$P($P(U2,D,7),"#",2)_D_$S("MP"[$P(U2,D,25):$P(U2,D,25)_" ",1:"")
  .S:$L($P(U2,D,8)) $P(U2X,D,4)="*"_$$TRANSPORT^ULTOER(UR,2)_"*"
  .S (VNR,VNRX)=VNR+1,UZ=100,(UN,Bold)=0,(UPR,URX,GO)=""
@@ -560,4 +563,3 @@
  Q
  ;
 
-