Index: PRODUKT6.mac.rou
===================================================================
diff -u -r734 -r918
--- PRODUKT6.mac.rou	(.../PRODUKT6.mac.rou)	(revision 734)
+++ PRODUKT6.mac.rou	(.../PRODUKT6.mac.rou)	(revision 918)
@@ -282,7 +282,7 @@
  Do InitCriteria
  Set IdentNr=$P(^KPR(PRNr,2),D,25)
  Set pxCriteria.At="I"
- Set CompresKey=$TR(IdentNr,".","")_" "
+ Set CompresKey=$$UPTRIMAN^vhRtn1(IdentNr)_" "
  Set IndexContent=^Prod.SearchIndexD(pxCriteria.At,CompresKey,PRNr)
  Do blSearch.SetDefault(pxCriteria)
  If 'blSearch.QuickCheckCriteria(PRNr,pxCriteria,IndexContent) Quit 0