Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml
===================================================================
diff -u -r58556 -r65435
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 58556)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 65435)
@@ -52,6 +52,7 @@
 	Set UitvoeringInfo.KantenbandData.KleurOnder = ..KleurBepaler.Bepaal(..LadeOnderdeel, ..KantenbandRol.Onder)
 	Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeel.GeefRol()	
 	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(..LadeOnderdeel.GeefLade().GeefKleur())
+	Set UitvoeringInfo.KantenbandData.LadeKleur = ..LadeOnderdeel.GeefLade().GeefKleur()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml
===================================================================
diff -u -r59117 -r65435
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 59117)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 65435)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeKleurEnum">
+<Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KantenbandEnum">
 <Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
 <Private>1</Private>
@@ -88,7 +93,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: KleurCodes wit en zwart worden geconverteerd">
+<Method name="Test: KleurCodes wit en zwart en LadeKleur OudZwart worden geconverteerd">
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
@@ -97,6 +102,9 @@
 	
 	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.Zwart
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage", "Z8")
+	
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.OudZwart
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage", "S")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml
===================================================================
diff -u -r58556 -r65435
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 58556)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 65435)
@@ -50,6 +50,7 @@
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.KleurOnder, RandomKantenbandKleur)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Rol, RandomRol)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.PlaatAfwerking, RandomPlaatAfwerking)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.LadeKleur, RandomLadeKleur)
 	
 	Do LadeOnderdeelMock.Verifieer()
 	Do LadeMock.Verifieer()
Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r59117 -r65435
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 59117)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 65435)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeKleur">
+<Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Passage">
 <Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
 <Private>1</Private>
@@ -72,8 +77,7 @@
 		#dim KantenbandAfwerking As DOM.PM.enu.TAORPlaatAfwerking
 		Set KantenbandAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(KantenbandKleur)
 		
-		Set:(KantenbandKleur = ..Kleur.Wit) KantenbandKleur = "W1"
-		Set:(KantenbandKleur = ..Kleur.Zwart) KantenbandKleur = "Z8"
+		Set KantenbandKleur = ..GeefGeconverteerdeKantenbandKleur(KantenbandKleur, KantenbandData.LadeKleur)
 		
 		Set Kantenband = KantenbandKleur _ ..DikteCodeBepaler.BepaalCode(KantenbandAfwerking) _ ..BreedteCodeBepaler.BepaalCode(KantenbandAfwerking)
 	}
@@ -91,6 +95,21 @@
 	Quit $$$Not(KantenBandProgramma.IsDoorvoer())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGeconverteerdeKantenbandKleur">
+<FormalSpec>KantenbandKleur:DOM.PM.enu.TAORKantenbandKleur,LadeKleur:DOM.PM.enu.TAORLadeKleur</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeKantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = KantenbandKleur
+	
+	Set:(KantenbandKleur = ..Kleur.Wit) GeconverteerdeKantenbandKleur = "W1"
+	Set:(KantenbandKleur = ..Kleur.Zwart) GeconverteerdeKantenbandKleur = "Z8"
+	Set:(LadeKleur = ..LadeKleur.OudZwart) GeconverteerdeKantenbandKleur = "S"
+	
+	Quit GeconverteerdeKantenbandKleur
+]]></Implementation>
+</Method>
 </Class>