Index: DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml
===================================================================
diff -u -r65683 -r65688
--- DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 65683)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004.cls.xml	(.../SpecKostv004.cls.xml)	(revision 65688)
@@ -142,9 +142,11 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsBicolorOpcentiemNodig As %Boolean = $$$False
+	#dim IsZijkant As %Boolean = ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks(), ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts())
+	#dim IsBicolorRelevant As %Boolean = ((IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) || IsZijkant)
 	#dim IsBicolor As %Boolean = ($$$Not(IngegevenKenmerken.LadeBinnenKleur = IngegevenKenmerken.LadeKleur))
 	
-	If ($$$Not(IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OudZwart())) {
+	If IsBicolorRelevant {
 		Set IsBicolorOpcentiemNodig = IsBicolor
 	}
 	
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml
===================================================================
diff -u -r65683 -r65688
--- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml	(.../Test.cls.xml)	(revision 65683)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/TAOR/SpecKostv004/PostProcessTotaalKostItem/Test.cls.xml	(.../Test.cls.xml)	(revision 65688)
@@ -26,7 +26,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test gewone lade">
+<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()
@@ -39,7 +39,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test gewone lade met duo-color">
+<Method name="Test: gewone lade met bicolor">
 <Implementation><![CDATA[
 	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
 	
@@ -55,24 +55,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test gewone lade met duo-color - Afwijking voor OudZwart =&gt; Toch normaal unicolor-percentage">
+<Method name="Test: LosseComponenten - Bicolor met ProductieWijze = Zijkant of Volledig =&gt; opcentiem naar 4 procent">
 <Implementation><![CDATA[
-	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	// Enkel zijkanten kunnen ècht bicolor zijn! In een volledige lade zitten vanzelfsprekend ook zijkanten.
 	
 	#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).OudZwart()
+	Set TaxKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
 	Set TaxKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	#dim AssertEnkelZijkantenEnVolledig As %Boolean = $$$True
 	
-	Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
-	#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+	Do ..AssertKostItemLosseComponenten(AssertEnkelZijkantenEnVolledig, TaxKenmerken, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.04)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LosseComponenten - Bicolor met ProductieWijze = NIET-Zijkant en NIET-Volledig =&gt; Normaal unicolor-percentage van 2 procent">
+<Implementation><![CDATA[
+	// Enkel zijkanten kunnen ècht bicolor zijn! In een volledige lade zitten vanzelfsprekend ook zijkanten.
 	
-	Do ..AssertKostItem(KostItemsIterator, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
-	Do $$$AssertFalse(KostItemsIterator.HasNext())
+	#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()
+	#dim AssertAllesBehalveZijkantenEnVolledig As %Boolean = $$$True
+	
+	Do ..AssertKostItemLosseComponenten($$$Not(AssertAllesBehalveZijkantenEnVolledig), TaxKenmerken, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
 ]]></Implementation>
 </Method>
 
-<Method name="Test sifonlade">
+<Method name="Test: LosseComponenten - NIET-Bicolor met ProductieWijze = Zijkant of Volledig =&gt; Normaal unicolor-percentage van 2 procent">
 <Implementation><![CDATA[
+	#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).NatuurNotenhout()
+	#dim AssertEnkelZijkantenEnVolledig As %Boolean = $$$True
+	
+	Do ..AssertKostItemLosseComponenten(AssertEnkelZijkantenEnVolledig, TaxKenmerken, "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem", 0.02)
+]]></Implementation>
+</Method>
+
+<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()
@@ -86,7 +107,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test dubbele sifonlade">
+<Method name="Test: dubbele sifonlade">
 <Implementation><![CDATA[
 	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
 	
@@ -102,7 +123,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test witte lade voor klant SFS">
+<Method name="Test: witte lade voor klant SFS">
 <Implementation><![CDATA[
 	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||12486"
 
@@ -119,7 +140,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test witte lade voor klant NIET SFS">
+<Method name="Test: witte lade voor klant NIET SFS">
 <Implementation><![CDATA[
 	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
 
@@ -135,7 +156,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie van kracht is">
+<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)
@@ -155,7 +176,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie NIET van kracht is">
+<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)
@@ -174,7 +195,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test grijze lade voor klant SFS indien SFS-kortingactie actief is maar periode is voorbij">
+<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)
@@ -193,7 +214,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test grijze lade voor klant NIET SFS indien SFS-kortingactie van kracht is">
+<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)
@@ -212,7 +233,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie van kracht is">
+<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)
@@ -232,7 +253,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie NIET van kracht is">
+<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)
@@ -251,7 +272,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test zwarte lade voor klant SFS indien SFS-kortingactie actief is maar periode is voorbij">
+<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)
@@ -270,7 +291,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test zwarte lade voor klant NIET SFS indien SFS-kortingactie van kracht is">
+<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)
@@ -302,6 +323,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertKostItemLosseComponenten">
+<FormalSpec>AssertZijkantenEnVolledig:%Boolean,TaxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,VerwachteKlasseNaam:%String,VerwachtePercentage:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IsAssertNodig As %Boolean
+	#dim KlantId As DOM.VKP.VanHoeckeKlantID = "K||1000"
+	#dim IsProductieWijzeZijkantOfVolledig As %Boolean
+	#dim ProductieWijzeIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORProductieWijze).ValueListIterator()
+	
+	While ProductieWijzeIterator.HasNext() {
+		Set TaxKenmerken.ProductieWijze = ProductieWijzeIterator.Next()
+		Set IsProductieWijzeZijkantOfVolledig = ##class(TECH.StringUtils).Equals(TaxKenmerken.ProductieWijze, ##class(DOM.PM.enu.TAORProductieWijze).ZijkantLinks(), ##class(DOM.PM.enu.TAORProductieWijze).ZijkantRechts(), ##class(DOM.PM.enu.TAORProductieWijze).Volledig())
+		Set IsAssertNodig = $$$False
+		
+		If (AssertZijkantenEnVolledig && IsProductieWijzeZijkantOfVolledig) {
+			Set IsAssertNodig = $$$True
+		} ElseIf (($$$Not(AssertZijkantenEnVolledig) && $$$Not(IsProductieWijzeZijkantOfVolledig))) {
+			Set IsAssertNodig = $$$True
+		}
+		
+		If IsAssertNodig {
+			Set TotaalKostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem).%New("")
+			Set ..TotaalKostItem = TotaalKostItem
+			
+			Do ..PostProcessTotaalKostItem(TaxKenmerken, ..GeefKostContext(KlantId))
+			#dim KostItemsIterator As TECH.Iterator = ..TotaalKostItem.GeefKostItemsIterator()
+			
+			Do ..AssertKostItem(KostItemsIterator, VerwachteKlasseNaam, VerwachtePercentage)
+			Do $$$AssertFalse(KostItemsIterator.HasNext())
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="PostProcessTotaalKostItem">
 <FormalSpec>TaxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KostContext:DOM.PM.Maatwerk.Calc.Kost.KostContext=""</FormalSpec>
 <Private>1</Private>