Index: DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml
===================================================================
diff -u -r55067 -r56579
--- DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 55067)
+++ DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 56579)
@@ -117,7 +117,9 @@
 	
 	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()) {
 		Set VerpakkingCode = "C"
-	} ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
+	} ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProbox()) {
+		Set VerpakkingCode = "P"
+	}ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
 		Set VerpakkingCode = "X"
 	} ElseIf $$$Not(TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
 		Set VerpakkingCode = $Extract(TAORKenmerken.VerpakkingType, 1)
Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml
===================================================================
diff -u -r38315 -r56579
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 38315)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 56579)
@@ -11,6 +11,7 @@
 	Do ..VerwachteWaarden.SetAt("F", ..Enum.VerpakkingType.FlatpackV1)
 	Do ..VerwachteWaarden.SetAt("L", ..Enum.VerpakkingType.LosseComponentenInBulk)
 	Do ..VerwachteWaarden.SetAt("C", ..Enum.VerpakkingType.FlatpackProcom)
+	Do ..VerwachteWaarden.SetAt("P", ..Enum.VerpakkingType.FlatpackProbox)
 	
 	#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()