Index: APPS/VKP/Commissie/impl/CommissieService.cls.xml
===================================================================
diff -u -r31921 -r36449
--- APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 31921)
+++ APPS/VKP/Commissie/impl/CommissieService.cls.xml	(.../CommissieService.cls.xml)	(revision 36449)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>CommissieRepository:DOM.VKP.Commissie.CommissieRepository</FormalSpec>
 <Private>1</Private>
@@ -39,6 +44,7 @@
 	set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	set ..BoekhoudingAPI = ##class(DOM.DomeinContext).Instance().GeefBoekhoudingAPI()
 	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..DataService = ##class(APPS.common.impl.DataService).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -390,12 +396,21 @@
 <Implementation><![CDATA[
 	#dim Commissie As DOM.VKP.impl.Commissie = ##class(DOM.VKP.impl.Commissie).OpenId(CommissieID)
 	If ##class(TECH.StringUtils).Equals(Commissie.Status,
-			##class(DOM.VKP.Commissie.enu.CommissieStatus).Uitgenodigd(),
 			##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurIngeboekt(),
 			##class(DOM.VKP.Commissie.enu.CommissieStatus).AankoopfactuurBetaald()) {
-		Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("U kan deze commissie niet verwijderen, want de aanbrenger was reeds uitgenodigd om een commissiefactuur op te stellen")
+		Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("U kan deze commissie niet verwijderen, want de aanbrenger heeft gereageerd op de uitnodiging")
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
+	
+	If ##class(TECH.StringUtils).Equals(Commissie.Status,##class(DOM.VKP.Commissie.enu.CommissieStatus).Uitgenodigd()) {
+		#dim Verschil As %Integer = ##class(TECH.DateTime).DatumVerschil(Commissie.GoedGekeurdDatum,..DateTimeAPI.CurrentDate())
+		if Verschil<180 {
+			Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("U kan deze commissie niet verwijderen, want de aanbrenger was reeds uitgenodigd om een commissiefactuur op te stellen")
+			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		}
+	}
+		
+	
 	If Reden = "" {
 		Set Exceptie = ##class(TECH.Exceptions.IllegalUsageException).%New("Er moet een reden opgegeven zijn.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
Index: vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml
===================================================================
diff -u -r31921 -r36449
--- vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml	(.../Test.cls.xml)	(revision 31921)
+++ vhUnitTest/APPS/VKP/Commissie/impl/CommissieService/VerwijderCommissie/Test.cls.xml	(.../Test.cls.xml)	(revision 36449)
@@ -62,6 +62,7 @@
 <Implementation><![CDATA[
 	#dim Commissie As DOM.VKP.impl.Commissie = ##class(DOM.VKP.impl.Commissie).OpenId(..TeVerwijderenCommissieID)
 	Set Commissie.Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).Uitgenodigd()
+	Set Commissie.GoedGekeurdDatum = $$$CurrentDate 
 	Do Commissie.Save()
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("U kan deze commissie niet verwijderen, want de aanbrenger was reeds uitgenodigd om een commissiefactuur op te stellen")
@@ -71,6 +72,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestStatusCommissieIsUitgenodigd maar goedkeuringsdatum &gt; 6 maand : verwijdering mag toch gebeuren">
+<Implementation><![CDATA[
+	#dim Commissie As DOM.VKP.impl.Commissie = ##class(DOM.VKP.impl.Commissie).OpenId(..TeVerwijderenCommissieID)
+	Set Commissie.Status = ##class(DOM.VKP.Commissie.enu.CommissieStatus).Uitgenodigd()
+	Set Commissie.GoedGekeurdDatum = $$$CurrentDate - 181
+	Do Commissie.Save()
+	
+	Do ..VerwijderCommissie()
+	
+	Do $$$AssertEqualsList(##class(DOM.DomeinContext).Instance().GeefVerkoopFactuurAPI().GeefFactuur(..#FactuurNr).GeefAanbrengers(),##class(TECH.ListUtils).CreateListOfDataTypes(..#AanbrengerIDBlijvendeCommissie))
+]]></Implementation>
+</Method>
+
 <Method name="Test geen reden opgegeven -&gt; exceptie is gegooid en Commissie is niet verwijderd">
 <Implementation><![CDATA[
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er moet een reden opgegeven zijn.")