Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml
===================================================================
diff -u -r30414 -r30622
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30414)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30622)
@@ -137,6 +137,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 10-11: Rug - Kleur kantenband - Rechtse uitlijnen">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.Zwart, " S")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Positie 12-16: Zijkant">
 <Implementation><![CDATA[
 	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, "ZARGE")
@@ -199,7 +207,7 @@
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
 	
 	do ..AssertPositie("22-23", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.NatuurEikenhout, "NE")
-	do ..AssertPositie("22-23", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.NatuurNotenhout, "NN")
+	do ..AssertPositie("22-23", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.Zwart, " S")
 
 	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
 	
@@ -235,6 +243,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 24-25: Binnenkantkleur - Rechtse uitlijning">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.LadeKleur = ..Enum.LadeKleur.Zwart
+	set ..TAORKenmerken.BodemKleur = ..Enum.BodemKleur.Wit
+
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
+	
+	for ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie("24-25", ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, " S")
+	}	
+	
+	for ProductieWijze = ..Enum.ProductieWijze.Bodem {
+		do ..AssertPositie("24-25", ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, " W")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositie">
 <FormalSpec>Positie:%String,KenmerkNaam:%String,KenmerkWaarde:%String,VerwachteWaarde:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r30340 -r30622
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 30340)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 30622)
@@ -77,7 +77,7 @@
 		set $extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).ToUpper(FrontEindkapKleurCode)
 	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
 		#dim Rug As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, ..Enum.LosseComponent.Rug)
-		set $extract(Korttekst, 10, 11) = ..GeefKantenbandKleur(Rug)
+		set $extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).AlignRight(..GeefKantenbandKleur(Rug)," ",2)
 	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
 		set $extract(Korttekst, 10, 11) = "  "
 	}
@@ -104,8 +104,8 @@
 	set $extract(Korttekst, 19, 21) = "V" _ ..BestelService.GeefBestelEenheid(TAORKenmerken)
 	
 	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, ..ProductieWijzeNaarLosseComponentConverter.Convert(TAORKenmerken.ProductieWijze))
-	set $extract(Korttekst, 22, 23) = LosseComponent.GeefKleuren().GetAt(2)
-	set $extract(Korttekst, 24, 25) = LosseComponent.GeefKleuren().GetAt(1) 
+	set $extract(Korttekst, 22, 23) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(2)," ",2)
+	set $extract(Korttekst, 24, 25) = ##class(TECH.StringUtils).AlignRight(LosseComponent.GeefKleuren().GetAt(1)," ",2)
 	
 	quit Korttekst
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml
===================================================================
diff -u -r30115 -r30622
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30115)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30622)
@@ -34,13 +34,18 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
+	do ##super(aTestName)
 	set ..BestelService = ##class(vhTest.Fake.DOM.VKP.Maatwerk.BestelService).%New()
-	
 	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>