Index: vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r65466 -r66415
--- vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 65466)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 66415)
@@ -188,27 +188,34 @@
 	Do ..AssertPositiesInKorttekst(" ", 21)
 	Do ..AssertPositiesInKorttekst(" ", 20)
 	
-	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Pallet
-	Do ..AssertPositiesInKorttekst("P", 21)
-	Do ..AssertPositiesInKorttekst(" ", 20)
+	Set ..TBXKenmerken.VerpakkingType = "P"
+	Do ..AssertPositiesInKorttekst("P", 20)
+	Do ..AssertPositiesInKorttekst(" ", 21)
 	
-	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
-	Do ..AssertPositiesInKorttekst("X", 21)
-	Do ..AssertPositiesInKorttekst(" ", 20)
+	Set ..TBXKenmerken.VerpakkingType = "X"
+	Do ..AssertPositiesInKorttekst("X", 20)
+	Do ..AssertPositiesInKorttekst(" ", 21)
 	
-	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.Procom
-	Do ..AssertPositiesInKorttekst("C", 21)
-	Do ..AssertPositiesInKorttekst(" ", 20)
+	Set ..TBXKenmerken.VerpakkingType = "Y"
+	Do ..AssertPositiesInKorttekst("Y", 20)
+	Do ..AssertPositiesInKorttekst(" ", 21)
 	
-	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+	Set ..TBXKenmerken.VerpakkingType = "C"
+	Do ..AssertPositiesInKorttekst("C", 20)
 	Do ..AssertPositiesInKorttekst(" ", 21)
-	Do ..AssertPositiesInKorttekst(" ", 20)
 	
-	Set ..TBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss
-	Do ..AssertPositiesInKorttekst("A", 21)
+	Set ..TBXKenmerken.VerpakkingType = "S"
+	Do ..AssertPositiesInKorttekst(" ", 21)
 	Do ..AssertPositiesInKorttekst(" ", 20)
 	
+	Set ..TBXKenmerken.VerpakkingType = "A"
+	Do ..AssertPositiesInKorttekst("A", 20)
+	Do ..AssertPositiesInKorttekst(" ", 21)
 	
+	Set ..TBXKenmerken.VerpakkingType = "B"
+	Do ..AssertPositiesInKorttekst("B", 20)
+	Do ..AssertPositiesInKorttekst(" ", 21)	
+	
 	Set ..TBXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
 	Do ..AssertPositiesInKorttekst("2", 21)
 	Do ..AssertPositiesInKorttekst("S", 20)
Index: DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r65462 -r66415
--- DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 65462)
+++ DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 66415)
@@ -25,7 +25,7 @@
 					_FrontBevestigingCode
 					_$Select(($Length(DossierNummer)=5 ||($Length(DesignCode)=2)):DossierNummer, 1:"."_DossierNummer)
 					_LadeDimensie
-					_$Justify(VerpakkingCode, 2)
+					_VerpakkingCode
 					_$Justify($Extract(BuitenkleurCode, 1, 2), 2)
 					_$Justify($Extract(BinnenkleurCode, 1, 2), 2)
 		
@@ -124,18 +124,22 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim VerpakkingCode As TECH.String = " "
+	#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.VerpakkingType = "P") {
+		Set VerpakkingCode = "P "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "X") {
+		Set VerpakkingCode = "X "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "Y") {
+		Set VerpakkingCode = "Y "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "C") {
+		Set VerpakkingCode = "C "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "S") {
+		Set VerpakkingCode = "  "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "A") {
+		Set VerpakkingCode = "A "
+	} ElseIf (IngegevenKenmerken.VerpakkingType = "B") {
+		Set VerpakkingCode = "B "
 	} 
 	
 	If (IngegevenKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) {
Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml
===================================================================
diff -u -r66151 -r66415
--- DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 66151)
+++ DOM/PM/impl/TBXLangtekstCreator.cls.xml	(.../TBXLangtekstCreator.cls.xml)	(revision 66415)
@@ -406,16 +406,16 @@
 	
 	If (..IngegevenKenmerken.VerpakkingType = "P") {
 	 	Set VerpakkingType = "Pallet"
-	} ElseIf (..IngegevenKenmerken.VerpakkingType = "X") {
+	} ElseIf (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.VerpakkingType, "X", "Y")) {
 		Set VerpakkingType = "Probox"
 	} ElseIf (..IngegevenKenmerken.VerpakkingType = "C") {
 		Set VerpakkingType = "Procom"
 	} ElseIf (..IngegevenKenmerken.VerpakkingType = "S") {
 		Set VerpakkingType = "V1"
-	} ElseIf (..IngegevenKenmerken.VerpakkingType = "A") {
+	} ElseIf (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.VerpakkingType, "A", "B")) {
 		Set VerpakkingType = "VHoss"
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..IngegevenKenmerken.VerpakkingType_"' is niet gekend in de DomNaarDotNetconvertor."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerpakkingType '"_..IngegevenKenmerken.VerpakkingType_"' is niet gekend in TBXLangtekstCreator."))
 	}
 	
 	Quit VerpakkingType