Index: KLBTW.mac.rou
===================================================================
diff -u -r734 -r1810
--- KLBTW.mac.rou	(.../KLBTW.mac.rou)	(revision 734)
+++ KLBTW.mac.rou	(.../KLBTW.mac.rou)	(revision 1810)
@@ -27,6 +27,7 @@
  .Quit:$P(^KKL(KLId,2),D,23)<Datum
  .Set KLNr=$P(^KKL(KLId,0),D)
  .Quit:'$D(^KK1(KLNr))
+ .Quit:($P(^KKL(KLId,1),D,11)="Consument")
  .Do FETCHKL^UTILI(KLNr)
  .Set Land=$$LAND^vhRtn1($P(B(1),D,8))
  .Quit:Land="BE"