Index: Derde/Klacht.cls.xml
===================================================================
diff -u -r1074 -r1788
--- Derde/Klacht.cls.xml	(.../Klacht.cls.xml)	(revision 1074)
+++ Derde/Klacht.cls.xml	(.../Klacht.cls.xml)	(revision 1788)
@@ -393,6 +393,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%BuildIndices">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>idxlist:%List=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+  do ..%PurgeIndices()
+  set KlachtID = ""
+  for  set KlachtID = $order(^KlachtD(KlachtID)) quit:KlachtID=""  do BLDIND^KLACHT(KlachtID)
+  Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%PurgeIndices">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>idxlist:%List=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ Kill ^KlachtI
+ quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	quit $$$ERROR($$$GeneralError,"Storage is niet volledig gedefinieerd.")
+]]></Implementation>
+</Method>
+
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Derde.KlachtS</StreamLocation>