Index: KLPUTZ2.mac.rou
===================================================================
diff -u -r734 -r1273
--- KLPUTZ2.mac.rou	(.../KLPUTZ2.mac.rou)	(revision 734)
+++ KLPUTZ2.mac.rou	(.../KLPUTZ2.mac.rou)	(revision 1273)
@@ -191,7 +191,7 @@
  . . . . . Set:PRNr $P(R,D,4)=$P(R,D,4)_"#"_$P($$KLANTPR^KPRIJS(KLNr,PRNr,NoSa),D) ; Indien op productniveau prijs ophalen
  . . . . . Set ^HULP(%J,OldNew,HoofdGr,Groep,SubGroep,PRNr,Next)=R
  Quit
- ;
+ 
  ; Opbouwen index
 BLDIND(KLNr,NoSa)
  New HoofdGr,Groep,SubGroep,PRNr
@@ -206,4 +206,17 @@
  . . . For  Set PRNr=$O(^KLPUTZ(NoSa,KLNr,HoofdGr,Groep,SubGroep,PRNr)) Quit:PRNr=""  Do
  . . . . Set ^KLPUTZ("I"_NoSa,HoofdGr,Groep,SubGroep,PRNr,KLNr)=""
  Quit
- ; 
\ No newline at end of file
+ 
+DELIND(KLNr,NoSa) 
+ New HoofdGr,Groep,SubGroep,PRNr
+ If $G(NoSa)="" Set NoSa="N"
+ Set HoofdGr=""
+ For  Set HoofdGr=$O(^KLPUTZ(NoSa,KLNr,HoofdGr)) Quit:HoofdGr=""  Do
+ . Set Groep=""
+ . For  Set Groep=$O(^KLPUTZ(NoSa,KLNr,HoofdGr,Groep)) Quit:Groep=""  Do
+ . . Set SubGroep=""
+ . . For  Set SubGroep=$O(^KLPUTZ(NoSa,KLNr,HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do
+ . . . Set PRNr=""
+ . . . For  Set PRNr=$O(^KLPUTZ(NoSa,KLNr,HoofdGr,Groep,SubGroep,PRNr)) Quit:PRNr=""  Do
+ . . . . Kill ^KLPUTZ("I"_NoSa,HoofdGr,Groep,SubGroep,PRNr,KLNr)
+ Quit
\ No newline at end of file