Index: PRODUKT.mac.rou
===================================================================
diff -u -r64708 -r74827
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 64708)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74827)
@@ -27,7 +27,7 @@
  Lock  ZD
  Quit LScreen_D_LElement_D_Aktie
  ;
- ;Opvragen klassificatie bij Afdrukken  Prijsuitzondering
+ ;Opvragen klassificatie bij Afdrukken Prijsuitzondering
  ;***** Te vervangen door SELECT^KLAS
 KLASKEY(Ref,Key) 
  New H,G,S,h,g,s,R
@@ -340,6 +340,7 @@
  .If GenTyp["LBX" Set Groep=##class(APPS.PM.enu.ProductGroep).Legrabox()
  .If GenTyp["TAO" Set Groep=##class(APPS.PM.enu.ProductGroep).TAORBOX()
  .If GenTyp["MVX" Set Groep=##class(APPS.PM.enu.ProductGroep).Merivobox()
+ .If GenTyp["RVG" Set Groep=##class(APPS.PM.enu.ProductGroep).Revego()
  Set Key=$O(^KPR(PRNr,"I"))
  If $E(Key)="I" Quit:$P(^KPR(PRNr,Key),"\")["OL" "OL"
  Else  If $G(CheckOldProducts)  Set Key=$O(^KPRO(PRNr,"I")) If $E(Key)="I" Quit:$P(^KPRO(PRNr,Key),"\")["OL" "OL"