Index: PRSTOCK.mac.rou
===================================================================
diff -u -r52025 -r52990
--- PRSTOCK.mac.rou	(.../PRSTOCK.mac.rou)	(revision 52025)
+++ PRSTOCK.mac.rou	(.../PRSTOCK.mac.rou)	(revision 52990)
@@ -315,10 +315,7 @@
  ; Productselectie
 SELPROD()
  New PRNr,Tekst
- For  Set PRNr=$$SELECT^PRODUKT6()  Quit:'PRNr  Do
- ;For  Set PRNr=$$SELECT^PRODUKT6()  Quit:'PRNr  Quit:'$D(^HISTPAK("P",PRNr))  Do
- . ;Set Tekst="Ecopack verpakkingen niet toegestaan!"
- . ;Do WARN^vhTXTPOP(Tekst,"")
+ Set PRNr=$$SELECT^PRODUKT6()
  Quit PRNr
  ;
 ModStockOk(PRNr,StockTyp)