Index: ZBCHKPR.mac.rou
===================================================================
diff -u -r29059 -r36595
--- ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 29059)
+++ ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 36595)
@@ -160,6 +160,7 @@
  Do wKORTTXT^zbcheck
  
 CHECKPR
+ #define HerbouwIndexFalse   0
  Do
  .New Check
  .Set Q="K"
@@ -192,13 +193,11 @@
  . . Write !!,"Index ",LaatsteGlobalRef," onbekend",!,?8,"Identnr = ",IdentNr,?50,"Product = ",PRNr
  . If PRNr'=$P($G(^KPR2(CompIdentNr)),D) Do  
  . . Set PRNrFromIndex=$P($G(^KPR2(CompIdentNr)),D)
- . . Set Check=0
- . . Do wKORTTXT^zbcheck
+ . . Do Gefaald(.LaatsteGlobalRef,$$$HerbouwIndexFalse)
  . . Write !!,"Index ",LaatsteGlobalRef," product verschillend",!,?8,"Identnr = ",IdentNr,?50,"Product ",PRNr," <> ",PRNrFromIndex
  . Set IKlas="I"
  . If $E($O(^KPR(PRNr,IKlas)))'="I" Do  
- . . Set Check=0
- . . Do wKORTTXT^zbcheck
+ . . Do Gefaald(.LaatsteGlobalRef,$$$HerbouwIndexFalse)
  . . Write !!,"Index ^KPR(",PRNr,",""I"") onbekend",!,?8,"Korttxt = ",KortTekst,?50,"Product = ",PRNr
  . For  Set IKlas=$O(^KPR(PRNr,IKlas)) Quit:$E(IKlas)'="I"  Do  
  . . Set R=^KPR(PRNr,IKlas),HoofdGr=$P(R,D),Groep=$P(R,D,2),SubGroep=$P(R,D,3)
@@ -469,12 +468,13 @@
  Quit
  ;
  
-Gefaald(LaatsteGlobal)
+Gefaald(LaatsteGlobal,HerbouwIndex)
+ Set HerbouwIndex = $G(HerbouwIndex,1)
  Set LaatsteGlobal = $ZR
  Set Check = 0
  w !
  Do wKORTTXT^zbcheck
- Do HerbouwIndexIndienNodig(PRNr)
+ Do:(HerbouwIndex) HerbouwIndexIndienNodig(PRNr)
  Quit
  
 HerbouwIndexIndienNodig(PRNr)