Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml
===================================================================
diff -u -r57367 -r63777
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml	(.../Test.cls.xml)	(revision 57367)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml	(.../Test.cls.xml)	(revision 63777)
@@ -16,11 +16,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+ 	Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel("SfsTaxKortingActie_IsActief", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel("SfsTaxKortingActie_StartMoment", ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().WisSleutel("SfsTaxKortingActie_EindMoment", ..#Applicatie)
+ 	
+ 	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test gewone lade">
 <Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
 	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	
-	Do ..PostProcessTotaalKostItem(TaxKenmerken)
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
 	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
 	
 	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
@@ -30,11 +41,13 @@
 
 <Method name="Test gewone lade met duo-color">
 <Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	
 	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	Do ..PostProcessTotaalKostItem(TaxKenmerken)
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
 	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
 	
 	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.04)
@@ -44,10 +57,12 @@
 
 <Method name="Test sifonlade">
 <Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	
 	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	Set TaxKenmerken.Toepassing = ##class(DOM.PM.enu.TAORToepassing).Sifon()
 	
-	Do ..PostProcessTotaalKostItem(TaxKenmerken)
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
 	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
 
 	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem", 0.02)
@@ -57,11 +72,13 @@
 
 <Method name="Test dubbele sifonlade">
 <Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	
 	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	Set TaxKenmerken.Toepassing = ##class(DOM.PM.enu.TAORToepassing).Sifon()
 	Set TaxKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
 	
-	Do ..PostProcessTotaalKostItem(TaxKenmerken)
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
 	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
 
 	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.TaxVerdubbelingEnProcentueelKostItem", 0.02)
@@ -102,6 +119,160 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", -0.153)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie NIET van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$False, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie actief is maar periode is voorbij">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-3, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog-1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test grijze lade voor klant NIET SFS indien SFS-kortingactie van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", -0.153)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie NIET van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$False, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie actief is maar periode is voorbij">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-3, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog-1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test zwarte lade voor klant NIET SFS indien SFS-kortingactie van kracht is">
+<Implementation><![CDATA[
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("SfsTaxKortingActie_IsActief", $$$True, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_StartMoment", $Horolog-1, ..#Applicatie)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("SfsTaxKortingActie_EindMoment", $Horolog+1, ..#Applicatie)
+
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	
+	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+
+	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+	Do $$$AssertFalse(KostItemsIterator.HasNext())
+]]></Implementation>
+</Method>
+
 <Method name="AssertKostItem">
 <FormalSpec>KostItemsIterator:TECH.Iterator,VerwachteKlasseNaam:%String,VerwachtePercentage:%Decimal</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml
===================================================================
diff -u -r57365 -r63777
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 57365)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 63777)
@@ -57,7 +57,7 @@
 	Set:($$$Not(IngegevenKenmerken.LadeBinnenKleur = IngegevenKenmerken.LadeKleur)) Procent = 4	
 	
 	If (..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
-		If ..IsWitteLadeVoorSfs(Context, IngegevenKenmerken) {
+		If (..IsVoorSfs(Context) && ..IsSfsKortingNodig(IngegevenKenmerken)) {
 			Set Procent = -13.3
 		}
 		Set Naam = "TAX Sifonlade Extra kost + Rework " _ Procent _ "%"
@@ -77,7 +77,7 @@
 	} Else {
 		Do ..ZetProcentueelKostItemEnVoegToeAanTotaalKostItem(Procent, TotaalKostItem)
 		
-		If ..IsWitteLadeVoorSfs(Context, IngegevenKenmerken) {
+		If (..IsVoorSfs(Context) && ..IsSfsKortingNodig(IngegevenKenmerken)) {
 			Set DecimaalPercentage = Procent / 100         ; Rework 2% of 4% 
 			Set Procent = -15 * (1 + DecimaalPercentage)   ; NietCumulatievePercentageWitteTaxLade = PercentageWitteTaxLade * (1+PercentageRework)
 			Do ..ZetProcentueelKostItemEnVoegToeAanTotaalKostItem(Procent, TotaalKostItem)
@@ -100,39 +100,84 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsWitteLadeVoorSfs">
-<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Method name="IsVoorSfs">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsWitteLadeVoorSfs As %Boolean = $$$False
+	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Context.GeefBerekeningsSpecificatie()
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = BerekeningsSpecificatie.GeefKlantID()
 	
-	If (..IsWitteLade(IngegevenKenmerken) && ..IsVoorSfs(Context)) {
-		Set IsWitteLadeVoorSfs = $$$True
+	Quit (KlantId = ##class(DOM.VKP.enu.Klant).SFS())
+]]></Implementation>
+</Method>
+
+<Method name="IsSfsKortingNodig">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsSfsKortingNodig As %Boolean = $$$False
+	
+	If (..IsWitteLade(IngegevenKenmerken) || ..IsSfsKortingActie(IngegevenKenmerken)) {
+		Set IsSfsKortingNodig = $$$True
 	}
 	
 	
-	Quit IsWitteLadeVoorSfs
+	Quit IsSfsKortingNodig
 ]]></Implementation>
 </Method>
 
-<Method name="IsVoorSfs">
-<FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext</FormalSpec>
+<Method name="IsWitteLade">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit())
+]]></Implementation>
+</Method>
+
+<Method name="IsSfsKortingActie">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Context.GeefBerekeningsSpecificatie()
-	#dim KlantId As DOM.VKP.VanHoeckeKlantID = BerekeningsSpecificatie.GeefKlantID()
+	#dim IsSfsKortingActie As %Boolean = $$$False
 	
-	Quit (KlantId = ##class(DOM.VKP.enu.Klant).SFS())
+	#dim ConfigManager As TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	Set DateTimeApi = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	#dim Nu As %String = DateTimeApi.CurrentHorolog()
+	
+	#dim IsActiefSleutel As %String = "SfsTaxKortingActie_IsActief"
+	#dim StartMomentSleutel As %String = "SfsTaxKortingActie_StartMoment"
+	#dim EindMomentSleutel As %String = "SfsTaxKortingActie_EindMoment"
+	#dim StartMomentWaarde, EindMomentWaarde As %String
+	#dim IsActieStatusActief As %Boolean = $$$False
+	
+	If (ConfigManager.BestaatSleutel(IsActiefSleutel)){
+		Set IsActieStatusActief = ConfigManager.GeefBoolean(IsActiefSleutel)
+	}
+	
+	If (IsActieStatusActief && ConfigManager.BestaatSleutel(StartMomentSleutel) && ConfigManager.BestaatSleutel(EindMomentSleutel)) {
+		Set StartMomentWaarde = ConfigManager.GeefString(StartMomentSleutel)
+		Set EindMomentWaarde = ConfigManager.GeefString(EindMomentSleutel)
+		
+		If (DateTimeApi.HorologIsGroterDan(Nu, StartMomentWaarde) && DateTimeApi.HorologIsGroterDan(EindMomentWaarde, Nu)) {
+			Set IsSfsKortingActie = ..IsGrijzeOfZwarteLade(IngegevenKenmerken)
+		}
+	}
+	
+	Quit IsSfsKortingActie
 ]]></Implementation>
 </Method>
 
-<Method name="IsWitteLade">
+<Method name="IsGrijzeOfZwarteLade">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit())
+<Implementation><![CDATA[
+	Quit:(IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OnyxGrijs()) $$$True
+	Quit:(IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()) $$$True
+	Quit $$$False
 ]]></Implementation>
 </Method>
 </Class>