Index: FLOWORD5.mac.rou
===================================================================
diff -u -r3298 -r3678
--- FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 3298)
+++ FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 3678)
@@ -399,15 +399,17 @@
  . Set BevatNietStock='$P(^KPR(PRNr,1),D,20)
  Quit BevatNietStock
  ;
- ; Order voor consument?
-CheckConsument(ORDNr,IsAfhaling)
- New Check,KLNr,IsConsument,VerzendWijze
- Set Check=0
+ ; Geef het TextId voor het voorblad
+CheckTextId(ORDNr)
+ New TextId,KLNr,IsConsument,IsRembours,VooruitBetaling,VerzendWijze
  Set KLNr=$P(^KO1(ORDNr,"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($$DEFAULT^KLVERZW(,KLNr,ORDNr),"`"),";")
- . 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="COA"
+ . Else  Set TextId=$S(VooruitBetaling:"COV",IsRembours:"COR",1:"COR")
+ Else  Set TextId="S"
+ Quit TextId
  ;
\ No newline at end of file