Index: EWORDST.mac.rou
===================================================================
diff -u -r3083 -r3647
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 3083)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 3647)
@@ -969,11 +969,15 @@
  ; Beloofd, remours of vooruitbetaling
 BRV(CONSNr)
  New R,BRV,KLNr,Rembours,VooruitBetaling
- Set BRV=$$Beloofd(CONSNr)
- Do:BRV=""
- . Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
- . Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2)
- . Set BRV=$S(Rembours:"R",VooruitBetaling:"V",1:"")
+ Set BRV = ""
+ If ($Data(^ORDW("D",CONSNr)))
+ {
+	 Set BRV=$$Beloofd(CONSNr)
+	 Do:BRV=""
+	 . Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
+	 . Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2)
+	 . Set BRV=$S(Rembours:"R",VooruitBetaling:"V",1:"")
+ }
  Quit BRV
  ;
 SOFTVOL(Lijst)  ; Formatering van "EU" code in de lijst