Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r32566 -r38315
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 32566)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 38315)
@@ -203,6 +203,10 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkFlatpackProcom">
+<Private>1</Private>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml
===================================================================
diff -u -r30808 -r38315
--- DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 30808)
+++ DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 38315)
@@ -91,7 +91,9 @@
 <Implementation><![CDATA[
 	#Dim VerpakkingCode As TECH.String = " "
 	
-	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
+	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()) {
+		Set VerpakkingCode = "C"
+	} 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 -r38289 -r38315
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 38289)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 38315)
@@ -10,10 +10,9 @@
 	Do ..VerwachteWaarden.SetAt("B", ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
 	Do ..VerwachteWaarden.SetAt("F", ..Enum.VerpakkingType.FlatpackV1)
 	Do ..VerwachteWaarden.SetAt("L", ..Enum.VerpakkingType.LosseComponentenInBulk)
+	Do ..VerwachteWaarden.SetAt("C", ..Enum.VerpakkingType.FlatpackProcom)
 	
-	;terug activeren voor FlatpackProcom bij latere implementatie. (momenteel enkel enum implementeren.)	
-	;#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
-	#dim VerpakkingIterator As TECH.Iterator = ##class(TECH.ListbuildIterator).%New($ListFromString("V1;Probox;BulkPerOnderdeelGegroepeerd;FlatpackV1;LosseComponentenInBulk",";"))
+	#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()
 	
 	Do ..AssertWaarden(..TAORKenmerken, VerpakkingIterator, ..Enum.KenmerkNaam.VerpakkingType, 20, 20)
 ]]></Implementation>