PRODUKT3 ;Hulpprogramma voor opbouw indexen [ 07/04/2001  4:06 PM ]
 Quit
 
BLDALL
 D ##class(BL.Prod.SearchBuildIndex).RebuildAll()
	Quit
 D ^cA604
 Read "Bent u zeker dat u de indexbestanden eerst wenst te verwijderen,",!,"Type : VERWIJDER : ",!,K
 Quit:K'="VERWIJDER"
 Lock +^KPR:5 Else  Write !,"Produkten bestand is in gebruik" Quit
 Kill ^KPH,^KPL,^KPM,^KPR3,^KPR2,^KPR1
 Set PRNr=1
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do BLDIND^PRODUKT2(PRNr)
 Lock -^KPR
 Quit