Index: DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml
===================================================================
diff -u -r29059 -r31278
--- DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml	(.../DataMBoekhoudingAPI.cls.xml)	(revision 29059)
+++ DOM/BKH/impl/DataM/DataMBoekhoudingAPI.cls.xml	(.../DataMBoekhoudingAPI.cls.xml)	(revision 31278)
@@ -58,67 +58,19 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefEersteBoekingPeriodeAankoopFactuur">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $order(^KAA(""))
-]]></Implementation>
-</Method>
-
 <Method name="GeefPeriodeAankoopFactuur">
 <FormalSpec>AankoopfactuurID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim EerstePeriode As %Date = ..GeefEersteBoekingPeriodeAankoopFactuur()
-	#dim Periode As %Date = ##class(TECH.PeriodeUtils).GeefHuidigePeriode()
-	
-	#dim Gevonden As %Boolean = 0
-	
-	while ( $$INTDATE^vhLib.DataTypes(Periode,"DM4") '< $$INTDATE^vhLib.DataTypes(EerstePeriode,"DM4") ) && 'Gevonden {
-		if $data(^KAA(Periode,AankoopfactuurID)) {	
-			set Gevonden = 1 
-		} else { 
-			set Periode = ##class(TECH.PeriodeUtils).GeefVorigePeriode(Periode) 
-		}
-	}
-	
-	if 'Gevonden Set Periode = ""
-	
-	Quit Periode
+<Implementation><![CDATA[	quit ^KAA.Index("P", AankoopfactuurID)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefEersteBoekingPeriodeVerkoopFactuur">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $order(^KVE(""))
-]]></Implementation>
-</Method>
-
 <Method name="GeefPeriodeVerkoopFactuur">
 <FormalSpec>VerkoopfactuurID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim EerstePeriode As %Date = ..GeefEersteBoekingPeriodeVerkoopFactuur()
-	
-	; hier bewust voor $H gekozen om problemen met uitgemockte datums te vermijden
-	#dim Periode As %Date = ##class(TECH.PeriodeUtils).GeefPeriode(+$H) 
-	
-	#dim Gevonden As %Boolean = 0
-	
-	while ( $$INTDATE^vhLib.DataTypes(Periode,"DM4") '< $$INTDATE^vhLib.DataTypes(EerstePeriode,"DM4") ) && 'Gevonden {
-		if $data(^KVE(Periode,VerkoopfactuurID)) {	
-			set Gevonden = 1 
-		} else { 
-			set Periode = ##class(TECH.PeriodeUtils).GeefVorigePeriode(Periode) 
-		}
-	}
-	
-	if 'Gevonden Set Periode = ""
-	
-	Quit Periode
+<Implementation><![CDATA[	quit ^KVE.Index("P", VerkoopfactuurID)
 ]]></Implementation>
 </Method>