Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62792 -r62793
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62792)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62793)
@@ -80,6 +80,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 6 is de FrontBevestigingCode">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken.FrontBevestiging = ""
+	Do ..AssertPositiesInKorttekst(" ", 6)
+	
+	Set ..MVXKenmerken.IsBinnenlade = $$$True
+	Do ..AssertPositiesInKorttekst("Z", 6)
+	
+	Set ..MVXKenmerken.IsBinnenlade = $$$False
+	Set ..MVXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Inserta
+	Do ..AssertPositiesInKorttekst("I", 6)
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositiesInKorttekst">
 <FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r62792 -r62793
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62792)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62793)
@@ -12,7 +12,7 @@
 	#dim GeleiderCode As TECH.String = ..GeefGeleiderCode(IngegevenKenmerken)
 	#dim LadeHoogte As TECH.String = $$$If($$$HasLength(IngegevenKenmerken.LadeHoogte), IngegevenKenmerken.LadeHoogte, " ")
 	#dim DesignCode As TECH.String = ..GeefDesignCode(IngegevenKenmerken)
-	#dim FrontBevestigingCode As TECH.String = "" // ..GeefFrontBevestigingCode(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 = "" // ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken)
@@ -46,19 +46,34 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim DesignCode As TECH.String = " "
+	#dim DesignCode As TECH.String = "/"
 	
 	If (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.Sifon) {
 		Set DesignCode = "Y"
 	} ElseIf (IngegevenKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak) {
 		Set DesignCode = "S"
-	} Else {
-		Set DesignCode = "/"
 	}
 	
 	Quit DesignCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFrontBevestigingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</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.Inserta) {
+		Set FrontBevestigingCode = "I"
+	}
+	
+	Quit FrontBevestigingCode
+]]></Implementation>
+</Method>
 </Class>