Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml
===================================================================
diff -u -r29907 -r29920
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29907)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29920)
@@ -36,7 +36,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Set ..TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml
===================================================================
diff -u -r29907 -r29920
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 29907)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/BepaalKorttekst/TestLosseComponenten.cls.xml	(.../TestLosseComponenten.cls.xml)	(revision 29920)
@@ -7,81 +7,194 @@
 <Type>DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler</Type>
 </Property>
 
-<Method name="Test: Positie 1">
+<Method name="Test: Positie 1: Prefix">
 <Implementation><![CDATA[
-	#dim ProductieWijzen As TECH.Iterator =  ..GeefLosseComponentProductieWijzeIterator()  
-	while ProductieWijzen.HasNext() {
+	#dim ProductieWijzen As TECH.Iterator = ..GeefLosseComponentProductieWijzeIterator()
+	
+	while (ProductieWijzen.HasNext()) {
 		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ProductieWijzen.Next()
-		continue:ProductieWijze=..Enum.ProductieWijze.Volledig
-		do ..AssertPositie(1,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"T")	
+		continue:(ProductieWijze = ..Enum.ProductieWijze.Volledig)
+		do ..AssertPositie(1, ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "T")	
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 2 - Productiewijze">
+<Method name="Test: Positie 2: Productiewijze">
 <Implementation><![CDATA[
-	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "B")
-	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Zijkant, "Z")
-	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Front, "F")
-	do ..AssertPositie(2,..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Rug, "R")
+	do ..AssertPositie(2, ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "B")
+	do ..AssertPositie(2, ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, "Z")
+	do ..AssertPositie(2, ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantRechts, "Z")
+	do ..AssertPositie(2, ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Front, "F")
+	do ..AssertPositie(2, ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Rug, "R")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 3 - Bodem - KoppelingTypes">
+<Method name="Test: Positie 3: Bodem - KoppelingType">
 <Implementation><![CDATA[
-	Set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
 
-	do ..AssertPositie(3,..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Drevel, "D")
-	do ..AssertPositie(3,..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Schroef, "S")
+	do ..AssertPositie(3, ..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Drevel, "D")
+	do ..AssertPositie(3, ..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Schroef, "S")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 3 - Zijkant, Front, Rug - LadeHoogte">
+<Method name="Test: Positie 3: Zijkant, Front, Rug - LadeHoogte">
 <Implementation><![CDATA[
 	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
 	
 	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.C
-	for ProductieWijze = ..Enum.ProductieWijze.Zijkant,..Enum.ProductieWijze.Front,..Enum.ProductieWijze.Rug {
-		do ..AssertPositie(3,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"C")
+	for ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie(3, ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "C")
 	}
 	
 	set ..TAORKenmerken.LadeHoogte = ..Enum.LadeHoogte.M
-	for ProductieWijze = ..Enum.ProductieWijze.Zijkant,..Enum.ProductieWijze.Front,..Enum.ProductieWijze.Rug {
-		do ..AssertPositie(3,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,"M")
+	for ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie(3, ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "M")
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Positie 4">
 <Implementation><![CDATA[
 	#dim ProductieWijzen As TECH.Iterator = ..GeefLosseComponentProductieWijzeIterator()
-	while ProductieWijzen.HasNext() {
+	
+	while (ProductieWijzen.HasNext()) {
 		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ProductieWijzen.Next()
-		continue:ProductieWijze=..Enum.ProductieWijze.Volledig
-		do ..AssertPositie(4,..Enum.KenmerkNaam.ProductieWijze,ProductieWijze,".")	
+		continue:(ProductieWijze = ..Enum.ProductieWijze.Volledig)
+		do ..AssertPositie(4, ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, ".")	
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 5-9: Bodem, Front, Rug - InterneBreedte links uitgelijnd">
+<Implementation><![CDATA[
+	#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze
+	set ..TAORKenmerken.CorpusBinnenbreedte = 564
+
+	for ProductieWijze = ..Enum.ProductieWijze.Bodem, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie("5-9", ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "564  ")
+	}
+
+	set ..TAORKenmerken.CorpusBinnenbreedte = 1164
+	for ProductieWijze = ..Enum.ProductieWijze.Bodem, ..Enum.ProductieWijze.Front, ..Enum.ProductieWijze.Rug {
+		do ..AssertPositie("5-9", ..Enum.KenmerkNaam.ProductieWijze, ProductieWijze, "1164 ")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 5-9: Zijkant - LadeDiepte en ProductieWijze links of rechts">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks
+	
+	do ..AssertPositie("5-9", ..Enum.KenmerkNaam.LadeDiepte, ..Enum.LadeDiepte.LadeDiepte500, "500LI")
+	do ..AssertPositie("5-9", ..Enum.KenmerkNaam.LadeDiepte, ..Enum.LadeDiepte.LadeDiepte600, "600LI")
+	
+	set ..TAORKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte450
+	
+	do ..AssertPositie("5-9", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, "450LI")
+	do ..AssertPositie("5-9", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantRechts, "450RE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 10-11: Zijkant - spaties">
+<Implementation><![CDATA[	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, "  ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 10-11: Bodem - LadeDiepte in cm">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.LadeDiepte, ..Enum.LadeDiepte.LadeDiepte350, "35")
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.LadeDiepte, ..Enum.LadeDiepte.LadeDiepte500, "50")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 10-11: Front - FrontEindkapKleur">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front
+	
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.FrontEindkapKleur, ..Enum.FrontEindkapKleur.AluminiumLook, "AL")
+	do ..AssertPositie("10-11", ..Enum.KenmerkNaam.FrontEindkapKleur, ..Enum.FrontEindkapKleur.ZwartAluminiumLook, "ZW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 10-11: Rug - Kleur kantenband">
+<Implementation><![CDATA[	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 12-16: Zijkant">
+<Implementation><![CDATA[
+	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, "ZARGE")
+	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantRechts, "ZARGE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 12-16: Bodem">
+<Implementation><![CDATA[	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "BODEN")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 12-16: Front">
+<Implementation><![CDATA[	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Front, "FRONT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 12-16: Rug">
+<Implementation><![CDATA[	do ..AssertPositie("12-16", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Rug, "RUCKW")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 17-17: Bodem - SchroefKoppeling">
+<Implementation><![CDATA[
+	set ..TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem
+	
+	do ..AssertPositie("17-17", ..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Schroef, "S")
+	do ..AssertPositie("17-17", ..Enum.KenmerkNaam.KoppelingType, ..Enum.KoppelingType.Drevel, "D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 18: Spatie">
+<Implementation><![CDATA[
+	do ..AssertPositie("18", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, " ")
+	do ..AssertPositie("18", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, " ")
+	do ..AssertPositie("18", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.ZijkantRechts, " ")
+	do ..AssertPositie("18", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Front, " ")
+	do ..AssertPositie("18", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Rug, " ")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 19-21: Verpakking">
+<Implementation><![CDATA[	//do ..AssertPositie("19-21", ..Enum.KenmerkNaam.ProductieWijze, ..Enum.ProductieWijze.Bodem, "V10")
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositie">
 <FormalSpec>Positie:%String,KenmerkNaam:%String,KenmerkWaarde:%String,VerwachteWaarde:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	set $property(..TAORKenmerken,KenmerkNaam)=KenmerkWaarde
-	Do $$$AssertEquals($Extract(..BepaalKorttekst(), Positie, Positie), VerwachteWaarde)
+	#dim Van As %String = $select(Positie["-": $piece(Positie, "-", 1), 1:Positie)
+	#dim Tot As %String = $select(Positie["-": $piece(Positie, "-", 2), 1:Positie)
+
+	set $property(..TAORKenmerken, KenmerkNaam)=KenmerkWaarde
+	
+	do $$$AssertEquals($extract(..BepaalKorttekst(), Van, Tot), VerwachteWaarde)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLosseComponentProductieWijzeIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	set ProductieWijzen = ##class(%ListOfDataTypes).%New()
-	set Converter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
+	#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()
-	while Iterator.HasNext() {
+	
+	while (Iterator.HasNext()) {
 		do ProductieWijzen.Insert(Converter.Convert(Iterator.Next()))
-	}	
+	}
+		
 	quit ##class(TECH.ListIterator).%New(ProductieWijzen)
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r29907 -r29920
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 29907)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 29920)
@@ -8,202 +8,64 @@
 <Default>T</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Property Lade As DOM.PM.Maatwerk.LadeInfo.Lade [ Private ];
-
-]]></Content>
-</UDLText>
-
 <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 %String = ""
+	#dim Korttekst As TECH.String = ""
 	
-	Set $Extract(Korttekst, 1) = "T"
-	Set $Extract(Korttekst, 2) = $Extract(TAORKenmerken.ProductieWijze)
-	if TAORKenmerken.ProductieWijze=..Enum.ProductieWijze.Bodem {
-		set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.KoppelingType)
+	set $extract(Korttekst, 1) = "T"
+	set $extract(Korttekst, 2) = $extract(TAORKenmerken.ProductieWijze)
+	
+	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		set $extract(Korttekst, 3) = $extract(TAORKenmerken.KoppelingType)
 	} else {
-		Set $Extract(Korttekst, 3) = $Extract(TAORKenmerken.LadeHoogte)
+		set $extract(Korttekst, 3) = $extract(TAORKenmerken.LadeHoogte)
 	}
 	
-	Set $Extract(Korttekst, 4) = "."
+	set $extract(Korttekst, 4) = "."
 	
-	set Korttekst = ##class(TECH.StringUtils).AddTrailingSpace(Korttekst,25)
-	Quit Korttekst
+	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")
+	} else {
+		set $extract(Korttekst, 5, 9) = TAORKenmerken.InterneBreedte
+	}
 	
-
-	#Dim Code As TECH.String = ""
-	#Dim Omschrijving As TECH.String = ""
-	#Dim Kleur As TECH.String = ""
-	
-	// kan in visitor
-	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
-		Set Code = ..GeefCodeVoorBodem()
-		//Set Omschrijving = ..GeefOmschrijvingVoorBodem()
-		//Set Kleur = ..GeefKleurVoorBodem()
-		
-		//Set LosseComponentSpecifiek = ..GeefKorttekstDeelBodem(HalffabItemsBoom, TAORKenmerken, Verpakking)
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
-	
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
-		
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Zijkant()) {
-		
+	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
+	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
+		set $extract(Korttekst, 10, 11) = "  "
 	}
 	
-	Quit Code _ Omschrijving _ Kleur
-	
-	
-	
-	/*
-	#Dim Prefix As TECH.String = "T"
-	#Dim LosseComponentSpecifiek As TECH.String = ""
-	#Dim Verpakking As TECH.String = "V10" // todo MVI: V10, V5 of V3 op basis van de afmetingen van het losse component
-	
-	
-	/////////////////////////////
-	;Set ..Lade = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New().GeefLade(HalffabItemsBoom, TAORKenmerken)
-	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeInfoAPI.GeefLade(HalffabItemsBoom, TAORKenmerken)
-	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
-	/////////////////////////////
-	
-	
-	#Dim Code As TECH.String = ""
-	
-	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
-		Set Code = ..GeefCodeVoorBodem()
-		
-		//Set LosseComponentSpecifiek = ..GeefKorttekstDeelBodem(HalffabItemsBoom, TAORKenmerken, Verpakking)
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Rug()) {
-		Set LosseComponentSpecifiek = ..GeefKorttekstDeelRug(HalffabItemsBoom, TAORKenmerken, Verpakking)
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Front()) {
-		Set LosseComponentSpecifiek = ..GeefKorttekstDeelFront(HalffabItemsBoom, TAORKenmerken, Verpakking)
-	} ElseIf (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Zijkant()) {
-		Set LosseComponentSpecifiek = ..GeefKorttekstDeelZijkant(HalffabItemsBoom, TAORKenmerken, Verpakking)
+	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		set $extract(Korttekst, 12, 16) = "BODEN"
+	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
+		set $extract(Korttekst, 12, 16) = "FRONT"
+	} elseif (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
+		set $extract(Korttekst, 12, 16) = "RUCKW"
+	} elseif (##class(TECH.StringUtils).Equals(TAORKenmerken.ProductieWijze, ..Enum.ProductieWijze.ZijkantLinks, ..Enum.ProductieWijze.ZijkantRechts)) {
+		set $extract(Korttekst, 12, 16) = "ZARGE"
 	}
 	
-	Quit Prefix _ TAORKenmerken.ProductieWijze _ LosseComponentSpecifiek
-	*/
-]]></Implementation>
-</Method>
-
-<Method name="GeefCodeVoorBodem">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Code As TECH.String = ""
+	if (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		set $extract(Korttekst, 17, 17) = $extract(TAORKenmerken.KoppelingType)
+	} else {
+		set $extract(Korttekst, 17, 17) = " "
+	} 
 	
-	Set Code = Code _ ..#Prefix
-	Set Code = Code _ $Extract(TAORKenmerken.ProductieWijze)
+	set $extract(Korttekst, 18, 18) = " "
 	
-	Quit Code
-]]></Implementation>
-</Method>
-
-<Method name="GeefKorttekstDeelFront">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Verpakking:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit TAORKenmerken.LadeHoogte
-]]></Implementation>
-</Method>
-
-<Method name="GeefKorttekstDeelBodem">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Verpakking:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim KoppelingType As TECH.String = $Extract(TAORKenmerken.KoppelingType, 1)
-	#Dim LadeDiepte As TECH.String = TAORKenmerken.LadeDiepte * 10 
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat()
-	#Dim LadeOnderdeelType As DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem()
-	#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New().GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, Rol, LadeOnderdeelType)
+	set Korttekst = ##class(TECH.StringUtils).AddTrailingSpace(Korttekst, 25)
 	
-	#Dim KleurenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(LadeOnderdeel.GeefKleuren())
-		
-	While (KleurenIterator.HasNext()) {
-		w !, "==> KleurenIterator: " _ KleurenIterator.Next()
-	}
-
-
-
-	//.GeefLadeOnderdeel(ClassName, HalffabItemsBoom, TAORKenmerken, "Bodem")
-	
-	/////////////////////////////
-	/*#Dim BinnenkantKleur As TECH.String = TAORKenmerken.LadeKleur // todo MVI: kleuren verder uitklaren	
-	#Dim BodemIterator As TECH.Iterator =  ..Lade.GeefBodemIterator()
-	While (BodemIterator.HasNext()) {
-		#Dim Bodem As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem = BodemIterator.Next()
-		
-		w !, "--> BodemIterator: " _ Bodem
-		w !, "==> Kleur: " _ Bodem.GeefKleur()
-		
-		#Dim KleurenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Bodem.GeefKleuren())
-		While (KleurenIterator.HasNext()) {
-			w !, "==> KleurenIterator: " _ KleurenIterator.Next()
-		}
-	}*/
-	/////////////////////////////
-	
-
-	Quit KoppelingType _ "." _ ..GeefInterneBreedte(TAORKenmerken) _ " " _ LadeDiepte _ "BODEN" _ KoppelingType _ " " _ Verpakking _ "  " //_ LadeOnderdeel.GeefKleuren()
+	quit Korttekst
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKorttekstDeelRug">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Verpakking:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim InterneBreedte As TECH.String = ##class(TECH.StringUtils).AddTrailingSpace(TAORKenmerken.InterneBreedte, 4)
-	#Dim KantenbandKleur As TECH.String = "  "
-
-	Quit TAORKenmerken.LadeHoogte _ "." _ ..GeefInterneBreedte(TAORKenmerken) _ " " _ KantenbandKleur _ "RUCKW"  _ "  " _ Verpakking _ "  " //_ LadeOnderdeel.GeefKleuren()
-]]></Implementation>
-</Method>
-
-<Method name="GeefKorttekstDeelZijkant">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Verpakking:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	//#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat())
-	
-	// todo MVI: LI of RE nog bepalen
-	Quit TAORKenmerken.LadeHoogte _ "." _ TAORKenmerken.LadeDiepte _ "LI" _ "  " _ "ZARGE" _ "  " _ Verpakking //_ LadeOnderdeel.GeefKleuren()
-]]></Implementation>
-</Method>
-
-<Method name="GeefInterneBreedte">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).AddTrailingSpace(TAORKenmerken.InterneBreedte, 4)
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*Method GeefLadeOnderdeel(HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom, TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken, Rol As TECH.String) As DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel [ Private ]
-{
-	#Dim HalffabItem = HalffabItemsBoom.GeefHalffabItem(Rol)
-	;#Dim Lade As DOM.PM.Maatwerk.LadeInfo.impl.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
-	;#Dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten())
-	;#Dim Front As DOM.PM.Maatwerk.LadeInfo.Front 
-	
-	;While (Iterator.HasNext()) {
-	;	Set Front = Iterator.Next()
-	;}
-	
-	;Quit Front
-	Quit ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Bodem).%New(, HalffabItem, TAORKenmerken)
-}*/
-]]></Content>
-</UDLText>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml
===================================================================
diff -u -r29897 -r29920
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 29897)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 29920)
@@ -20,7 +20,7 @@
 	Do $$$AssertEquals(..Converter.Convert(..Enum.LosseComponent.Bodem), ..Enum.ProductieWijze.Bodem)
 	Do $$$AssertEquals(..Converter.Convert(..Enum.LosseComponent.Front), ..Enum.ProductieWijze.Front)
 	Do $$$AssertEquals(..Converter.Convert(..Enum.LosseComponent.Rug), ..Enum.ProductieWijze.Rug)
-	Do $$$AssertEquals(..Converter.Convert(..Enum.LosseComponent.Zijkant), ..Enum.ProductieWijze.Zijkant)
+	Do $$$AssertEquals(..Converter.Convert(..Enum.LosseComponent.Zijkant), ..Enum.ProductieWijze.ZijkantLinks)
 ]]></Implementation>
 </Method>