Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(revision 29831)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TAX.impl.LosseComponentKorttekstBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
+
+<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 Prefix As TECH.String = "T"
+	#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeInfo(HalffabItemsBoom, TAORKenmerken)
+	#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
+	
+	If (TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()) {
+		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)
+	}
+	
+	//#Dim BinnenkantKleur As TECH.String = TAORKenmerken.LadeKleur // todo MVI: kleuren verder uitklaren
+	
+	Quit Prefix _ TAORKenmerken.ProductieWijze _ LosseComponentSpecifiek
+]]></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 LadeInfoAPI As DOM.PM.Maatwerk.LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	#Dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = LadeInfoAPI.GeefLade()
+	#Dim Iterator As TECH.Iterator = Lade.GeefOnderdelenIterator()
+	
+	While (Iterator.HasNext()) {
+		w !, "--> ladeonderdeeliterator: " _ Iterator.Next()	
+	}
+	
+	//#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat())
+	
+	Quit KoppelingType _ "." _ ..GeefInterneBreedte(TAORKenmerken) _ " " _ LadeDiepte _ "BODEN" _ KoppelingType _ " " _ Verpakking _ "  " //_ LadeOnderdeel.GeefKleuren()
+]]></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 = "  "
+	//#Dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ..GeefLadeOnderdeel(HalffabItemsBoom, TAORKenmerken, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).RugPlaat())
+	
+	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 DOM.PM.Maatwerk.Calc.HF.enu.TAORRol) 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.LadeOnderdeel).%New(Lade, HalffabItem, TAORKenmerken)
+}*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
FishEye: Tag 29831 refers to a dead (removed) revision in file `DOM/PM/LBXProduct/impl/KorttekstBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 29831 refers to a dead (removed) revision in file `DOM/PM/TAORProduct/impl/KorttekstBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml	(revision 29831)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Lade.KorttekstBepaler">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="BepaalKorttekst">
+<Abstract>1</Abstract>
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(revision 29831)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
+
+<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 Prefix As TECH.String = "TA"
+	#Dim DraagkrachtCode As TECH.String = ..GeefDraagkrachtCode(HalffabItemsBoom)
+	#Dim ZijwandHoogte As TECH.String = ..GeefZijwandHoogte(HalffabItemsBoom, TAORKenmerken)
+	#Dim DesignCode As TECH.String = "/"
+	#Dim FrontBevestigingCode AS TECH.String = ..GeefFrontBevestigingCode(TAORKenmerken)
+	#Dim DossierCode As TECH.String = ..GeefDossierCode(DossierNummer)
+	#Dim Dimensie As TECH.String = ..GeefDimensie(TAORKenmerken)
+	#Dim VerpakkingCode As TECH.String = ..GeefVerpakkingCode(TAORKenmerken)
+	#Dim BuitenkleurCode As TECH.String = ..GeefBuitenkleurCode(HalffabItemsBoom)
+	#Dim BinnenkleurCode As TECH.String = ..GeefBinnenkleurCode(HalffabItemsBoom)
+
+	Quit Prefix _ DraagkrachtCode _ ZijwandHoogte _ DesignCode _ FrontBevestigingCode _ DossierCode _ Dimensie _ VerpakkingCode _ " " _ BuitenkleurCode _ BinnenkleurCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefDraagkrachtCode">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()
+	#Dim DraagkrachtCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_Glijder", "Draagkracht")
+
+	Quit $Justify($Extract(DraagkrachtCode), 1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZijwandHoogte">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim ZijwandHoogte As TECH.String = " "
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat()
+
+	If (HalffabItemsBoom.BevatRol(Rol)) {
+		Set ZijwandHoogte = TAORKenmerken.LadeHoogte
+	}
+	
+	Quit ZijwandHoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontBevestigingCode">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim FrontBevestigingCode As TECH.String =  " "
+	
+	Set:($$$Not(TAORKenmerken.FrontBevestiging = "")) FrontBevestigingCode = TAORKenmerken.FrontBevestiging
+	Set:(TAORKenmerken.IsBinnenlade) FrontBevestigingCode = "Z"
+	
+	Quit FrontBevestigingCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefDossierCode">
+<FormalSpec>DossierNummer:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $Justify(DossierNummer, 5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDimensie">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Dimensie As TECH.String = $Extract(TAORKenmerken.LadeDiepte _ "x" _ TAORKenmerken.InterneBreedte, 1, 8)
+
+	Quit ##class(TECH.StringUtils).AddTrailingSpace(Dimensie, 8)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingCode">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim VerpakkingCode As TECH.String = " "
+	
+	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
+		Set VerpakkingCode = "X"
+	} ElseIf $$$Not(TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
+		Set VerpakkingCode = $Extract(TAORKenmerken.VerpakkingType, 1)
+	}
+	
+	Quit $Justify(VerpakkingCode, 1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuitenkleurCode">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat()
+	#Dim BuitenkleurCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_ZijkantPlaat", "Kleur")
+	
+	Quit $Justify($Extract(BuitenkleurCode, 1, 2), 2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenkleurCode">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat()
+	#Dim BinnenkleurCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_BodemPlaat", "Kleur")
+	
+	Quit $Justify($Extract(BinnenkleurCode, 1, 2), 2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCodeVoorGroep">
+<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,GroepID:TECH.String,Kenmerk:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Code As TECH.String = " "
+	
+	If (HalffabItemsBoom.BevatRol(Rol)) {
+		#Dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
+		#Dim DataDefinitie As Prod.Kenmerk.DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).Get(GroepID, Halffab.GeefProductID(), Kenmerk)
+		
+		Set Code = $ListGet(DataDefinitie)
+	}
+	
+	Quit Code
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r29059 -r29831
--- DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../TAORProduct/impl/KorttekstBepaler.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler.cls.xml	(.../Maatwerk/TAX/impl/KorttekstBepaler.cls.xml)	(revision 29831)
@@ -1,145 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="DOM.PM.TAORProduct.impl.KorttekstBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Class name="DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
 
 <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 DraagkrachtCode As TECH.String = ..GeefDraagkrachtCode(HalffabItemsBoom)
-	#Dim ZijwandHoogte As TECH.String = ..GeefZijwandHoogte(HalffabItemsBoom, TAORKenmerken)
-	#Dim DesignCode As TECH.String = "/"
-	#Dim FrontBevestigingCode AS TECH.String = ..GeefFrontBevestigingCode(TAORKenmerken)
-	#Dim DossierCode As TECH.String = ..GeefDossierCode(DossierNummer)
-	#Dim Dimensie As TECH.String = ..GeefDimensie(TAORKenmerken)
-	#Dim VerpakkingCode As TECH.String = ..GeefVerpakkingCode(TAORKenmerken)
-	#Dim BuitenkleurCode As TECH.String = ..GeefBuitenkleurCode(HalffabItemsBoom)
-	#Dim BinnenkleurCode As TECH.String = ..GeefBinnenkleurCode(HalffabItemsBoom)
-
-	Quit "TA" _ DraagkrachtCode _ ZijwandHoogte _ DesignCode _ FrontBevestigingCode _ DossierCode _ Dimensie _ VerpakkingCode _ " " _ BuitenkleurCode _ BinnenkleurCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefDraagkrachtCode">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()
-	#Dim DraagkrachtCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_Glijder", "Draagkracht")
-
-	Quit $Justify($Extract(DraagkrachtCode), 1)
-]]></Implementation>
-</Method>
-
-<Method name="GeefZijwandHoogte">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim ZijwandHoogte As TECH.String = " "
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat()
-
-	If (HalffabItemsBoom.BevatRol(Rol)) {
-		Set ZijwandHoogte = TAORKenmerken.LadeHoogte
-	}
+	#Dim KorttekstBepaler As DOM.PM.TAORProduct.KorttekstBepaler
 	
-	Quit ZijwandHoogte
-]]></Implementation>
-</Method>
-
-<Method name="GeefFrontBevestigingCode">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim FrontBevestigingCode As TECH.String =  " "
-	
-	Set:($$$Not(TAORKenmerken.FrontBevestiging = "")) FrontBevestigingCode = TAORKenmerken.FrontBevestiging
-	Set:(TAORKenmerken.IsBinnenlade) FrontBevestigingCode = "Z"
-	
-	Quit FrontBevestigingCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefDossierCode">
-<FormalSpec>DossierNummer:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit $Justify(DossierNummer, 5)
-]]></Implementation>
-</Method>
-
-<Method name="GeefDimensie">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Dimensie As TECH.String = $Extract(TAORKenmerken.LadeDiepte _ "x" _ TAORKenmerken.InterneBreedte, 1, 8)
-
-	Quit ##class(TECH.StringUtils).AddTrailingSpace(Dimensie, 8)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerpakkingCode">
-<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim VerpakkingCode As TECH.String = " "
-	
-	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
-		Set VerpakkingCode = "X"
-	} ElseIf $$$Not(TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
-		Set VerpakkingCode = $Extract(TAORKenmerken.VerpakkingType, 1)
+	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()
 	}
 	
