Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml
===================================================================
diff -u -r40062 -r40777
--- APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 40062)
+++ APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 40777)
@@ -51,8 +51,9 @@
 </Method>
 
 <Method name="KeurCommissiesGoed">
+<Description>
+Deze wordt gebruikt door de powertool.</Description>
 <FormalSpec>CommissieIDs:%ListOfDataTypes</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	Set itCommissies = ##class(TECH.ListIterator).%New(CommissieIDs)
 	While itCommissies.HasNext() {
@@ -346,10 +347,7 @@
 	}
 	
 	if $length(Commissie.Aankoopfactuur) {
-		#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur)
 		set dtoCommissie.Aankoopfactuur = Commissie.Aankoopfactuur
-		set dtoCommissie.DatumAankoopfactuur = Aankoopfactuur.GeefDatum()
-		set dtoCommissie.DatumAankoopfactuurVoldaan = Aankoopfactuur.GeefDatumVoldaan()
 	}
 
 
@@ -473,16 +471,21 @@
 	
 	if $length(Commissie.Aankoopfactuur) {
 		set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurIngeboekt()
-		If ..BoekhoudingAPI.BestaatAankoopFactuur(Commissie.Aankoopfactuur) {
-			#dim Aankoopfactuur As DOM.BKH.AankoopFactuur = ..BoekhoudingAPI.GeefAankoopFactuur(Commissie.Aankoopfactuur)
-			if Aankoopfactuur.IsVoldaan() set Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurBetaald()
-		}
 	}	
 	
 	quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="IsAankoopFactuurDieWaarschijnlijkInAXZit">
+<Description>
+Aankoopfacturen vanaf 1/7/2016 zitten niet meer in Admin. Dus Admin kan niet zomaar nagaan of ze bestaan en reeds betaald zijn.</Description>
+<FormalSpec>AankoopfactuurID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not(..BoekhoudingAPI.BestaatAankoopFactuur( AankoopfactuurID ))
+]]></Implementation>
+</Method>
+
 <Method name="KeurGoedCommissiesEnGeefNieuweDetails">
 <FormalSpec>CommissieIDs:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.VKP.Commissie.dto.CommissieLijst</ReturnType>