Index: DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml
===================================================================
diff -u -r29059 -r30521
--- DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml	(.../DataMLBXLadeCreator.cls.xml)	(revision 30521)
@@ -5,22 +5,23 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
 
-<Method name="BepaalKortTekst">
-<FormalSpec>DossierNummer:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstLBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
-]]></Implementation>
-</Method>
-
 <Method name="GeefLangtekst">
 <FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal)
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst)
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalKortTekst">
+<FormalSpec>DossierNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstLBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r29363 -r30521
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 29363)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 30521)
@@ -8,63 +8,71 @@
 <Default>; </Default>
 </Parameter>
 
-<Property name="Taal">
-<Type>DOM.enu.Taal</Type>
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Property name="KleurCodeVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="LangtekstHelper">
+<Type>DOM.PM.LangtekstHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="HalffabItemsBoom">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HalffabItemsBoomOnHerwerkt">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LangtekstHoofding">
-<Type>%String</Type>
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LangtekstDetail">
+<Property name="KortTekst">
 <Type>%String</Type>
-<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
-<Property name="Vertaler">
-<Type>DOM.common.Transl.Vertaler</Type>
+<Property name="HalffabItemsBoomOnHerwerkt">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KleurCodeVertaler">
-<Type>DOM.common.Transl.Vertaler</Type>
+<Property name="LangtekstHoofding">
+<Type>%String</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LangtekstHelper">
-<Type>DOM.PM.LangtekstHelper</Type>
+<Property name="LangtekstDetail">
+<Type>%String</Type>
+<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
 <Method name="GeefLangtekst">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String=""</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
 	set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal)
+	
 	set ..IngegevenKenmerken = IngegevenKenmerken
 	set ..HalffabItemsBoom = HalffabItemsBoom
-	do ..InitieerHalffabItemsBoomOnherwerkt()
 	set ..Taal = Taal
+	set ..KortTekst = Korttekst
 	
+	do ..InitieerHalffabItemsBoomOnherwerkt()
+	
 	do ..BepaalHoofding()
 	
 	Set ..LangtekstDetail = ##class(%ListOfDataTypes).%New()
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(revision 0)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentDetailBepaler.cls.xml	(revision 30521)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.enu.TAORProductieWijze.Verwerker</Super>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurCodeVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieWijzeNaarLosseComponentConverter">
+<Type>DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosseComponentType">
+<Type>DOM.PM.Maatwerk.Lade.enu.LosseComponent</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Detail">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler,KleurCodeVertaler:DOM.common.Transl.Vertaler,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Vertaler = Vertaler
+	set ..KleurCodeVertaler = KleurCodeVertaler
+	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDetail">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..IngegevenKenmerken = IngegevenKenmerken
+	set ..HalffabItemsBoom = HalffabItemsBoom
+	set ..Taal = Taal
+	set ..KortTekst = KortTekst
+	
+	set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
+	
+	#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
+	do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Kleur") _ ": " _ ..KleurCodeVertaler.GeefVertaling(LadeOnderdeel.GeefKleur()))
+	
+	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
+	
+	quit ..Detail
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRug">
+</Method>
+
+<Method name="VerwerkBodem">
+</Method>
+
+<Method name="VerwerkFront">
+</Method>
+
+<Method name="VerwerkZijkantLinks">
+<Private>1</Private>
+</Method>
+
+<Method name="VerwerkZijkantRechts">
+<Private>1</Private>
+</Method>
+
+<Method name="VoegToeLangtekstParagraaf">
+<FormalSpec>LangtekstDetail:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do:(LangtekstDetail'="") ..Detail.Insert(LangtekstDetail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml
===================================================================
diff -u -r29059 -r30521
--- DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 30521)
@@ -19,7 +19,7 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.TAORLangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal)
+	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal,..KortTekst)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r29059 -r30521
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 30521)
@@ -43,6 +43,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="KortTekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LangtekstPosities">
 <Type>%ListOfDataTypes</Type>
 <Collection>array</Collection>
@@ -72,7 +77,7 @@
 	Set ..KostItem = KostItem
 
 	// Bepaal het generisch PRNr, dit nummer wordt gebruikt om uit KPR een template op te halen
-	Set GenerischPRNr = ..GeefGenerischPRNr()
+	#dim GenerischPRNr As %String = ..GeefGenerischPRNr()
 	
 	// Kopieer de template
 	Do ..LaadTemplate(GenerischPRNr)
