Index: DCORD.mac.rou
===================================================================
diff -u -r734 -r921
--- DCORD.mac.rou	(.../DCORD.mac.rou)	(revision 734)
+++ DCORD.mac.rou	(.../DCORD.mac.rou)	(revision 921)
@@ -259,7 +259,7 @@
 VOORWPROXY(KLNr,ORDNr,Cache,Taal)   ; Cache als .local doorgeven --> wordt opgevuld met teksten
 #define KLRec(%i)   ^KKL(KLID,%i)
  New KLID,Rec,R,i,Land,FactKLNr
- New LeverVw,BetVw,PctKontKrt,TKontKrt,Rembours,VoorBet
+ New LeverVw,BetVw,PctKontKrt,TKontKrt,Rembours,VoorBet,IsConsument
  Set KLID=^KK1(KLNr)
  Set:($G(Taal)="") Taal=$P(^KKL(KLID,0),"\",9) Set:(Taal="") Taal="N"
  Set Land=$$LAND^vhRtn1($P(^KKL(KLID,0),"\",8))
@@ -277,6 +277,7 @@
  Set R=$$BETVW^KLANT(BetVw,PctKontKrt,TKontKrt,Rembours,VoorBet,Taal)
  For i=1:1:$L(R,"#") Set Cache("BETALINGSVOORWAARDE",i)=$P(R,"#",i)
  ; Memo
+ Set IsConsument=$P($$$KLRec(1),"\",11)="Consument"
  Do MEMOPROXY^DCALG("O",Taal,.Cache)
  Quit
  ;