Index: DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml
===================================================================
diff -u -r42395 -r44158
--- DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml	(.../DataMOrderAPI.cls.xml)	(revision 42395)
+++ DOM/VKP/impl/DataM/DataMOrderAPI.cls.xml	(.../DataMOrderAPI.cls.xml)	(revision 44158)
@@ -3,7 +3,7 @@
 <Class name="DOM.VKP.impl.DataM.DataMOrderAPI">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.VKP.OrderAPI</Super>
+<Super>TECH.RegisteredObject,DOM.VKP.OrderAPI</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="GeefOrder">
@@ -159,6 +159,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderOverbodigeIndexen">
+<FormalSpec>OrderID:%Integer</FormalSpec>
+<Implementation><![CDATA[
+    #dim Klantnummer As %String = ($Piece($Get(^KO1(OrderID,"F")),"\",1))
+    If $Length(Klantnummer) && ($$$Not($Data(^KOD(Klantnummer,"F",OrderID)))) {
+        Kill ^KO1(OrderID)
+    }
+]]></Implementation>
+</Method>
+
 <Method name="GeefProforma">
 <FormalSpec>ProformaID:%Integer</FormalSpec>
 <ReturnType>DOM.VKP.Proforma</ReturnType>