@@ -129,13 +134,14 @@
 <FormalSpec>GenerischPRNr:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Sleutel = $Order(^KPR(GenerischPRNr,""))
-	While ((Sleutel '= "") && $ISVALIDNUM(Sleutel))
-	{
+	#dim Sleutel As %String = $Order(^KPR(GenerischPRNr,""))
+	While ((Sleutel '= "") && $ISVALIDNUM(Sleutel)) {
 		Do ..ProductData.SetAt(^KPR(GenerischPRNr,Sleutel),Sleutel)
 		Set Sleutel = $Order(^KPR(GenerischPRNr,Sleutel))
 	}
 	Do ..ProductData.SetAt(^KPR(GenerischPRNr,"G"),"G")
+	
+	#dim i As %String = ""
 	For i="I","J" Do ..ProductData.SetAt(^KPR(GenerischPRNr,$Order(^KPR(GenerischPRNr,i))),i)
 	Do ..ZetWaarde(0,3,GenerischPRNr)
 ]]></Implementation>
@@ -145,6 +151,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	// Ligging,Beginstock,FysStock,,Laatste beweging, Bestelling, Schaduwkorttekst, Schaduw sectie, Omschrijving N1, Omschrijving N2
+	#dim i As %Integer
 	For i=6,12,13,14,16,17,20,21,2,11 Do ..ZetWaarde(0,i,"")
 	
 	// Inventaris fysstock, stock/niet stock, gem. weekverkoop, gewogen gem. weekverkoop, Omschrijving F1
@@ -164,20 +171,20 @@
 <Method name="VulTemplate">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set DossierNummer = ..DossierNummer
+	#dim DossierNummer As %String = ..DossierNummer
 	
 	Do ..ProductData.SetAt("","G")
  	Do ..ZetWaarde("G",1,DossierNummer)
  	
- 	Set KortTekst = ..BepaalKortTekst(DossierNummer)
- 	Do ..ZetWaarde(0,1,KortTekst)
+ 	Set ..KortTekst = ..BepaalKortTekst(DossierNummer)
+ 	Do ..ZetWaarde(0,1,..KortTekst)
  	
- 	Set KostPrijs = ..KostItem.GeefKost() ; Aankoopprijs
+ 	#dim KostPrijs As %Numeric = ..KostItem.GeefKost() ; Aankoopprijs
  	
  	Do ..ZetWaarde("J",19,KostPrijs)
  	Do ..ZetWaarde("G",12,KostPrijs)
  	
- 	Set Staffel = ..BerekeningsSpecificatie.GeefHoeveelheid()
+ 	#dim Staffel As %Numeric = ..BerekeningsSpecificatie.GeefHoeveelheid()
  	Do ..ZetWaarde("J",6,Staffel)
  	Do ..ZetWaarde("G",14,Staffel)
  	
@@ -197,9 +204,8 @@
 <Method name="ZetClassificatie">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Classificatie = ..GeefClassificatie()
-	If (Classificatie '= "")
-	{
+	#dim Classificatie As %Integer = ..GeefClassificatie()
+	If (Classificatie '= "") {
 		Do ..ZetWaarde("I",1,$$GETSORT^KLASS(Classificatie,1))
 		Do ..ZetWaarde("I",2,$$GETSORT^KLASS(Classificatie,2))
 		Do ..ZetWaarde("I",3,$$GETSORT^KLASS(Classificatie,3))
@@ -226,13 +232,12 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set PRNr=$$NEXTID^PRODUKT(1)
- 	Set IdentNr=$$IDENTNR^PRODUKT(PRNr,"9")
+	#dim PRNr As %String = $$NEXTID^PRODUKT(1)
+ 	#dim IdentNr As %String = $$IDENTNR^PRODUKT(PRNr,"9")
  	Do ..ZetWaarde(2,25,IdentNr)
- 	For i=0:1:13
- 	{
-	 	If (..ProductData.IsDefined(i))
-	 	{
+ 	#dim i As %Integer
+ 	For i=0:1:13 {
+	 	If (..ProductData.IsDefined(i))	{
 		 	Set ^KPR(PRNr,i) = ..ProductData.GetAt(i)
 	 	}
  	}
@@ -245,7 +250,7 @@
  	Do ..ProductSpecificatie.%Save()
  	Do ..BerekeningsSpecificatie.%Save()
  	
- 	Set Rec = ""
+ 	#dim Rec As %String = ""
  	Set $Piece(Rec,"\",13) = ..ProductSpecificatie.%Id()
  	Set $Piece(Rec,"\",14) = ..BerekeningsSpecificatie.%Id()
  	Set ^KPR(PRNr,15) = Rec
@@ -261,8 +266,7 @@
 <Method name="DossierNummerGet">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%DossierNummer = "")
-	{
+	If (i%DossierNummer = "") {
 		Set i%DossierNummer = ..BepaalNieuwDossierNummer()
 	}
 	Quit i%DossierNummer
@@ -274,7 +278,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	// OPGELET VOOR KADERDEUR -> Node wordt niet uit het generisch product afgeleid.
-	Set Node = ..GeefWaarde("G",4)
+	#dim Node As %String = ..GeefWaarde("G",4)
 	Quit ##class(DOM.PM.Maatwerk.ProductUtils).GeefVolgendeDossierCode(Node)
 ]]></Implementation>
 </Method>
@@ -315,9 +319,9 @@
 	#dim Lijnen As TECH.Iterator = ##class(TECH.PiecesIterator).%New(Langtekst.GeefString(),$$$CRLF)
 	While (Lijnen.HasNext()){
 		Set i = i + 1
-		Set Positie = ..LangtekstPosities.GetAt(Taal).GetAt(i)
-		Set Node = $Piece(Positie,".")
-		Set Piece = $Piece(Positie,".",2)
+		#dim Positie As %String = ..LangtekstPosities.GetAt(Taal).GetAt(i)
+		#dim Node As %String = $Piece(Positie,".")
+		#dim Piece As %String = $Piece(Positie,".",2)
 		Do ..ZetWaarde(Node, Piece, Lijnen.Next())
 	}
 ]]></Implementation>
@@ -335,7 +339,7 @@
 <FormalSpec>Index:%String,Piece:%Integer,Waarde:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Lijn = ..ProductData.GetAt(Index)
+	#dim Lijn As %String = ..ProductData.GetAt(Index)
 	Set $Piece(Lijn,"\",Piece) = Waarde
 	Do ..ProductData.SetAt(Lijn,Index)
 ]]></Implementation>
Index: DOM/PM/impl/MATTAORLangtekstCreator.cls.xml
===================================================================
diff -u -r29059 -r30521
--- DOM/PM/impl/MATTAORLangtekstCreator.cls.xml	(.../MATTAORLangtekstCreator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/MATTAORLangtekstCreator.cls.xml	(.../MATTAORLangtekstCreator.cls.xml)	(revision 30521)
@@ -7,6 +7,15 @@
 <Type>DOM.PM.impl.DataM.MATLangteksten</Type>
 </Property>
 
+<Method name="GeefLangtekst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,Korttekst:%String=""</FormalSpec>
+<ReturnType>DOM.PM.ProductLangtekst</ReturnType>
+<Implementation><![CDATA[
+	Set ..MATLangteksten = ##class(DOM.PM.impl.DataM.MATLangteksten).%New(IngegevenKenmerken, Taal)
+	quit ##super(IngegevenKenmerken,HalffabItemsBoom,Taal,Korttekst)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -34,15 +43,6 @@
 	Quit
 ]]></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 ..MATLangteksten = ##class(DOM.PM.impl.DataM.MATLangteksten).%New(IngegevenKenmerken, Taal)
-	quit ##super(IngegevenKenmerken,HalffabItemsBoom,Taal)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(revision 0)
+++ DOM/PM/impl/TAORLangtekstCreator/LosseComponentHoofdingBepaler.cls.xml	(revision 30521)
@@ -0,0 +1,166 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.impl.TAORLangtekstCreator.LosseComponentHoofdingBepaler">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.enu.TAORProductieWijze.Verwerker</Super>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurCodeVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieWijzeNaarLosseComponentConverter">
+<Type>DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosseComponentFactory">
+<Type>DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosseComponentType">
+<Type>DOM.PM.Maatwerk.Lade.enu.LosseComponent</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoofding">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vertaler:DOM.common.Transl.Vertaler,KleurCodeVertaler:DOM.common.Transl.Vertaler,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Vertaler = Vertaler
+	set ..KleurCodeVertaler = KleurCodeVertaler
+	set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalHoofding">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..IngegevenKenmerken = IngegevenKenmerken
+	set ..HalffabItemsBoom = HalffabItemsBoom
+	set ..Taal = Taal
+	set ..KortTekst = KortTekst
+	
+	set ..LosseComponentType = ..ProductieWijzeNaarLosseComponentConverter.Convert(..IngegevenKenmerken.ProductieWijze)
+	
+	set ..Hoofding = "TA'OR BOX "
+	do ..Verwerk(IngegevenKenmerken.ProductieWijze)
+	quit ..Hoofding
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRug">
+<Implementation><![CDATA[
+	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
+	
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType) _ " "
+	set ..Hoofding = ..Hoofding _ ..GeefLadeHoogteTekst() _ ", "
+	set ..Hoofding = ..Hoofding _ ..GeefBinnenmaatKastTekst() _ ", "
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling("LengteRug") _ "=" _ Rug.GeefBreedteInMM() _ "mm"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBodem">
+<Implementation><![CDATA[
+	#dim Bodem As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
+		
+	set ..Hoofding = ..Hoofding _ ..Vertaler.GeefVertaling(..LosseComponentType) _ ", "
+	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")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFront">
+<Implementation><![CDATA[
+	#dim Front As DOM.PM.Maatwerk.LadeInfo.Bodem = ..LosseComponentFactory.MaakLosseComponent(..HalffabItemsBoom, ..IngegevenKenmerken, ..LosseComponentType)
+		
+	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)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZijkantLinks">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZijkantRechts">
+<Private>1</Private>
+<Implementation><![CDATA[	set ..Hoofding = ..Hoofding _ ..GeefZijkantHoofdingTekst(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts())
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijkantHoofdingTekst">
+<FormalSpec>ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
+<Private>1</Private>
+<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="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>
+
+
+</Export>
Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r30277 -r30521
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 30277)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 30521)
@@ -55,104 +55,34 @@
 </Method>
 
 <Method name="GeefLangtekst">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Taal:DOM.enu.Taal,KortTekst:%String=""</FormalSpec>
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom, IngegevenKenmerken)
-	
-	Quit ##super(IngegevenKenmerken, HalffabItemsBoom, Taal)
+	Quit ##super(IngegevenKenmerken, HalffabItemsBoom, Taal , KortTekst)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..LangtekstHoofding = "TA'OR BOX "
-	
 	if ((..IngegevenKenmerken.ProductieWijze = "") && $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk)) {
-		set ..LangtekstHoofding = ..LangtekstHoofding _ ..BepaalStandaardHoofding()	
+		set ..LangtekstHoofding = "TA'OR BOX " _ $Select(..IngegevenKenmerken.IsBinnenlade:..Vertaler.GeefVertaling("Binnenlade"), 1:..Vertaler.GeefVertaling("Lade"))_" "_..IngegevenKenmerken.LadeHoogte
 	} else {
-		set ..LangtekstHoofding = ..LangtekstHoofding _ ..BepaalLosseComponentHoofding()	
+		set LosseComponentHoofdingBepaler = ##class(DOM.PM.impl.TAORLangtekstCreator.LosseComponentHoofdingBepaler).%New(..Vertaler,..KleurCodeVertaler)
+		set ..LangtekstHoofding = LosseComponentHoofdingBepaler.BepaalHoofding(..IngegevenKenmerken,..HalffabItemsBoom,..Taal,..KortTekst)
 	}
 ]]></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[
 	if ((..IngegevenKenmerken.ProductieWijze = "") && $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk)) {
 		do ..VoegToeStandaardBasisGegevens()
 	} else {
-		do ..VoegToeLosseComponentBasisGegevens()	
+		set LosseComponentDetailBepaler = ##class(DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler).%New(..Vertaler,..KleurCodeVertaler)
+		set ..LangtekstDetail = LosseComponentDetailBepaler.BepaalDetail(..IngegevenKenmerken,..HalffabItemsBoom,..Taal,..KortTekst)
 	}
 ]]></Implementation>
 </Method>
@@ -181,12 +111,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeLosseComponentBasisGegevens">
-<Private>1</Private>
-<Implementation><![CDATA[	do ..VoegToeLosseComponentKleuren()
-]]></Implementation>
-</Method>
-
 <Method name="VoegToeStandaardKleuren">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -212,16 +136,6 @@
 ]]></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>
@@ -275,20 +189,6 @@
 <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>