Index: PRODUKT.mac.rou
===================================================================
diff -u -r29059 -r40407
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 29059)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 40407)
@@ -311,7 +311,7 @@
  ;
  ; PRODGRP geeft APPS.PM.enu.ProductGroep terug.
 PRODGRP(PRNr,CheckOldProducts) 
- New Groep,GenTyp,Key,LevNr
+ New Groep,GenTyp,Key,LevNr,ProductTypeAPI
  #dim Groep As APPS.PM.enu.ProductGroep
  Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
  Set:LevNr=""&&$G(CheckOldProducts) LevNr=$E($O(^KPRO(PRNr,"J")),2,5) ; Old