Index: KOFPS1.mac.rou
===================================================================
diff -u -r734 -r2925
--- KOFPS1.mac.rou	(.../KOFPS1.mac.rou)	(revision 734)
+++ KOFPS1.mac.rou	(.../KOFPS1.mac.rou)	(revision 2925)
@@ -17,6 +17,7 @@
 2 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB" G 3
 3 S K=$P($T(+1),U,2),FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
 4 S KSEL=1 D KP^KSEL G YZ:K="-"
+ D ShowAantal(Q0,KL,KLX)
 5 S FP=1303 W @F,@F1 S R="UR\21\3\"_$P($T(T1),U,2)_$P($T(T2),U,2)_"\6\\""-K""[K!(K?.N)&$L(K)" D R0 G 4:K="-"
 7 I K'="K" G 5:'$D(@("^"_Q_UG1_"(UR,US)")) S KC=$P(^(US),D,1) G 21
 9 S R="KC\2000\KLANT\KL\K1" D R1 G 5:K="-" S FP=1303 W @F,@F1,"COPIEREN OFFERTE VAN KLANT       : ",$P(^(KC,0),D,2) S KC=$P(KC," ",2)
@@ -41,6 +42,14 @@
  ;
 YZ K @("^"_Q_"SEL($J)") Q
  ;
+ShowAantal(Q0,KL,KLX)
+ New Aantal,Warn
+ Set Aantal=0
+ For  Set KL=$O(@Q0) Quit:KL=""  Quit:KL]KLX  Set Aantal=Aantal+1
+ Set Warn="Er "_$S(Aantal=1:"zal ",1:"zullen ")_Aantal_" offerte"_$S(Aantal=1:"",1:"s")_" aangemaakt worden"
+ Do WARN^vhTXTPOP(Warn,"")
+ Quit
+ ;
 R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
 R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
 R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5