Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml
===================================================================
diff -u -r54388 -r65433
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml	(.../HFKantenBandFrontv000.cls.xml)	(revision 54388)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFKantenBandFrontv000.cls.xml	(.../HFKantenBandFrontv000.cls.xml)	(revision 65433)
@@ -23,7 +23,7 @@
 	#dim SelectieKenmerken As %ArrayOfDataTypes = ##super(IngegevenKenmerken)
  	
  	If (IngegevenKenmerken.IsBinnenlade) {
- 		Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeKleur, "LadeKleur")
+ 		Do SelectieKenmerken.SetAt(..GeefKleurVoorKantenbandFront(IngegevenKenmerken), "LadeKleur")
  	}
  	
 	Quit SelectieKenmerken
@@ -37,6 +37,21 @@
 <Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKleurVoorKantenbandFront">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim KleurVoorKantenbandFront As %String = IngegevenKenmerken.LadeKleur
+	
+	If (IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).OudZwart()) {
+		Set KleurVoorKantenbandFront = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	}
+	
+	Quit KleurVoorKantenbandFront
+]]></Implementation>
+</Method>
 </Class>