Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r62796 -r62798
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62796)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62798)
@@ -14,7 +14,7 @@
 	#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 VerpakkingCode As TECH.String = ..GeefVerpakkingCode(IngegevenKenmerken)
 	#dim BuitenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken)
 	#dim BinnenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
 	
@@ -104,6 +104,21 @@
 	Quit ##class(TECH.StringUtils).AddTrailingSpace(LadeDimensie, 8)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) {
+		Set VerpakkingCode = "X"
+	}
+	
+	Quit VerpakkingCode
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62797 -r62798
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62797)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62798)
@@ -149,6 +149,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Positie 20 is de VerpakkingCode">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken.VerpakkingType = ""
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..MVXKenmerken.VerpakkingType = " "
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..MVXKenmerken.VerpakkingType = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 20)
+	
+	Set ..MVXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	Do ..AssertPositiesInKorttekst("X", 20)
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositiesInKorttekst">
 <FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
 <Private>1</Private>