Index: PRODUKT.mac.rou =================================================================== diff -u -r53155 -r64708 --- PRODUKT.mac.rou (.../PRODUKT.mac.rou) (revision 53155) +++ PRODUKT.mac.rou (.../PRODUKT.mac.rou) (revision 64708) @@ -339,6 +339,7 @@ .If GenTyp["TBX" Set Groep=##class(APPS.PM.enu.ProductGroep).Tandembox() .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() 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"