Index: ZBCHKPR.mac.rou
===================================================================
diff -u -r49421 -r50707
--- ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 49421)
+++ ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 50707)
@@ -291,6 +291,7 @@
  . . . . . Write !!,"Index ",ZR," product index ""I"" verschillend - ",!,?8,HoofdGroep," - ",Groep," - ",SubGroep,?50,"Product = ",PRNr
  . . . . Set CompKortX=$$COMPR^PRODUKT(PRNr)
  . . . . If CompKort'=CompKortX Do  
+ . . . . . ;Kill ^KPH(HoofdGroep,Groep,SubGroep,"  ",CompKort)
  . . . . . Do Gefaald(.LaatsteGlobalRef)
  . . . . . Write !!,"Index ",ZR," korttekst foutief",!,?8,"Korttxt = ",KortTekst,CompKort,?29,"Product = ",PRNr
  . . . . If '$D(^KPHG1(HoofdGroep)) Do  
@@ -332,6 +333,7 @@
  . . . . . Write !,"In global : ",ZR,!
  . . . . Set CompKortX=$$COMPR^PRODUKT(PRNr)
  . . . . If CompKort'=CompKortX Do  
+ . . . . . Kill ^KPM("  ",HoofdGroep,Groep,SubGroep,CompKort)
  . . . . . Do Gefaald(.LaatsteGlobalRef)
  . . . . . Write !!,"^KPM versus ^KPR :Index ",ZR," korttekst foutief",!,?8,"Korttxt = ",KortTekst," compr:'",CompKort,"' herberekend:'",CompKortX,"'",?29,"Product = ",PRNr
  . . . . If '$D(^KPHG1(HoofdGroep)) Do