Index: PRODUKT.mac.rou
===================================================================
diff -u -r17618 -r66390
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 17618)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 66390)
@@ -331,6 +331,9 @@
  .Set GenTyp=$$GENTYP^HAD(PRNr,.CheckOldProducts)
  .If GenTyp["GRP" Set Groep="GRP"
  .If GenTyp["TBX" Set Groep="TBX"
+ .If GenTyp["LBX" Set Groep="LBX" ;##class(APPS.PM.enu.ProductGroep).Legrabox()
+ .If GenTyp["TAO" Set Groep="TA.B" ;##class(APPS.PM.enu.ProductGroep).TAORBOX()
+ .If GenTyp["MVX" Set Groep="MVX" ; ##class(APPS.PM.enu.ProductGroep).Merivobox()
  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"  
@@ -417,5 +420,6 @@
  Else  Set Mirror=""
  Quit Mirror
  ;
-
-
+ 
+ 
+ 
\ No newline at end of file