Index: INKORTBAAR.mac.rou
===================================================================
diff -u -r1024 -r1079
--- INKORTBAAR.mac.rou	(.../INKORTBAAR.mac.rou)	(revision 1024)
+++ INKORTBAAR.mac.rou	(.../INKORTBAAR.mac.rou)	(revision 1079)
@@ -3,6 +3,7 @@
 INKORTBAAR ;Produkt creatie voor zaagsnedes
  
 GENERATE(Ref,GenPRNr,Params,FromPRNr) 
+ Do WARN^vhTXTPOP($P(^KPR(GenPRNr,0),D)_" ~mag nog niet gebruikt worden!!!~Gelieve contact op te nemen met ICT.","") Quit "-"
  New %SC,%SelProd,sFL,IngekortPRNr,KLNr,LEVNr,Taal,KortTxt,PR,LT,Binnenmaat,OLProductInTeKorten,Factory,Product
  Set Ref=$G(Ref),(GenPRNr,PR)=$G(GenPRNr),Params=$G(Params),FromPRNr=$G(FromPRNr),Binnenmaat=""
  Set:Params="K" KLNr=Ref Set:Params="L" LEVNr=Ref,IsStock=1