Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml
===================================================================
diff -u -r29920 -r30115
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29920)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30115)
@@ -9,33 +9,38 @@
 <Default>abc</Default>
 </Parameter>
 
-<Property name="Korttekst">
-<Type>TECH.String</Type>
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KorttekstBepaler">
 <Type>DOM.PM.Maatwerk.Lade.KorttekstBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Korttekst">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TAORKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	
-	Set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New()
-]]></Implementation>
-</Method>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
+	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>
@@ -51,12 +56,9 @@
 <Implementation><![CDATA[
 	#Dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Halux()
 	#Dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	#Dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, Klant, Personality)
-	#Dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..TAORKenmerken.GeefFamilie(), ..TAORKenmerken.GeefVariant(), BerekeningsSpecificatie)
-	
-	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, ..TAORKenmerken)
-	
-	Quit ..KorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TAORKenmerken, HalffabContext.HalffabItemsBoom)
+	Set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New(,..BestelService)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(..TAORKenmerken,1,Klant,Personality)
+	Quit ..KorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TAORKenmerken, HalffabItemsBoom)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r29907 -r30115
--- DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 29907)
+++ DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 30115)
@@ -3,6 +3,30 @@
 <Class name="DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler">
 <Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
 
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI,BestelService:DOM.VKP.Maatwerk.BestelService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKorttekst">
 <FormalSpec>DossierNummer:TECH.String,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
@@ -12,7 +36,7 @@
 	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) {
 		Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler).%New()
 	} Else {
-		Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler).%New()
+		Set KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler).%New(..LadeInfoAPI,..BestelService)
 	}
 	
 	Quit KorttekstBepaler.BepaalKorttekst(DossierNummer, TAORKenmerken, HalffabItemsBoom)
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r29920 -r30115
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 29920)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 30115)
@@ -8,12 +8,44 @@
 <Default>T</Default>
 </Parameter>
 
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieWijzeNaarLosseComponentConverter">
+<Type>DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI,BestelService:DOM.VKP.Maatwerk.BestelService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI, ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
+	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKorttekst">
 <FormalSpec>DossierNummer:TECH.String,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim Korttekst As TECH.String = ""
 	
+	set $piece(Korttekst," ",25)=""
+	
 	set $extract(Korttekst, 1) = "T"
 	set $extract(Korttekst, 2) = $extract(TAORKenmerken.ProductieWijze)
 	
@@ -24,25 +56,29 @@
 	}
 	
 	set $extract(Korttekst, 4) = "."
-	
+
 	if (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
 		set $extract(Korttekst, 5, 7) = TAORKenmerken.LadeDiepte 
-		set $extract(Korttekst, 8, 9) = $case(TAORKenmerken.ProductieWijze,..Enum.ProductieWijze.ZijkantLinks:"LI",..Enum.ProductieWijze.ZijkantRechts:"RE")
+		set $extract(Korttekst, 8, 9) = $case(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks:"LI", ..Enum.ProductieWijze.ZijkantRechts:"RE")
 	} else {
 		set $extract(Korttekst, 5, 9) = TAORKenmerken.InterneBreedte
 	}
 	
+
+	
 	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
 		set $extract(Korttekst, 10, 11) = TAORKenmerken.LadeDiepte * 10
 	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
 		#dim FrontEindkapKleurCode As TECH.String = $extract(##class(DOM.PM.enu.TAORFrontEindkapKleur).LogicalToDisplay(TAORKenmerken.FrontEindkapKleur), 1, 2)
 		set $extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).ToUpper(FrontEindkapKleurCode)
 	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
-		// set kleur van de kantenband
+		#dim Rug As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, ..Enum.LosseComponent.Rug)
+		set $extract(Korttekst, 10, 11) = ..GeefKantenbandKleur(Rug)
 	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
 		set $extract(Korttekst, 10, 11) = "  "
 	}
 	
+	
 	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
 		set $extract(Korttekst, 12, 16) = "BODEN"
 	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
@@ -61,11 +97,51 @@
 	
 	set $extract(Korttekst, 18, 18) = " "
 	
-	set Korttekst = ##class(TECH.StringUtils).AddTrailingSpace(Korttekst, 25)
+	set $extract(Korttekst, 19, 21) = "V" _ ..BestelService.GeefBestelEenheid(TAORKenmerken)
 	
 	quit Korttekst
