Index: VERVID.mac.rou
===================================================================
diff -u -r36582 -r36616
--- VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 36582)
+++ VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 36616)
@@ -14,13 +14,13 @@
 PAL S K="" F I=8:1:12 I $L($P(R,D,I)) S K=K_$P($T(T3),U,$F("PEBS",$P($P(R,D,I),U,1))+2)_"="_$P($P(R,D,I),U,2)_"  ",$P(R,D,I)=""
  S $P(R,D,8)=K
  Q
-Select(Multi,SelLC,SoDo,Status)
+Select(Multi,SelLC,SoDo,Status,AlleenVollediggefaktureerd)
 	New VRF
-	Do SELECT($G(Multi),.SelLC,.SoDo,.Status)
+	Do SELECT($G(Multi),.SelLC,.SoDo,.Status,AlleenVollediggefaktureerd)
 	Quit VRF
  ;
  ; Vervoeridentificatie
-SELECT(Multi,SelLC,SoDo,Status)
+SELECT(Multi,SelLC,SoDo,Status,AlleenVollediggefaktureerd)
  New Y,X,VNR,FL,ChkDate,RCPNr
  S DL(1)="VID" S (VNR,VRF)=0,ChkDate=""
  Set Multi=$G(Multi)
@@ -36,8 +36,8 @@
  .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:'$D(^Verv(LC,"D",VRF,999999)) ;indien er geen dummyfactuur in zit
- .Set R=^(VRF)
+ For  Set VRF=$O(^Verv(LC,"D",VRF)) Quit:VRF=""  Do:('($D(^Verv(LC,"D",VRF,999999)) && $Get(AlleenVollediggefaktureerd)) ) 
+ .Set R=^Verv(LC,"D",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
  .If $$INTDATE^vhLib.DataTypes($P(R,D,3),"DK")<($H-90) Do  Quit
@@ -88,7 +88,7 @@
  .Set:$P(R,D)="01" Count=Count+1
  Quit Count
  ;
-MULTI D SELECT("M") Q
+MULTI D SELECT("M",,,,1) Q ;Alleen vervoerslijsten zonder dummyfaktuur
 BEGIN D SELECT("")
 END Q
  ;