Index: FLOWBON5.mac.rou
===================================================================
diff -u -r1268 -r3678
--- FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 1268)
+++ FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 3678)
@@ -117,16 +117,19 @@
  For  Set LeverDag=$O(LeverDagen(LeverDag)) Quit:LeverDag=""  Set LeverDagen=LeverDagen_$LB(LeverDag)
  Quit LeverDagen
  ;
-CheckConsument(BONNr,IsAfhaling)
- New Check,KLNr,IsConsument,VerzendWijze
- Set Check=0
+ ; Geef het TextId voor het voorblad
+CheckTextId(BONNr)
+ New TextId,KLNr,IsConsument,IsRembours,VooruitBetaling,VerzendWijze
  Set KLNr=$P(^KU1(BONNr,"F"),D)
  Set IsConsument=($P(^KKL(^KK1(KLNr),1),D,11)="Consument")
+ Set IsRembours=$P(^KKL(^KK1(KLNr),3),D)
+ Set VooruitBetaling=$P(^KKL(^KK1(KLNr),3),D,2)
  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
+ . If $E(VerzendWijze,1,2)="AF" Set TextId="CLA"
+ . Else  Set TextId=$S(VooruitBetaling:"CLV",IsRembours:"CLR",1:"CLR")
+ Else  Set TextId="S"
+ Quit TextId
  ;
  ; Tonen van het aantal palletten in eco* retour
 EcopackRetour(BONNr)