Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r68732 -r69121
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68732)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69121)
@@ -7,11 +7,103 @@
 <FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Korttekst as TECH.String = "RV Korttekst"
+	#dim Korttekst as TECH.String = ""
 	
+	#dim ToepassingCode As TECH.String = ..GeefToepassingCode(IngegevenKenmerken)
+	#dim CorpusConstructieCode As TECH.String = ..GeefCorpusConstructieCode(IngegevenKenmerken)
+	#dim MateriaalCode As TECH.String = ..GeefMateriaalCode(IngegevenKenmerken)
+	#dim ProductieWijzeCode As TECH.String = ..GeefProductieWijzeCode(IngegevenKenmerken)
+	#dim AfmetingCode As TECH.String = ..GeefAfmetingCode(IngegevenKenmerken)
+	#dim KleurCode As TECH.String = ..GeefKleurCode(IngegevenKenmerken)
+		
+	Set Korttekst = "REV."_ToepassingCode_CorpusConstructieCode_MateriaalCode_$Justify(DossierNummer, 5)_ProductieWijzeCode_AfmetingCode_$Justify(KleurCode, 3)
+			
 	Quit Korttekst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefToepassingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToepassingCode As TECH.String = "  "
+	
+	If (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoLinks) {
+		Set ToepassingCode = "10"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.DuoLinks) {
+		Set ToepassingCode = "20"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoRechts) {
+		Set ToepassingCode = "01"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.DuoRechts) {
+		Set ToepassingCode = "02"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.DuoUno) {
+		Set ToepassingCode = "21"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.UnoDuo) {
+		Set ToepassingCode = "12"
+	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.DuoDuo) {
+		Set ToepassingCode = "22"
+	}
+	
+	Quit ToepassingCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefCorpusConstructieCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim CorpusConstructieCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.CorpusConstructie = ..Enum.CorpusConstructie.MetSokkel) {
+		Set CorpusConstructieCode = "S"
+	} ElseIf (IngegevenKenmerken.CorpusConstructie = ..Enum.CorpusConstructie.ZonderSokkel) {
+		Set CorpusConstructieCode = "V"
+	}
+	
+	Quit CorpusConstructieCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefMateriaalCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit " " // Nog uit te breiden
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieWijzeCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit " " // Nog uit te breiden
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfmetingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim AfmetingCode As TECH.String = ""
+	
+	Set AfmetingCode = IngegevenKenmerken.PocketDiepte _ "X" _ IngegevenKenmerken.PocketHoogte 
+	
+	Do ##class(Tools.Wlip).%New(26).String(##class(TECH.StringUtils).AddTrailingSpace(AfmetingCode, 8))
+	
+	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(AfmetingCode, 8), 1, 8)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit "XX"
+]]></Implementation>
+</Method>
 </Class>