Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/Standaard/Test.cls.xml	(revision 30180)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.TAORLangtekstCreator.Standaard.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="LangtekstCreator">
+<Type>DOM.PM.impl.TAORLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..LangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
+	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard hoofding start met &apos;TA&apos;OR BOX &apos;">
+<Implementation><![CDATA[
+	#dim Hoofding As TECH.String = ..MaakStandaardHoofding()
+	
+	do $$$AssertEquals($Extract(Hoofding, 1, 10), "TA'OR BOX ")
+]]></Implementation>
+</Method>
+
+<Method name="MaakStandaardHoofding">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, Taal)
+	
+	quit Langtekst.GeefHoofding()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29967 -r30180
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 29967)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 30180)
@@ -18,30 +18,47 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BodemSlicedTypeBepaler">
 <Type>zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</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.impl.LadeInfoAPI</FormalSpec>
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</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 ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+	set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
+	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
 	
-	Quit $$$OK
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLangtekst">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
-	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken)	
+	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken)
 	
 	Quit ##super(IngegevenKenmerken, HalffabItemsBoom, Taal)
 ]]></Implementation>
@@ -50,37 +67,128 @@
 <Method name="BepaalHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..LangtekstHoofding = "TA'OR BOX "
-	Set ..LangtekstHoofding = ..LangtekstHoofding _	$Select(..IngegevenKenmerken.IsBinnenlade:..Vertaler.GeefVertaling("Binnenlade"), 1:..Vertaler.GeefVertaling("Lade"))
-	Set ..LangtekstHoofding = ..LangtekstHoofding _	" " _ ..IngegevenKenmerken.LadeHoogte
+	set ..LangtekstHoofding = "TA'OR BOX "
+	
+	if ((..IngegevenKenmerken.ProductieWijze = "") && $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk)) {
+		set ..LangtekstHoofding = ..LangtekstHoofding _ ..BepaalStandaardHoofding()	
+	} else {
+		set ..LangtekstHoofding = ..LangtekstHoofding _ ..BepaalLosseComponentHoofding()	
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalStandaardHoofding">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoofding As TECH.String = ""
+	
+	set Hoofding = Hoofding _ $Select(..IngegevenKenmerken.IsBinnenlade:..Vertaler.GeefVertaling("Binnenlade"), 1:..Vertaler.GeefVertaling("Lade"))
+	set Hoofding = Hoofding _ ..IngegevenKenmerken.LadeHoogte
+	
+	quit Hoofding
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLosseComponentHoofding">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoofding As TECH.String = ""
+	#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, LosseComponent)
+	
+	if (..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
+		#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = LadeOnderdeel
+		
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling(LosseComponent) _ " "
+		set Hoofding = Hoofding _ ..GeefLadeHoogteTekst() _ ", "
+		set Hoofding = Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("LengteRug") _ "=" _ Rug.GeefBreedteInMM() _ "mm"
+	} elseif (..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
+		#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = LadeOnderdeel
+		
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling(LosseComponent) _ ", "
+		set Hoofding = Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("NominaleLengteAfkorting") _ " " _ ..IngegevenKenmerken.LadeDiepte _ "mm, "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("LengteBodem") _ "=" _ Bodem.GeefBreedteInMM() _ "mm, "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("Voor") _ " " _ ..Vertaler.GeefVertaling(..IngegevenKenmerken.KoppelingType _ "Koppeling")
+	} elseif (..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) {
+		#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = LadeOnderdeel
+		
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("FrontBinnenlade") _ ", "
+		set Hoofding = Hoofding _ ..GeefLadeHoogteTekst() _ ", "	
+		set Hoofding = Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("LengteFrontBinnenlade") _ "=" _ Front.GeefBreedteInMM() _ "mm, "
+		set Hoofding = Hoofding _ ..Vertaler.GeefVertaling("Eindkap") _ " " _ ..KleurCodeVertaler.GeefVertaling(..IngegevenKenmerken.FrontEindkapKleur)
+	} elseif (..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks) {
+		set Hoofding = ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
+	} elseif (..IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts) {
+		set Hoofding = ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
+	}
+	
+	quit Hoofding
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantHoofdingTekst">
+<FormalSpec>ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijkantHoofding As TECH.String = ""
+	
+	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling("Zijkant") _ " "
+	set ZijkantHoofding = ZijkantHoofding _ ..GeefLadeHoogteTekst() _ ", "
+	set ZijkantHoofding = ZijkantHoofding _ ..Vertaler.GeefVertaling(ZijkantRol) _ ", "
+	set ZijkantHoofding = ZijkantHoofding _ ..IngegevenKenmerken.LadeDiepte _ "mm"
+	
+	quit ZijkantHoofding
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
-	Do ..VoegToeKleuren()
+	if ((..IngegevenKenmerken.ProductieWijze = "") && $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk)) {
+		do ..VoegToeStandaardBasisGegevens()
+	} else {
+		do ..VoegToeLosseComponentBasisGegevens()	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeStandaardBasisGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst())
+	do ..VoegToeStandaardKleuren()
 	
-	#Dim Paragraaf As TECH.String = ""
+	#dim Paragraaf As TECH.String = ""
 	
-	If (..IngegevenKenmerken.IsBinnenlade) {
-		Set Paragraaf = ..GeefTekstVoorRol(..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
+	if (..IngegevenKenmerken.IsBinnenlade) {
+		set Paragraaf = ..GeefTekstVoorRol(..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
 	}
 	
-	Set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("Bevat")_": "_..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"",1:"Niet")_"GemonteerdeLade")
-	Set Paragraaf = Paragraaf_..GeefGeleiderTekst()
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-	Set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)	
+	set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("Bevat")_": "_..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"",1:"Niet")_"GemonteerdeLade")
+	set Paragraaf = Paragraaf_..GeefGeleiderTekst()
+	set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
+	set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
+	set Paragraaf = Paragraaf_..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
 	
-	Do ..VoegToeGekoppeldeInfoIndienNodig()
-	Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
+	do ..VoegToeLangtekstParagraaf(Paragraaf)
+	do ..VoegToeGekoppeldeInfoIndienNodig()
+	do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeKleuren">
+<Method name="VoegToeLosseComponentBasisGegevens">
+<Private>1</Private>
+<Implementation><![CDATA[	do ..VoegToeLosseComponentKleuren()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeStandaardKleuren">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#Dim KleurenVoorOnderdeelArray As %ArrayOfDataTypes = ..Lade.GeefKleuren()
 	#Dim IteratorKleurenVoorOnderdeelArray As TECH.ListIterator = ##class(TECH.ListIterator).%New(KleurenVoorOnderdeelArray)
@@ -104,6 +212,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeLosseComponentKleuren">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, LosseComponent)
+	
+	do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kleur") _ ": " _ ..KleurCodeVertaler.GeefVertaling(LadeOnderdeel.GeefKleur()))
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeGemonteerd">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
@@ -157,6 +275,20 @@
 <Implementation><![CDATA[	Quit $$$False
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBinnenmaatKastTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..Vertaler.GeefVertaling("BinnenmaatKast") _ " " _ ..IngegevenKenmerken.CorpusBinnenbreedte _ "mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeHoogteTekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..Vertaler.GeefVertaling("hoogte") _ " " _ ..IngegevenKenmerken.LadeHoogte
+]]></Implementation>
+</Method>
 </Class>