Index: DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml	(revision 68026)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.BewerktHalffabrikaat.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: vhTest/Mock/DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/Maatwerk/BewerktHalffabrikaat/KorttekstBepaler.cls.xml	(revision 68026)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.Maatwerk.BewerktHalffabrikaat.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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.BewerktHalffabrikaat.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/INK/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r68025 -r68026
--- DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68025)
+++ DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68026)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.INK.impl.KorttekstBepaler">
-<Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,DOM.PM.Maatwerk.LBX.impl.Base</Super>
+<Super>DOM.PM.Maatwerk.BewerktHalffabrikaat.KorttekstBepaler,TECH.RegisteredObject</Super>
 
 <Property name="IngegevenKenmerken">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
@@ -18,43 +18,12 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LadeInfoAPI">
-<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Lade">
-<Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KleurCodeBepaler">
-<Type>DOM.PM.ProductTekst.impl.KleurcodeBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="SSTKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="IngegevenKenmerkenTypeAPI">
-<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI="",KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</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 ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
-	Set ..IngegevenKenmerkenTypeAPI = $$$Implementation(IngegevenKenmerkenTypeAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI())
-	
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -67,19 +36,8 @@
 	Set:$$$Not($IsObject(DataDefinitie)) DataDefinitie = ##class(Prod.Kenmerk.impl.DataDefinitie).%New()
 	Set ..DataDefinitie = DataDefinitie
 	Set ..IngegevenKenmerken = IngegevenKenmerken
-	Set ..HalffabItemsBoom = HalffabItemsBoom
-	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom,IngegevenKenmerken)	
-	
-	If (..IsSpaceStep())
-	{
-		Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
-		
-		#dim UitvoeringCode As %String = ..GeefUitvoeringCode()
-		#dim SpaceStepDimensie As %String = ..GeefSpaceStepDimensie()
-		#dim SpaceStepKleur As %String = ..SSTKenmerken.Kleur
-		
-		Set Korttekst = "SST#"_UitvoeringCode_$J(DossierNummer,4)_SpaceStepDimensie_"  "_SpaceStepKleur
-	} Else {
+	Set ..HalffabItemsBoom = HalffabItemsBoom	
+	/*
 		#dim GeleiderCode As %String = ..GeefGeleiderCode()
 		#dim ZijwandHoogte As %String = ..GeefZijwandHoogte()
 		#dim DesignCode As %String = ..GeefDesignCode()
@@ -90,153 +48,18 @@
 		#dim BinnenkleurCode As %String = ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken, HalffabItemsBoom, DataDefinitie)
 		
 		Set Korttekst = "LB"_GeleiderCode_ZijwandHoogte_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
-	}
-		
+		*/
 	Quit Korttekst
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGeleiderCode">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim GeleiderCode As TECH.String = " "
-	#dim Rol As TECH.String = ..Enum.Rol.Geleider _ "->Links"
-	
-	If (..HalffabItemsBoom.BevatRol(Rol)) {
-		Set GeleiderCode = $Justify($Extract($ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_Geleider",..GeefHalffab(Rol).GeefProductID(), ..Enum.KenmerkNaam.Draagkracht))), 1)
-	} Else {
-		Set GeleiderCode = $Justify($Extract(..IngegevenKenmerken.Draagkracht), 1)
-	}
-	
-	Quit GeleiderCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefZijwandHoogte">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim ZijwandHoogte As %String = " "
-	#dim Rol As TECH.String = ..Enum.Rol.LadeZijkant _ "->Links"
-	
-	If (..HalffabItemsBoom.BevatRol(Rol)) {
-		Set ZijwandHoogte = $ListGet(..DataDefinitie.DataDefinitieGet("LBX_PPS_LadeZijkant", ..GeefHalffab(Rol).GeefProductID(), "Hoogte"))
-	} ElseIf $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
-		Set ZijwandHoogte = ..IngegevenKenmerken.LadeHoogte
-	}
-	
-	Quit ZijwandHoogte
-]]></Implementation>
-</Method>
-
-<Method name="GeefDesignCode">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim DesignCode As %String = "/"
-	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
-	
-	If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(..IngegevenKenmerken)) {
-		Set DesignCode = "S"
-	} ElseIf (IngegevenKenmerkenTypeAPI.IsSifonlade(..IngegevenKenmerken)) {
-		Set DesignCode = "Y"
-	}
-	
-	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
-		Set DesignCode = "!"
-	}
-	
-	Quit DesignCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefFrontBevestigingCode">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim FrontBevestigingCode As %String =  " "
-	
-	If $$$Not(..IngegevenKenmerken.FrontBevestiging = "") {
-		Set FrontBevestigingCode = ..IngegevenKenmerken.FrontBevestiging
-		Set:(FrontBevestigingCode=##class(DOM.PM.enu.LBXFrontBevestiging).ExpandoT()) FrontBevestigingCode = "T"
-	}
-	
-	If (..IngegevenKenmerken.IsBinnenlade) {
-		Set FrontBevestigingCode = "Z"
-	}
-	
-	Quit FrontBevestigingCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefLadeDimensie">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim DimensieString As TECH.String = ..Lade.GeefDiepteInMM() _ "x" _ ..Lade.GeefBreedteInMM()
-	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerpakkingCode">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim VerpakkingCode As %String = " "
-	
-	If (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss) {
-		Set VerpakkingCode = "A"
-	} ElseIf (..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) {
-		Set VerpakkingCode = "X"
-	} ElseIf $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) {
-		Set VerpakkingCode = $Extract(..IngegevenKenmerken.VerpakkingType)
-	}
-	
-	Quit VerpakkingCode
-]]></Implementation>
-</Method>
-
 <Method name="GeefHalffab">
 <FormalSpec>Rol:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
 <Implementation><![CDATA[	Quit ..HalffabItemsBoom.GeefHalffabItem(Rol).GeefHalffab()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefUitvoeringCode">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim UitvoeringCode As %String = ""
-	
-	If (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Volledig) {
-		Set UitvoeringCode = "LB"_..IngegevenKenmerken.LadeHoogte
-	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.SokkelEnTablet) {
-		Set UitvoeringCode = "   "	
-	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Tablet) {
-		Set UitvoeringCode = "TAB"
-	}
-	
-	Quit UitvoeringCode
-]]></Implementation>
-</Method>
-
-<Method name="GeefSpaceStepDimensie">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim DimensieString As TECH.String = ..SSTKenmerken.Diepte _ "x" _ ..SSTKenmerken.Breedte
-	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
-]]></Implementation>
-</Method>
-
-<Method name="IsSpaceStep">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..IngegevenKenmerkenTypeAPI.IsSpaceStep(..IngegevenKenmerken)
-]]></Implementation>
-</Method>
 </Class>