+	
+	#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)
+	
+	quit Korttekst
+	
+	
+	set $extract(Korttekst, 24, 25) = ..GeefBinnenkantKleur(TAORKenmerken, HalffabItemsBoom)
+	
+	quit Korttekst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKantenbandKleur">
+<FormalSpec>Rug:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORLadeKleur</ReturnType>
+<Implementation><![CDATA[	quit Rug.GeefKleuren().GetAt(3)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuitenkantKleur">
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORLadeKleur</ReturnType>
+<Implementation><![CDATA[	quit Zijkant.GeefKleuren().GetAt(2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenkantKleur">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.TAORLadeKleur</ReturnType>
+<Implementation><![CDATA[
+	#dim Converter As DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
+	#dim LosseComponent As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LadeInfoAPI.GeefLosseComponent(HalffabItemsBoom, TAORKenmerken, Converter.Convert(TAORKenmerken.ProductieWijze))
+	
+	quit LosseComponent.GeefKleuren().GetAt(1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml
===================================================================
diff -u -r29926 -r30115
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 29926)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 30115)
@@ -7,6 +7,14 @@
 <Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(TestName)
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Positie 1: Prefix">
 <Implementation><![CDATA[
 	#dim ProductieWijzen As TECH.Iterator = ..GeefLosseComponentProductieWijzeIterator()
@@ -122,7 +130,10 @@
 </Method>
 
 <Method name="Test: Positie 10-11: Rug - Kleur kantenband">
-<Implementation><![CDATA[	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+	
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.NebraskaEikenhout, "E2")
 ]]></Implementation>
 </Method>
 
@@ -168,10 +179,54 @@
 </Method>
 
 <Method name="Test: Positie 19-21: Verpakking">
-<Implementation><![CDATA[	//do ..AssertPositie("19-21", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "V10")
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	set ..BestelService = ##class(vhTest.Mock.DOM.VKP.Maatwerk.BestelService).%New()
+	
+	do ..BestelService.IndienMethodCall("GeefBestelEenheid", ..TAORKenmerken).DanReturn(10)	
+	do ..AssertPositie("19-21", ..Enum.KenmerkNaam.VerpakkingType, ..Enum.VerpakkingType.LosseComponentenInBulk, "V10")
+	
+	do ..BestelService.IndienMethodCall("GeefBestelEenheid", ..TAORKenmerken).DanReturn(5)	
+	do ..AssertPositie("19-21", ..Enum.KenmerkNaam.VerpakkingType, ..Enum.VerpakkingType.LosseComponentenInBulk, "V5 ")
+	
+	do ..BestelService.IndienMethodCall("GeefBestelEenheid", ..TAORKenmerken).DanReturn(3)	
+	do ..AssertPositie("19-21", ..Enum.KenmerkNaam.VerpakkingType, ..Enum.VerpakkingType.LosseComponentenInBulk, "V3 ")
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method "Test: Positie 22-23: Zijkant - Buitenkantkleur"()
+{
+	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")
+
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts
+	
+	do ..AssertPositie("22-23", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.NatuurEikenhout, "NE")
+	do ..AssertPositie("22-23", ..Enum.KenmerkNaam.LadeKleur, ..Enum.LadeKleur.NatuurNotenhout, "NN")
+}
+
+Method "Test: Positie 22-23: Bodem, Front, Rug - Spaties"()
+{
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
+	
+	for ProductieWijze = ..Enum.ProductieWijze.Bodem, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie("22-23", ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "  ")
+	}
+}
+
+Method "Test: Positie 24-25: Binnenkantkleur"()
+{
+}
+
+*/
+]]></Content>
+</UDLText>
+
 <Method name="AssertPositie">
 <FormalSpec>Positie:%String,KenmerkNaam:%String,KenmerkWaarde:%String,VerwachteWaarde:%String</FormalSpec>
 <Private>1</Private>
@@ -191,7 +246,7 @@
 <Implementation><![CDATA[
 	#dim ProductieWijzen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim Converter As DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
-	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).ValueListIterator()
+	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ValueListIterator()
 	
 	while (Iterator.HasNext()) {
 		do ProductieWijzen.Insert(Converter.Convert(Iterator.Next()))