Index: FLOWBON5.mac.rou
===================================================================
diff -u -r734 -r948
--- FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 734)
+++ FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 948)
@@ -115,4 +115,16 @@
  . Set LeverDag=$P(R,D,25) Set:LeverDag LeverDagen(LeverDag)=""
  Set (LeverDagen,LeverDag)=""
  For  Set LeverDag=$O(LeverDagen(LeverDag)) Quit:LeverDag=""  Set LeverDagen=LeverDagen_$LB(LeverDag)
- Quit LeverDagen
\ No newline at end of file
+ Quit LeverDagen
+ ;
+CheckConsument(BONNr,IsAfhaling)
+ New Check,KLNr,IsConsument,VerzendWijze
+ Set Check=0
+ Set KLNr=$P(^KU1(BONNr,"F"),D)
+ Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument")
+ If IsConsument Do
+ . Set VerzendWijze=$P($P($P(^KUL(KLNr,"F",BONNr,1),D,7),"#")," ")
+ . If $G(IsAfhaling) Set Check=($E(VerzendWijze,1,2)="AF")
+ . Else  Set Check=($E(VerzendWijze,1,2)'="AF")
+ Quit Check
+ ;
\ No newline at end of file