Index: KLACHT.mac.rou
===================================================================
diff -u -r1985 -r2041
--- KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 1985)
+++ KLACHT.mac.rou	(.../KLACHT.mac.rou)	(revision 2041)
@@ -469,6 +469,13 @@
  . Set NextContact=$O(^KlachtD(KlachtId,"C",""),-1)+1,^KlachtD(KlachtId,"C",NextContact)=R_D_sFL("C",1),$P(^KlachtD(KlachtId),D,34,35)=R
  Quit
  ;
+ ; Alle incidenten van een klant verwijderen (menu 1.4 Verwijderen klanten)
+DelCust(KLNr)
+ New KlachtId
+ Set KlachtId=""
+ For  Set KlachtId=$O(^KlachtI("K",KLNr,KlachtId)) Quit:KlachtId=""  Do DELOBJ(KlachtId)
+ Quit
+ ;
 DELOBJ(KlachtId) 
  Do DELETE(KlachtId,1)
  Quit