Index: KF0.mac.rou
===================================================================
diff -u -r1483 -r1535
--- KF0.mac.rou	(.../KF0.mac.rou)	(revision 1483)
+++ KF0.mac.rou	(.../KF0.mac.rou)	(revision 1535)
@@ -12,7 +12,7 @@
 M4 S MSG="MUNT PRODUKT NIET GELIJK AAN MUNT "_UOU G MY
 M5 S MSG="PRODUKT IN GEBRUIK" G MY
 M6 S MSG="GEEN MUNTKODE VOOR DIT PRODUKT" G MY
-M7 S MSG="NIET-STOCK PRODUKT MET BOUWSTENEN ZONDER PRAKTISCHE VOORRAAD" G MY
+M7 S MSG="Toevoegen van een niet-stock product zonder praktische voorraad~aan een gesloten order is niet mogelijk.~Gelieve hiertoe een nieuw order aan te maken." G MW
 M8 S MSG="GEEN GROOTVERPAKKING VOOR DIT PRODUKT" G MY
 M9 S MSG="EEN NORMAAL ORDER MAG GEEN 8-PRODUKTEN BEVATTEN" G MY
 M10 S MSG="EEN AFROEP ORDER MAG ENKEL STOCKPRODUKTEN BEVATTEN" G MY
@@ -24,6 +24,7 @@
 M16 S MSG="EEN NIET-ORGALUX ORDER MAG GEEN ORGALUX-PRODUKTEN BEVATTEN" G MY
 MY S SW12=1,FP=2401+F60 W @F,@F2,"  ",@F4,MSG,"  [] = ok ",@F5,@F0 R K G YZ
 MZ S FP=2401+F60 W @F,@F2,"  ",@F4,MSG,"  [] = ok ",@F5,@F0 R K Q
+MW Do WARN^vhTXTPOP(MSG,"") S K="" G YZ
  ;
 1 N BackGrnd,PraStock,VWTYP,ProdGeg,CorLevT,CIFPPL,Contract,WeekDag,WekenVH2Klant,Warn,MinLeverDag
  Do:$D(^ORDW("IO",ORDNr))