-	Quit $Justify(VerpakkingCode, 1)
+	Quit KorttekstBepaler.BepaalKorttekst(DossierNummer, TAORKenmerken, HalffabItemsBoom)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefBuitenkleurCode">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).ZijkantPlaat()
-	#Dim BuitenkleurCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_ZijkantPlaat", "Kleur")
-	
-	Quit $Justify($Extract(BuitenkleurCode, 1, 2), 2)
-]]></Implementation>
-</Method>
-
-<Method name="GeefBinnenkleurCode">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Rol As DOM.PM.Maatwerk.Calc.HF.enu.TAORRol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).BodemPlaat()
-	#Dim BinnenkleurCode As TECH.String = ..GeefCodeVoorGroep(HalffabItemsBoom, Rol, "TAOR_PPS_BodemPlaat", "Kleur")
-	
-	Quit $Justify($Extract(BinnenkleurCode, 1, 2), 2)
-]]></Implementation>
-</Method>
-
-<Method name="GeefCodeVoorGroep">
-<FormalSpec>HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,GroepID:TECH.String,Kenmerk:TECH.String</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim Code As TECH.String = " "
-	
-	If (HalffabItemsBoom.BevatRol(Rol)) {
-		#Dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
-		#Dim DataDefinitie As Prod.Kenmerk.DataDefinitie = ##class(Prod.Kenmerk.DataDefinitie).Get(GroepID, Halffab.GeefProductID(), Kenmerk)
-		
-		Set Code = $ListGet(DataDefinitie)
-	}
-	
-	Quit Code
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/PM/KorttekstUtils.cls.xml
===================================================================
diff -u -r29059 -r29831
--- DOM/PM/KorttekstUtils.cls.xml	(.../KorttekstUtils.cls.xml)	(revision 29059)
+++ DOM/PM/KorttekstUtils.cls.xml	(.../KorttekstUtils.cls.xml)	(revision 29831)
@@ -17,15 +17,15 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.TAORProduct.impl.KorttekstBepaler).%New().BepaalKorttekst(DossierNummer, IngegevenKenmerken, HalffabItemsBoom)
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New().BepaalKorttekst(DossierNummer, IngegevenKenmerken, HalffabItemsBoom)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalKorttekstLBX">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.LBXProduct.impl.KorttekstBepaler).%New().BepaalKorttekst(DossierNummer, IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.LBX.impl.KorttekstBepaler).%New().BepaalKorttekst(DossierNummer, IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/Lade/KorttekstBepaler.cls.xml	(revision 29831)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.Lade.KorttekstBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalKorttekst">
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalKorttekst",DossierNummer,IngegevenKenmerken,HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r29059 -r29831
--- DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../LBXProduct/impl/KorttekstBepaler.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../Maatwerk/LBX/impl/KorttekstBepaler.cls.xml)	(revision 29831)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="DOM.PM.LBXProduct.impl.KorttekstBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Class name="DOM.PM.Maatwerk.LBX.impl.KorttekstBepaler">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Lade.KorttekstBepaler</Super>
 
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
@@ -47,7 +47,7 @@
 </Method>
 
 <Method name="BepaalKorttekst">
-<FormalSpec>DossierNummer:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,DataDefinitie:Prod.Kenmerk.DataDefinitieAdapter=""</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	Set:'$IsObject(DataDefinitie) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()