Index: DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(revision 65457)
@@ -0,0 +1,195 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.TBX.impl.KorttekstBepaler">
+<Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,DOM.PM.Maatwerk.TBX.impl.Base</Super>
+
+<Method name="BepaalKorttekst">
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Korttekst as TECH.String = ""
+	
+	#dim GeleiderCode As TECH.String = ..GeefGeleiderCode(IngegevenKenmerken)
+	#dim RugHoogteCode As TECH.String = ..GeefRugHoogteCode(IngegevenKenmerken)
+	#dim DesignCode As TECH.String = ..GeefDesignCode(IngegevenKenmerken)
+	#dim FrontBevestigingCode As TECH.String = ..GeefFrontBevestigingCode(IngegevenKenmerken)
+	#dim LadeDimensie As TECH.String = ..GeefLadeDimensie(IngegevenKenmerken)
+	#dim VerpakkingCode As TECH.String = ..GeefVerpakkingCode(IngegevenKenmerken)
+	#dim BuitenkleurCode As TECH.String = ..GeefBuitenKleurCode(IngegevenKenmerken)
+	#dim BinnenkleurCode As TECH.String = ..GeefBinnenKleurCode(IngegevenKenmerken)
+	
+	Set Korttekst = "TB"
+					_GeleiderCode
+					_RugHoogteCode
+					_DesignCode
+					_FrontBevestigingCode
+					_$Select(($Length(DossierNummer)=5 ||($Length(DesignCode)=2)):DossierNummer, 1:"."_DossierNummer)
+					_LadeDimensie
+					_$Justify(VerpakkingCode, 2)
+					_$Justify($Extract(BuitenkleurCode, 1, 2), 2)
+					_$Justify($Extract(BinnenkleurCode, 1, 2), 2)
+		
+	Quit Korttekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeleiderCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeleiderCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht30) {
+		Set GeleiderCode = "8"
+	} ElseIf (IngegevenKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht65) {
+		Set GeleiderCode = "6"
+	} Else {
+		Set GeleiderCode = "I"
+	}
+	
+	Quit GeleiderCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugHoogteCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeHoogteCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.N) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.N
+	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.M) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.M
+	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.C) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.C
+	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.K) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.K
+	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.B) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.B
+	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.D) {
+		Set LadeHoogteCode = ..Enum.RugHoogte.D
+	}
+	
+	Quit LadeHoogteCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefDesignCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit IngegevenKenmerken.LegacyKenmerken.ItemDC
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontBevestigingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim FrontBevestigingCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.IsBinnenlade = $$$True) {
+		Set FrontBevestigingCode = "Z"
+	} ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.AluVolkern) {
+		Set FrontBevestigingCode = "A"
+	} ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Drevel) {
+		Set FrontBevestigingCode = "D"
+	} ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Inserta) {
+		Set FrontBevestigingCode = "I"
+	} ElseIf (IngegevenKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef) {
+		Set FrontBevestigingCode = "S"
+	}
+	
+	Quit FrontBevestigingCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeDimensie">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim LadeDimensie As TECH.String = $Extract(IngegevenKenmerken.LadeDiepte _ "x" _ IngegevenKenmerken.InterneBreedte, 1, 8)
+
+	Quit ##class(TECH.StringUtils).AddTrailingSpace(LadeDimensie, 8)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Pallet) {
+		Set VerpakkingCode = "P"
+	} ElseIf (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) {
+		Set VerpakkingCode = "X"
+	} ElseIf (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Procom) {	//?????? moet dit niet C zijn ofzo?
+		Set VerpakkingCode = "C"
+	} ElseIf (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) {
+		Set VerpakkingCode = " "
+	} If (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss) {
+		Set VerpakkingCode = "A"
+	} 
+	
+	If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) {
+		Set VerpakkingCode = "S2"
+	}
+	
+	If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) {
+		Set VerpakkingCode = "S3"
+	}
+	
+	Quit VerpakkingCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BuitenKleurCode As TECH.String = "  "
+	
+	If (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.BZ) {
+		Set BuitenKleurCode = "TS"
+	} ElseIf (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.MG) {
+		Set BuitenKleurCode = "WA"
+	} ElseIf (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.SW) {
+		Set BuitenKleurCode = "SW"
+	}
+	
+	Quit BuitenKleurCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BinnenKleurCode As TECH.String = "  "
+	
+	If (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Terrazwart) {
+		Set BinnenKleurCode = "BZ"
+	} ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Donkergrijs) {
+		Set BinnenKleurCode = "DG"
+	} ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Lichtgrijs) {
+		Set BinnenKleurCode = "LG"
+	} ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Wit) {
+		Set BinnenKleurCode = "WI"
+	}
+	
+	Quit BinnenKleurCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>