Index: ZBCHKPR.mac.rou
===================================================================
diff -u -r49405 -r49421
--- ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 49405)
+++ ZBCHKPR.mac.rou	(.../ZBCHKPR.mac.rou)	(revision 49421)
@@ -484,5 +484,13 @@
 	}Else{
 		Write !,"==>>",$C(9),"Product '"_PRNr_"' bestaat niet meer."	
 	}
+	
+	New PsiService 
+	Set PsiService = ##class(BL.Prod.SearchBuildIndex).%New()
+	Do PsiService.Init(PRNr)
+	Do PsiService.DeleteIndex()
+	Do PsiService.BuildIndex(1)
+	
  Quit
 
+