Index: PRODUKT.mac.rou
===================================================================
diff -u -r734 -r918
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 734)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 918)
@@ -63,7 +63,7 @@
  .Set %SelProd("PRNr")=PRNr
  If Via="I" Do  Quit PRNr
  .For  Do  Quit:'PRNr  If $P(^KPR(PRNr,1),D,25)'=1 Quit:$$CHECK(PRNr)
- ..Set PRId=$P(^KPR(PRNr,2),D,25),PRCId=$$TRIMN^vhRtn1(PRId)
+ ..Set PRId=$P(^KPR(PRNr,2),D,25),PRCId=$$TRIMIDENT^vhRtn1(PRId) ;[IDENT] CW
  ..Set PRCId=$O(^KPR2(PRCId),Dir)
  ..Set PRNr=$S($L(PRCId):$P(^KPR2(PRCId),D),1:"")
  .Set %SelProd("PRNr")=PRNr
@@ -85,7 +85,6 @@
  .Set %SelProd("PRNr")=PRNr
  Quit ""
  ;
- ;
 CHECK(PRNr)
  Set IdentNr=$P(^KPR(PRNr,2),D,25)
  Set pxCriteria.At="I"
@@ -316,7 +315,7 @@
  Quit $LB($P(BLRec,D,23),$P(BLRec,D,24),$P(BLRec,D,25),$P(BLRec,D,22), GVP) ; H, B, D, Faktor, GVP
  ;
 PRODGRP(PRNr,CheckOldProducts) 
- New Groep,GenTyp,Key
+ New Groep,GenTyp,Key,LevNr
  Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
  Set:LevNr=""&&$G(CheckOldProducts) LevNr=$E($O(^KPRO(PRNr,"J")),2,5) ; Old
  If LevNr=5005 Quit "BLUM"