Index: VERVID.mac.rou
===================================================================
diff -u -r29059 -r36582
--- VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 29059)
+++ VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 36582)
@@ -36,7 +36,7 @@
  .Set FP=160 Write @F,LC," ",$P($P(^KLE(^KL1(LC),0),D,2)," ")
  ; Tonen van de vervoerlijsten van een bep. leverancier
  Kill Y
- For  Set VRF=$O(^Verv(LC,"D",VRF)) Quit:VRF=""  Do
+ For  Set VRF=$O(^Verv(LC,"D",VRF)) Quit:VRF=""  Do:'$D(^Verv(LC,"D",VRF,999999)) ;indien er geen dummyfactuur in zit
  .Set R=^(VRF)
  .If $P(R,D,15)="DO",$L($P(R,D,7)),$$INTDATE^vhLib.DataTypes($P(R,D,3),"DK")<($H-30) Do  Quit
  .. Do DELOBJ^VERV(LC,VRF) ; Verwijder overgeboekt DO's na 30 dagen
@@ -93,3 +93,4 @@
 END Q
  ;
 
+